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Conexion mental/Aplioaciones 



Dominar la materia 




Controlar un ordenador por 
medio de la mente ya no es solo 
una idea fantastica creada por la 
ciencia-ficcion, sino una 
palpable realidad 



Desde la epoca de los primeros ordenadores el te- 
clado ha sido el principal dispositive de entrada, el 
medio para introducir informacion en el ordena- 
dor. Probablemente sea el vehiculo mas eficaz para 
entrar texto y, en menor grade, cifras, al menos 
hasta que se desarrollen sistemas de reconocimien- 
to de voz para fines generales. Pero, por muy ade- 
cuado que sea el teclado para entrar texto, no es 
necesariamente el mejor dispositivo para entrar 
otros tip OS de informacion. Si usted desea entrar 
TBpidamente datos de direcciones, como en muchos 
juegos, es prcferible una palanca de mando o un 
mando de bola y, por lo general, el raton, cl lapiz 
optico 0 la pantaila sensible al lacto representan los 
mejores medios para entrar datos posicionales, 
como cuando se realizan selecciones de menus. Un 
lector de codigos de barras es un metodo conve- 



niente para entrar largos niimeros en codigo o se- 
riados. 

Todos estos dispositivos de entrada, sin embar- 
go, adolecen de similar inconveniente: son indi rec- 
tos. Aunque una palanca de mando es mas adecua- 
da que un teclado para practicar juegos (p. ej., para 
desplazar la nave espacial hacia arriba, uno empuja 
hacia adelante el baston de la palanca de mando), 
aiin representa una intcrrupcion, un paso entre lo 
que uno desea que suceda en el ordenador y lo que 
realmentc sucede. Uno piensa "hacia arriba", tra- 
duce mentaimente esta idea en "palanca de mando 
hacia adelante'' y luego, fisicamente, la empuja. 
Para una interaccion mas rapid a y mas di recta entre 
el usuario y el ordenador necesitamos eiiminar este 
paso intermedio; ^por que no solo pensar ''hacia 
aniba" y lograr que el ordenador responda directa- 
mcnte al pensamiento? 

Imaginese lo que sena Jugar al Defender simple- 
mente pensando "arriba", "abajo", "girar", "dispa- 
rar", etc., o escribir una carta pensando solo en las 
palabras. EI procesador de textos telepatico esta 
aun a algunos anos de distancia, pero el juego De- 
fender controlado medtante el pensamiento es en la 
actualidad una realidad, hecha posible en virtud de 
un concepto que se conoce como mindlink o cone- 
xion mental. 

En el concepto de conexidn mental, el pensa- 
miento (o, con mayor precisidn, los cambios fisiol6- 



Jtiegos mentales 

El concepto de mmdlinko 
conexidn mental suprime la 
etapa mecinica intermedia de 
traducir losimpuisosdel 
jugadoren senales 
comprensibles para eJ 
ordenador. Al permitir una 
relacidn nnas di recta entre 
usuario y maquina, la mindlink 
ofrece un software mis amable 
y una entrada mas raprda 
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Aplicaciones/Conexion mental 



Notas 
mentales 



Er la fotografia vemos una demostracion de un 
prototlpo del sistema GSR operando con un 
ordenador Apple. Se han desarrollado sistemas 
similares para ser utilizados con !os PC IBIVI y 
Commodore, pero es probable que el desarrolio de 
software eficaz lleveaun alguntiempo. Roger Difts, 
presidente de Behavioral Engineering y autor de 
software GSR, esta interesado en combinar 
mindlink con NLP (neuro-lingulstic programming: 
programacidn neurolingui'stica), rama de la 
psicologia que ha eslado en gran parte dedicada al 
estudio del aprendtzaje. Mediante el empleo de la 
tecnica GSR para controlar el estado mental del 
usuario, el software puede ir comprobando el 
grado de tension de este e ir regufando el flujo del 
prog rama. Roger Dilts piensa que los programas 
educatlvos, porejempio, podran evaluar fa 
respuesta emocional del estudiante ante el material 
presentado. Si la presentacion es demasiado 
compleja, el ordenador captara la tension 
emocional y permitira cambiar ei ritmo del 
prog rama o simplificarel tema de estudio 




gicos que se producen a consecuencia de los cam- 
bios en los patrones del pensamiento) se utiliza 
para controlar un dispositivo elect ronico. Para el 
ordenador cstc dispositivo cs como una interface, 
de forma muy similar a una palanca de mando o 
cualquier otro dispositivo de cntrada. La conexion 
menial se basa en lo que se conoce como "fcnome- 
no GSR", en funcion del cual los cambios en el es- 
tado emocional del individuo se manifiestan en la 
conductividad clcctrica de la pieL El usuario se co- 
necta mcdianle elcetrodos a un medidor de resis- 
tencia. Las senates de este medidor se envian a la 
puerta para el usuario de un ordenador y son intcr- 
pretadas y obedecidas mediante un software cscrito 
especialmente. La empresa Behavioral Engineer- 
ing, con sede en California, ha basado en esta tecni- 
ca tanto juegos como software practice, y entre sus 
productos en este campo hay una version simplifi- 
cada del Defender. Se sabe, asimismo, que otras 
imponantes empresas de ordenadores han estado 
trabajando cn este campo durante los ultimos anos. 
en especial Atari, pero solo recientemente han ob- 
tcnido cierto nivel de exito. 

En el Defender com enciou'dl el jugador control a 
una nave espacial en orbita alrededor de un plane- 
ta. El juego consiste en disparar contra las naves de 
los alienigenas sin que estas Ic disparen a uno y sin 
estrellarse contra el planeta. En la version de Beha- 
vioral Engineering, uno solo controla la altura de la 
nave: jpero la gran diferencia es que uno la contro- 
la a traves del pensamiento! La empresa ha disena- 
do una interface GSR para el Apple He. El usuario 
simplemente coloca los dedos indicc y corazon de 
una mano sobre un dispositivo similar a un raton, 
que mide la resist encia a traves de los dos dedos y 
en via los valores resullantes al ordenador. El soft- 



Principios del GSR 

E! concepto de conexion mental se basa en un 
fendmeno que se conoce bajo tres denominaclones 
alternativas: GSR (galvanic skin response: 
respuesta galvanica de la piel). PGR 
(psychogalvanic reflex', reflejo psicogalvanico) y 
EDR (electrodermal reflex: ref\e\o efectrodermico). 
En este capftuto hemos utilizado el terminoGSR. 
Este aiude a cambios en la conductividad electrica 
de la piel que corresponden a cambios en el estado 
emocional del individuo. La experimentacion ha 
demostrado que, cuanto mas tensa esta una 
persona, manor es la resistencia eiectrica de su 
piel. La aplicacion mas conocfda del GSR son los 
poligrafos o detectores de mentiras. Aunque el 
fendmeno GSR se ha estudiado desde el siglo xix, 
se sabe muy poco sobre sus causas. La teorfa 
original afirmaba que el sudor productdo por la 
excitacidn o la ansiedad actuaba como un 
conductor electrolftico, disminuyendo, por tanto, 
la resistencia de la pieL Sin embargo, experimentos 
mas recientes han arrojado dudas sobre esta 
simpiista teoria. No obstante, se sabe que el GSR 
esta directamente relacionado con el grado de 
tension existente en el sistema nervioso simpatico. 
Este, a su vez, depende del sistema nervioso 
central y, por consiguiente, del cerebro: de afli la 
posibilidad de controlar un ordenador mediante el 
pensamiento. Los cambios en laactsvidad del 



cerebro producen cambios en el estado del sistema 
nervioso central; este produce un cambio en el 
estado del sistema nervioso simpatico, que 
conduce a cambios en la resistencia de la piel. Y la 
variacion de una corriente electrica es la base de 
toda forma de dispositivo de entrada 




Conexion mental/Aplicaciones 





de iDodo lai que un aumcnto en 
i^seieiida baja originada por una 
» produce la elevacion dc la 
disminucion de la resisten- 
descienda. La idea, por su- 
qoe b de controlar estos movi- 
ir la nave con los objetivos que 



► ijBmjmn mental, que parccc haber 
rpor Atari, quiza sea un tanto impreci- 

: li CDoexioo se csiablece con el sistema 
[ w ao coo la mente. Esta es, no obstante, 
a: si los do^ son interdependientes, 

> separarlos? La mayona de las perso- 
que, de spues de 20 minutes de 

em. paedea ejercer un grado de control bastante 
2 Bemido sin ser conscientes de la forma en 
el&baceii. Algunas personam tensan y relajan su 
^ofeexamente de forma conscicnte, mientras 
; simpiemente piensan '^arriba" o ''abajo'' 
I que su sistema nervioso haga el rcsto. 
sde los juegos, la conexion mental posee 
^mas practicas. Las personas que se ha- 
paralizadas conservan aun la capa- 
ngEnerar efectos GSR conscientemente, 
id^becho de no tener control sobre sus 
. Ya se ha concctado con exito un disposi- 
f €SSR al robot Topo a traves de un ordenador 
pie. pemiitiendo que una persona paralitica 
d robot. Otra aplicacion inleresante se 
bad espacio, en condiciones de ausencia de 
Sii! gravedad para equilibrar ia fuerza 
rytfjdj^ piaede ser sumamente dificil operar con- 
^riesBecaoicos. Un GSR podria ser un sustiiuto 
iK^pna muchos controle^ mecanicos. 

ias aplicaciones aun mas insolitas se in- 
4S«e ^ soin^'are perceptor del estado dc animo. El 
SQ^me educativo, cn especial, se podria bcnefi- 
am realimentacion GSR del estado interior 
aci mmmo- El individuo podria llevar una mufie- 
i|Be contuviera los electrodos y dejar que el 
mBmase calibrara su estado normal re la j a do. 
L^^iLaCTCualquier punto del programa el dispo- 
mmo QSR registrara un notable aumcnto de ten- 
SHL « podria suponer que el usuario tenia dificul- 
^aaj icmar en consecuencia, j Hast a el software 
^ msaam pxMa detectar estres en el usuario y su- 
mm. patisa para tomarse un cafe! 

a b que se dcsarroUe la tecnologia 
ten parte de la introduccion dc dis- 
lor precision y que respondan con 
ids- y. en parte tambicn, a nuestra capaci- 
iBSfecdonar nuestra intcrpretacion de los 
& axanto a lo primero, el problcma es 
. la respuesta GSR se produce dos 
r del acontecimiento y tarda entrc 
; en desaparecer. Los disposili- 
1 basta cicrto punto cste incon- 
rlt^doddad del cambio de la rcs- 
M mtensidad de esta; no obstan- 
■ m mas alia en eslc scntido. El 
fa£&ca en la pobreza de las de- 
icapacts de realizar a partir dc 
lOSR. Sabemos que una disminu- 
rli»£ieiida de ia piel indica algun 
' foda^ia no somos capaces de 
mMmaaaies agradable o dolorosa. 
, a pesar de los problemas, el GSR 
►apasionantes. 







El detector de menu 



Uno de los princi pales probl&mas con que se 
encuentra la policfa y la justicia al realizar una 
investigacion y posterior juicio reside en saber si un 
sospechoso o un testigo esta mintiendo. Si bien un 
observador expertmentado puede detectar minimos 
indicios (cambios en la coloracion de la piel y la 
respiracibn, p. ej.) Ja medicibn de estos facto res 
no se ha definido ni catalogado, nt tampoco son 
admisibles como evidencia. Por este motive, se ha 
investigado profunda^nente para desarrollar un 
medio objetivo de apreciar la diferencia entre 
alirmaclones verdaderas y falsas. Uno de los 
resultados de tal investigacion ha sido el poligrafo 
0 detector de mentiras. En realidad este no es mas 
que un medidor de resistencia. Se basa en la teoria 
de que la tension de un individuo aumenta 
significativamente al decir una mentlra u oir 
palabras clave relacionadas con el delito, y que este 
aumento de tension se refleja en una dlsminuci6n 
de la resistencia de la pieL El poligrafo es objeto de 
gran controversia. Tenido en gran estima por 
agendas de investigacion, en particular en Estados 
Unidos, sus detractores arguyen que no se sabe lo 
suticiente acerca del GSR como para interpretarlo 
de forma fiable, y que diferentes personas pueden 
reaccionar de forma muy dislinta, 
independientemente de su culpabilidad o inocencia 



Para oblener S 
UFi empleo ^ 
En ocasiones se utilisa eJ GSR 
para evaluar a los candidatos a 
un empleo: un detector de 
mentims ayuda a calificar las 
respuestas de un individuo a las 
preguntas que se le for mu Ian. 
En ]a fotografiavemos a un 
agentedeventasaquiensele 
estan mostrando los resultados 
de un test que acaba de realizar 



IVIentiras diafanas 

Un detector de mentiras mide 
los cambios en el GSR 
provocados por la respuesta 
emocronal del individuo ante la 
pregunta formulada. Sin 
embargo, en la vida real es muy 
poQO probable que un detector 
de mentiras ofrezca resultados 
tan evidentes como el que 
vcmos aqui. Las reacciones 
emocionales varian a tenor de la 
sensibilidad del individuo ante 
ciertostemas (p. ej., si eltema 
le resulta embarazoso) y no 
dependen solo de la veracidad o 
Jalsedad de las respuestas 



^Su rsombre es Pedro?. 
Se. (verdad) 





^Estaba en Reus (Tarragona) 
la noche del 12 de marzo? 



No. (merit ira) 
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Cieneurimormatica/PASCAL 



Estructuras 
dinamicas 



El PASCAL concede una 
impoitancia primordial a la 
precision de las tecnicas de 
programacion al tratar archivos 



Ahora podemos seguir desarrollando nuestra base 
de datos pensando en aleunas variables esenciales v 
en un aigoritmo informal. 

VAR 

lista : UstaRegistro; 
tamano : Cardinal; 
BEGIN 

tamano :=0; {tamano activo de ia lista} 
{leer los datos en la lista, actualizando tamano} 
{clasilicar eiementos de tamano en el orden 
correcto} 

{imprimir eiementos de tamano de la lista} 
END. 

Para traducir este aigoritmo informal en algo m^s 
tangible necesitamos expresar las tres etapas princi- 
pales del proccso como Uamadas a procedimientos 
(con nombres adecuados) y listar todos los datos 
conocidos que requerira cada uno en forma de una 
lista de parametros. 

Una vcz realizado este sencillo paso, podremos 
escribir todos los bloques de procedimiento como 
un esqueleto. For ejemplo, la ultima sentencia del 
programa se convertira en: 

Imprimir (lista, tamano) 

El procedimiento lendra toda ia informacion que 
nccesita si le pasamos la lista de valores de datos y 
ia cantidad de eiementos, de modo que en este caso 
d encabezamienlo no necesilara ninguna VAR: 

PROCEDURE Imprimir (items : ListaRegistro; 

altura : limites): 
Podriamos seguir adelante pasando a codificar lodo 
el procedimiento, pero por ahora es mejor dejarlo 
como una "colilla" BEGIN.., END y ocuparnos de los 
otros procedimientos de nivel L Hemos de elegir 
un nombre para cada uno, decidir que eiementos 
de datos es preciso pasar como parametros a cada 
procedimiento, y determinar si es necesario pasar 
algunos de estos eiementos como pardmetros VAR 
(direccion). 

Todos los me todos de estructuracion de datos 
que hemos analizado hasta ahora han sido de tama- 
no fijo. Ello se especifica en las definiciones TYPE y, 
por eonsiguicnte, se conoce en tiempo de compila- 
cion. El PASCAL proporciona estructuras de datos 
avanzadas euyo tamano puede variar (e incluso 
tambien su tipo, con ciertas restricciones) durante 
la cjecucion de un programa. El tamano de una 
estructura avanzada solo esta Umitado por la me- 
moria fisica o el almacenaniiento de apoyo disponi- 



bles, y la estructura avanzada mas familiar es el ar- 
chivo secuenciaL 

Al igual que una matriz, cada elemento de un 
archive puede ser de cualquier tipo, simple o es- 
tructurado, con la excepcion de que uno no puede 
tener un archive de archivos. Utilizando nuestra 
anterior definicion de tipo de registro, podriamos 
anadir las sisuientes declaraciones: 



TYPE 



TipoArchivo=FlLE OF datos; 
VAR 

Archive Datos -TipoArchivo; 

que nos permitirian crear y procesar un archive que 
contuviera un numero infinito de componentes, 
siendo cada uno de ellos un registro de un nombre, 
deuda y cualquier otro campo que desearamos. 
Igual que decimos read (simbolo). queriendo signifi- 
car leer un unieo char de la entrada del archivo, 
podemos decir: read (Arch ivoDatos, item) o write (Ar- 
chivoDatosJtem) y manipular toda una estructura de 
registro como un ebjeto de un solo date. Si estos 
archivos solo se rcquieren durante la ejecucion del 
programa, la otra unica exigencia consiste en abrir- 
los para leerlos o escribir en ellos mediante los pro- 
cedimientos predefinides reset y rewrite, respecliva- 
mente. 

Si usted desea darles un caracter permanente, lo 
cual es mas probable, entences los identificadores 
de archivo deben especificarse en la lista de para- 
metros del eneabezamiento del programa. En este 
caso, por ejemplo: 

PROGRAM ManipuladorDatos (input, output. ArchivoDatos); 

Cada vez que utilizamos sentencias read o write, Ua- 
mames a procedimientos de E/S de archivos prede- 
finidos del fascaf.. Los dos unices archivos que, en 
realidad. conocemos hasta ahora son los dispesiti- 
vos de E/S estandares de nuestro ordenader. El ar- 
chivo input normalmentc es un teclado y output sera, 
invariablemente, una pantalla VDU en los sistemas 
de microordenador. Al simular que estos dispositi- 
ves son archives, en pascal la manipulacion de 
todas las E/S resulta sumamente ceherente. Re- 
cuerde que cuande deeimes write(N). omitiendo 
cualquier nombre de archivo, el valor de N se impri- 
me en forma de caracteres en el archivo output, Al 
emitir un nombre de archivo en sentencias read o 
ReadLn, se pasa por defecto al archive input. Estos 
dos archivos son archives de texto, es decir, cada 
"registro" es un valor de un unice caracter. 

Archivos de texto 

Sin embargo, a diferencia de etros archivos, los ar- 
chivos de texto pueden tener (ademas de una 
marca de final de archive) indicadores especiales de 
fina! de linea empotrados en cualquier punto den- 
tro de ellos. 

Estos indicadores varian con los diferentes siste- 
mas operatives, y pueden constar de un sole carac- 
ter de control, de dos caracteres (CR y LP, p. ej.), o 



Leyendo deun archivo 






M^isdemngun caracter, almacen^ndose, en cam- 
is. Vrngitud de cada Imea. 

Cpi no de presen^ar la portabilidad^ el pascal 
pOBcmrna la funcion EoLn (F) y los dos procedi- 
ssie:^ predefinidos ReaclLn(F) y WriteLn(F), los 
sclo se pueden emplear con archivos de tipo 
SEi la funcion EoF{F), por supuesto, se puede utili- 
i:^: ;:cf. oiaiquier tipo de archivo. Dado que el indi- 
^3iirr final de linea puede o no ser un unico ca- 
la lectura de un valor char cuando EoLn es 
sra devolvera un caracter Space. Por consi- 
le, oormalmente debemos comparar previa- 
wems con EoLn . Puesto que tanto input como output 
aiElsQ antes y despues de la ejecucion de cualquier 
^eeama, estan permanentemente abiertos, y no 
opPEciso cargarlos ni crearlos de forma explicita. 

Coo archivos distintos de input y output, debemos 
'■nen lilies a un nombre del sistema ex tern o y luego 
aloEk^ para la lectura con una Hamad a al procedi- 
ssito reset (p. ej-, reset (Algun Archivo)), o bien 
<S2r tma en trad a en el direct on o preparatoria para 
«3i)iren ellos mediante rewrite (Otro Arcilivo). Por 
' ► laeto. un esquema general para procesar un ar- 
' de texto es simple men te: 

^' 9l arciiivo} 

-1 no se fiegue al final del archivo fuente)DO 
- {no se este en el final de una lineajDO 
5r^ un caracter} 
:'ocesar el caracter} 
ss i^rse el final de lalinea) 



PUT y GET 



cedimientos read y write en re alidad se im- 
i;-. utilizando buffers de archivos y las pri- 
:r n S put (para salida) y get (para entrada 
.": -:'. os). Cuando se reescribe un archivo, 
- se coloca ninguna mformacion hasta 
; cabo un write. Este en realidad consta 
^ aperaciones: 



^^2' modo, la sentencia read (F,datOS) tam- 
: poede expresar: 



Por lo tanto, las sentencias de E/S de nuestro pro- 
cedimiento Copiar: 

read (fuente, caracter); 
write (destine, caracter) 

se podnan haber codificado igualmente como: 

destino'^:=fuente^ 
put (destino); 
get (fuente) 

De esta manera no necesitariamos de !a variable 
char local, caracter. Tal vez se podria alcanzar una 
mejor comprension de la operacidn de ReadLn (F) si 
la expresaramos en terminos de estas primitivas; 

WHiLE NOT EoLn (F) DO 
get (F); {descartar el 
hubiera} 



resto de la Imea, si lo 



get (F) y saltar el/los caracter/es EoLn} 

De mode, enlonces, que tras una ReadLn cl buffer 
del archivo siempre contendra el primer elemento 
de la siguiente linca a leer, Este podna ser un espa- 
cio si EoLn (F) fuera verdadera, o estar indefinido si 
EoF (F) fuera verdadera. Obviamente, es i legal in- 
ten tar leer un archivo cuando EoF es verdadera, 
pero tambien es un error llevar a cabo cualquier 
operaci6n, incluyendo la comprobacidn del buffer 
del archivo, EUo significa que se debe ser cui dado- 
so al manejar archivos que no sean nl input ni out- 
put. Pero, al mismo tiempo, el tener que estar aten- 
to a con dici ones de error potenciales tales como 
estas favorecera la escritura dc un software eficaz. 

Ahora que sabemos como "anticiparnos" a un 
flujo de datos venidero, po demos formular el pro- 
cedimiento SaltarBlancos que proponiamos en el ca- 
pftulo anterior. 



PROCEDURE SaltarBlancos (VAR F 

CONST 

espacio = ' '; 
VAR 

iiecho : boolean; 
BEGII\i 

hecho EoF (F); 

IF NOT hecho THEN 
hecho := inp[Jt"> espacio; 



text); 



A la sombra de un arctiivo 

El proceso de abrir un archivo F 
en PASCAL prepara una zona 
buffer asociada, T, en la cual se 
lee el primer caracter del 
archivo, Cuando se realiza una 
lectura, eJ caracter de la zona del 
buffer se le aslgna a una variable 
ysstransfiereala zona del 
buffer ef siguiente caracter del 
archivo. De este mode, si los 
primeros caracteres de Ffueran 
PETALOS^aJ abrirel archivo P 
se leeria eo f^ Tras la primera 
operaci6n de lectura, Psena 
aslgnadaaunavariabJe del 
PASCAL, y seria reemplazada por 
E en el buffer, F~ 
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WHILE NOT hecho DO 
BEGIN 

get (F); 

hecho EoF (F); 

IF NOT hecho THEN 
hecho := F> espacio 

END 

END; {SaltarBlancos} 

Observe que asi saltarcmos todos los espacios en 
bianco de un archive de texto, iocluyendo los carac- 
teres de final de Imea. Si solo desearamos saltar 
espacios en una finea dada, podriamos alterar la 
asignacion condicionadar 

hecho := EoLn (F) OR (F"> espacio) 

Si postcriormcnte desearamos saltar todos los espa- 
cios en bianco: 

REPEAT 
SaltarBlancos (F); 

IF NOT EoF (?) THEM 
TextoHailado NOT EoLn (F) 

UNTIL TextoHailado OR EoF (F) 

Con esta ultima modificacion, resulta muy sencillo 
escribir programas interactivos que compmeben 
entradas niilas. 
For ejemplo: 

- REPEAT 

write (Tntre datos:'); 
SaltarBlancos (input) 

UNTIL NOT EoLn (input) 

Esto fracasara en el caso de que se entre cl caracter 
de control que utilicc cl sistema para indicar el final 
del archivo, pero sicmpre podriamos usar el esque- 
ma anterior si desearamos conseguir que nuestro 
programa fuera absolutamentc seguro. 

Programa CopiarTexto 

El PASCAL proporciona el identificador "text" para el 
tipo mas comun de archive, y este se utiliza cuando 
declaramos todas las variables del archivo de texto 
en fa iista de parametros del encabezamiento del 
programa. Aqui ofrecemos una facilidad para 
copiar archives de texto. Con el objeto de Ipgrar 
que el programa sea util con el caracter mas 
general posible, hemosiormiilado todo ei=proceso 
de copiado como un procedimiento separado 
denominado Copiar, que puede procesar dos 
archivos de texto cualesquiera. Recuerde que los 
compiladores no estandares extgen la utilizacidn de 
reset (F1/Fuente')^ etc., en ef programa principal. 
Observe que ambos archivos se pasan al 
procedimiento Copiar como parametros VAR, Ello 
se debe a que no solo se actualiza el archivo de 
destino, sino que se lee el archivo fuente y, por lo 
tanto, Gambia el estado del archivo, Por este 
motfvo, las variables de archivo siempre se pasan 
por direccion, jamas por valor. Aparte de cualquier 
otra consideracibn, un parametro de vator implica 
una copia local. Pasar grandes estructuras, tales 
como matrices de registros, tambien se puede 
considerar una excepcion por razones de 
conservacion de memoria 



El procedimiento assign ha llegado a considerar- 

se como una ampliacion estcindar y podria ser que 
prontc) se adoptara con caracter oficial, asi como 
open y seek para archivos de acceso direct o. Otras 
ampliaciones esenciales de uso comun son: 

FUNCTION Fstat (NombreArchivo) 

que devuelve un resultado booleano: (true si ya 
existe el archivo), y una facilidad: 

PROCEDURE Rename (NombreViejo, NombreNuevo) 



PROGRAM CopiarTexto (F1,F2): 
VAR 

F2 : text; 

{11111111111111111111111111111111} 

PROCEDURE Copiar (VAR fuerrte, 

destino ; teKt); 

VAR 

caracter : char; 

BEGIM 

WHILE NOT EoF (fuente) DO 
BEGIN (copiar yna linea:} 
WHILE NOT EoLn (fuente] DO 
BEGIN 

react (fyente, caracter): 
write {destine, caracter) 
END; 

(ahora copiar al final de linea:} 
ReadLn (fuente); 
Write Ln (destino) 
END 

END; {Copiar} 
(11111111111111111111111111111111) 

BEG 114 {CopiarTe Jcto — Prog r ania p ri n ci pal } 

assign (F1, 'Fuente'); 

reset (F1 ) ; ( local izar y ab rir para iectu ra } 

assign (F2, 'Destine'): 

rewrite (F2); {crearlo} 

Copiar (F1, F2) 

END. 



Complementos al pascal 

No existe restriccion alguna sob re ef numero de 
archivos que es posible tener abiertos. Sin 
embargo, puesto queestos requieren la utilizacidn 
del OS, nos hallamos en un campo en el cual 
existen divergencias. Por ejemplo, algunas 
versiones del lenguaje no soportan archivos. Las 
convenciones del OS para la asignacion de 
nombres a ios archivos puede, por tanto, suponer 
un problema. Muchos pascal de ordenadores 
centrales toman los primeros 10 caracteres, mas o 
menos, de todo identificador de archivo, y lo 
relacionan con un archivo que posea ese nombre, 
de modo que nuestro ejemplo de archivo 
permanente crearia uno JIamado ARCHIVODATOS. 
En muchos sistemas, las convencfones para los 
nombres son tales que esto no es posible. 
Ejemplos: ACP/M-FIL.DAT, #4:APPLEF0R MAT, 
etc. La "ampliacion estandar^^ para conectar un 
identificador dearchtvo es el procedimiento de 
asignacion, empleado antes de reestablecer o 
reescribir: 

assign (]dentificadorArchivo,SerieNombre) 

De modo que, a nuestros fines actuales, bastaria 
assign (ArchivoDatos,D:NuestroArch,dat) 



Administrador ef icaz 



En esta ocasion concentraremos nuestra atencion en el 
"MicroPen", DBM disenado para el Amstrad CPC 464 



Descrito como un "sistema de archivo de bases de 
datos para el CPC 464'\ MicroPen csta editado por 
ia division Amsoft de Amstrad, pcro es obra de la 
empresa de software Intelligence Ireland. Micro- 
Fen forma parte de un trio de programas que com- 
prende un DBM, un procesador dc textos y una 
hoja electronica, Desde el punto de vista concep- 
tual, el paquete guarda similitud con juegos como 
el LotiLs 1-2-3 y el PIPS de Sord. Ef componentc de 
DBM incluye un procesador de textos denominado 
Penform. El mismo se utiliza para crear formates 
en pantalla de los registros a utilizar dentro de un 
archivo DBM, El DBM propiamente dicho se de- 
nomina simplemcnte Pen. 

La version Amstrad del MicroPen funciona bajo 
CPM-80 y, por consiguiente, requiere al mcnos 
Eca unidad de disco DDI-1 . Aunque esto parece un 
|2Sio adicional algo desatortunado, usled compren- 
aerl enseguida que la capacidad y velocidad de los 
^cos es esenciai; los DBM basados en cassette 
ppadeB resultar penosamente (entos y frustranles. 

^ra crcar un archivo de base de datos es necesa- 
aD Gcear primero cl trazado o formalo para ios re- 
Bsmjs que compondran el archivo. Elio se realiza 
^eoitando el Penform. Si bicn en la documenta- 
I se alude a este como un procesador de textos, 
I reahdad no es mas que un editor en pantalla. Es 



decir, permite entrar o modificar caracteres en la 
pantalla, desphizando ef cursor mcdiante las teclas 
para el mismo. Las teclas del cursor se complemen- 
tan con instrucciones de edicion simples, tales 
como [CTRL] Y para suprimir una h'nea o [ESC] E 
para salvar en disco. El Penform no es un autentico 
procesador de textos, puesto que no se puede utili- 
zar para crear y editar documentos completes como 
cartas o artjculos. 

Hay algunas limitaciones en cuanto a la cantidad 
de informacion que se puede induir en un archivo 
de base de datos MicroPen. Un registro (denomi- 
nado layout — trazado — en la documentacion) 
puede tener hasta 100 campos, pero ningun registro 
puede contener mas de 1 024 caracteres. Tcorica- 
mente, un archivo puede contener hasta 32 750 re- 
gistros, pero en la practica no es viable una canti- 
dad tan alta de registros en un sistema basado en 
disco flexibfe. Los 32 750 registros completos, con- 
teniendo cada uno de ellos los 1 024 caracteres ad- 
misibles como maximo, requerirjan mas de 33 me- 
gabytes de almacenamiento en disco solo para los 
datos en bruto (suponiendo que no sc utilicen tecni- 
cas para compresion de dafos). 

Una caracteristica in usual del MicroPen es que a 
cada uno de ios campos de un registro se le ha de 
otorgar un idendficador exclusivo en pantalla. 
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EsEos idemificadores se denominan senaladores de 
vampo y pueden ser cualquicr caracter imprimible a 
excepcibn del corchete, que no esta disponible por- 
que posee un papel especial como deliinitador de 
campo. 

Si estuvieramos utilizando el MkroPen como 
DBM para nuestra base de datos COMPONENTES, 
un trazado de registro creado por Penform tendna 
el siguiente aspecto: 

Numero de componente del fabricante: [A 
Numero de componente nuestro: [B 
Precio: [C ] Cantidad en stock; [D 
Descripcion: [E 
Proveedor: [F 

Num.telefonodelproveedor: [G 

Hablarcon; [H \ 

Tras haber creado un formato como este, es guar- 
dado en disco empleando un nombre de archivo 
como COMPONEMTES.INP (la ^^extension'' INP del 
nombre del archivo la exige el programa Pen 
DBM). 

Ejecucidn del "Pen" 

Al ejecutarlo, el Pen visualiza un mensaje en la 
pantalla que pregunta que archivo de base de datos 
se ha de utilizar. Para emplear nuestra base de 
datos de inventario, respondenamos COMPONEN- 
TES (no se requiere aqm la extension INP para el 
nombre del archivo). /"e/i visualiza entonces un 
menu, conocido como menu principal^ que ofrece 
seis opciones: 

Base de datos: COMPONENTES, por registro 328, re- 
gistros en archivo 0. 

O^Salir, 1=Entrar, 2=Recuperar, 3=Recuperar e 
imprimir, 4=lndice, 5=0rganizar 

Para entrar registros se necesita la opci6n 1. La 
linea superior (linea de estadistica) senala que hay 
328 caracteres por registro, pero que en el archivo 
no hay (todavia) ningun registro. Tras la seleccion 
de la opcidn 1 se visuaiiza en la pantalla el formato 
de registro con instrucciones. En nuestro ejemplo, 
en la pantalla se visualizana: 

Pulsar {ESC} tras completar entrada de datos para 
registro 1 

PulsarT para borrar campo 

Numero de componente del fabricante: 

Nijmero de componente nuestro: 

Precio: Cantidad en stock: 

Descripcion: 

Proveedor: 

Num. telefono del proveedor: 
Hablar con: 

Los datos se digitan de la forma habitual. Tras en- 
trar los datos para un campo. la pulsacidn de ENTER 
concluye la entrada para ese campo y desplaza el 
cursor hasta el campo siguiente, Los errores come- 
tidos en an campo se pueden corregir mediante el 
empleo de la tecla Delete. Una vez entrado correc- 
tamente todo el registro, utilizando la tecla Escape 
se visualizara un submenu; 

0=Salir 
1=Continuar 

2=Escribir registro en archivo 



La opcion 2 escribe el registro en disco y visuaiiza el 
formato para el siguiente registro. 

La opcion 2 del menu principal permite acceder a 
registros o recuperarlos y da lugar a otro submenu: 

Recuperar por: 0=Salir 

1= Numero de registro 
2^BLjsqueda 
3=Ustar todo el archivo 

Las opciones 0 y 1 se explican bastante por sf solas; 
la opcion 1 permite especificar y visualizar un regis- 
tro; da por sentado. no obstante, que usted conoce 
el niimero de registro que quiere, aunque es poco 
probable que usted lo recuerde si el archivo contie- 
oe muchos registros. La opcion 2 permite especifi- 
car varios parametros de biisqueda para poder loca- 
lizar cierto registro que cumpla la especificacidn. El 
submenu de busqueda es: 

Pulsar Escape cuando e! perfti de busqueda este com- 
pleto. Para establecer modalidad de busqueda: 
"Q=Contiene;w=No contiene/E^lgual a/R = No 
igual a, T=Mayor qije/Y=Menor que 

Usted ya habrA percibido que hay una gran incohe- 
rencia en cuanto a las instrucciones y opciones de 
menu para las diversas partes del paquete: algunas 
veces debe pulsarse la tecla Escape, otras veces una 
combinacion de CRTL-letra, otras un numero de 
mentj. Muy raramente las combinaciones CTRL- 
letra poseen algun verdadero valor mnemonico: ^E 
para hallar un registro con campos de comparaci6n 
durante una busqueda, para especificar Contiene, 
etc. Sea como fuere, las opciones de ''busqueda" 
permiten una razonable flexibilidad para especifi- 
car los registros que se ban de buscar. 

Habiendo dado los parametros que definen el re- 
gistro requerido, las combinaciones CTRL— letra 
permiten localizar registros que contengan los 
datos e specific ad OS. que no contengan los datos es- 
pecificados, que posean campos con datos empa- 
rejados, que no posean campos con datos empa- 
rejados, o que posean un valor de campo menor 
que el valor de campo especificado. Si quisiera, por 
ejemplo, localizar registros de componentes con un 
PRECIO inferior a 37,50, lo podria conseguir con 
gran facilidad. 

Micro Pen puede crear un in dice de todas las en- 
tradas de un archivo de base de datos. La indexa- 
cion se efectua por campo, y debe conocerse tam- 
bien la cantidad m^ima de registros. El campo se 
especifica por su identificador, no por el nombre 
que le hemos dado al campo. Para obtener un indi- 
ce de Numero de componente nuestro, y suponiendo 
que en el archivo hubiera 500 registros, especifica- 
riamos B=#500 (siendo B el identificador para 
nuestro campo Numero de componente nuestro), 

MicroPen ofrece capacidades de busqueda e in- 
dexacion moderadamente avanzadas, y por su pre- 
cio es asequible a muchos usuarios de ordenadores 
personates- No ofrece, sin embargo, la ventaja de 
un lenguaje de programacion incorporado, como 
los que incluyen Archive y dBase IL Aunque este 
ultimo es un paquete caro disenado para ordenado- 
res caros, Archive viene ^'gratis" con el Sinclair OL 
y a un precio global comparable al de un Amstrad 
CPC 464 mas unidad de disco y software MicroPen. 
Esta es la clase de consideraciones a tener presen- 
tes antes de adquirir un sistema de ordenador con 
ei software de DBM asociado. 
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Ampliacion Amstrad 

El paquete de unidad de disco DDI-1 de Amstrad proporciona una 
mejora a buen precio para la maquina 



El concept o del ordcnador como un artkulo mas de 
la electronica domestic^, como un televisor o un 
equipo de alta fidelidad, instalado con caracter per- 
mancnte en un rincon de la habitacidn en vez de 
tencrlo que montar y conectar a otros componentes 
cada vez que se desea utilizarlo. fue obviamente re- 
cibido con satisfaccion por los entusiastas. Existe. 
asimismo, la vcntaja de evitar conflictos con quie- 
nes desean usar el televisor. 

El Amstrad es muy popular entre los usuarios 
personales, pcro posee un inconveniente funda- 
mental: a pesar de que la empresa incorporo cn la 
maquina una unidad de cassette, el ordenador care- 
cta de una capacidad de aimaccnamiento rapido. 
En el momento del lanzamiento se prometio una 
unidad de disco, lo que llevo a mucha gente a ad- 
quirir el ordenador a la espera de que la misma sa- 
liera rapidamente a la venta. Sin embargo, las re- 
mesas no aparccieron hasta el ano siguientc y desde 
entonces la adquisicion del dispositivo sc puede 
realizar cada vez con mas facilidad a traves de las 
tiendas minonstas. 

El paquete de unidad de disco se compone de la 
unidad de disco, una interface (que permite conec- 
tar la maquina a la puerta para disco flexible de la 
parte posterior del ordenador), un disco de sistema 
y un manual. El otro extremo del cable de la inter- 
face se desliza en el cone c tor de 34 vias de la parte 
posterior de la unidad de disco. 

La unidad dc disco propiamente dicha utiliza dis- 
cos de 3 pulgadas de estandar Hitachi, Esta parece 
una eleccion extrana, ya que es Sony y no Hitachi 
quien aparece como probable ganadora dc la bata- 
Ha por cap tar el mercado de micro flcxibles. El for- 
:^io Sony de 3 Vi puigadas parece estar a punto de 
^:::f3ertirse en el estandar, puesto que un creciente 
lErriero de fabricantes, incluyendo Apple, Apricot 
5- :z:^ recientementc, Acorn con su Electron, ban 
«itcoido los discos Sony para sus unidades. A ex- 
1 de Amstrad, ningun otro de los grandes fa- 
^ de ordenadores parece haber optado por 
k^i^Km Hiiachi. 

& el mterior de la unidad, dos motores clara- 
se^e %i5i?ies controlan la rotacidn del disco y el 
de: lecnira/escritura. En la parte posterior 
n f^ente de alimentacion, separada del meca- 
Ksc je 11 iiEiidad de disco mediante una placa 
protege del exceso de calor y los 
En la parte posterior de la car- 
\% ?rmrmm li poeita para la interface hay un 

el Amstrad son similares, 
► ""ipHi idLOies Sony, aunque su 
Los discos Amstrad 
^ igual que los discos 
i^Kicafca^a plastica y po- 
t placa m^ifica solie la ventana de lectu- 
a^sCTimra que pfote^ al ifeco de las huellas dac- 





tilares o la suciedad, Esta sc retrae cuando el disco 
se coloca en la unidad. Los discos Amstrad, sin em- 
bargo, posee n sus escudos en el interior de la carca- 
sa metalica, mientras que Sony los ha colocado en 
el exterior. 

La unidad opero de forma rapida y fiable y no 
tuvimos ningun problema para h altar archivos y 
cargaHos en unos pocos segundos, pero parecio 
mas ruidosa que el producto de Sony. No obstante, 
resulto mas silenciosa que la media de unidades de 
disco flexible dc 5 V4 pulgadas promedio. 

El disco del sistema 

El disco del sistema contiene trcs utilidades basicas: 
AmsDOS, el propio sistema operativo de disco de 
Amstrad, y dos utilidades dc Digital Research: el 
sistema operativo de disco CP/M, tan ampliamente 
utilizado, y Dr logo, una popuiar implcmentacion 
del lenguaje dc aprendizaje y de graficos tortuga 
que cada vez se esta extcndiendo mas, con eviden- 
cias incluso de desplazar al basic como lenguaje 
principal en los ordenadores personales. 

Refiriendonos en primer lugar al AmsDOS, 
quiza esta sea la mas floja dc las tres utilidades pro- 
porcionadas. Para poder ejecutar el AmsDOS, 
debe primero cargarse cl CP/M. Esto tal vez parez- 
ca extrano, pero el resuitado es que el AmsDOS 
utiliza igual memoria que el CP/M solo y, por 
tan to, el CP/M se desecha tras haber cargado al 
AmsDOS. A diferencia del CP/M, que es un siste- 



Escalaitdo el mercatto 

La unidad de disco Amstrad 
DDM permite que los usuarios 
amplien sus sistemas 
colocandolos a la altura de las 
especificaciones que requiere un 
fTficroordenador "serio Con fa 
adicion de los tres programas 
que se suministran junto con la 
unidad de disco (CP/IVI, 
AmsQOS y Dr logo), el Amstrad 
CPC 464 posee ahoraun 
numero mucho mayor de 
aplicaciones La unidad se 
conecta ai ordenador mediante 
ei cabie de interface que se 
proporciona, a traves de Ea 
puerta interface para disco 
tiexibfe 
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zu operativo autocontenido, el AmsDOS siinple- 
mente anade instrucciones de operacion de disco al 
caracter barra vertical I (Shift @); por ejcmplo: I 
DR^VEyl DIR. 

El procedimiento para manipular archivos en 
(fisco desde AmsDOS es uno de los mas peculiares 
que pucdan verse en cualquier micro personal. Por 
ejemplo, para borrar (ERAse) un archive, usted 
debe primero asignar el nombre del archivo a una 
serie ; solo entonces podra suprimir el archivo me- 
diante el borrado de la serie. For cpnsiguientc, para 
borrar el archivo FACTURA.$$$, la secuencia de ins- 
tmcciones sena: 

A$="FACTURA.$$$" 
I ERA,aA$ 

Este mctodo sc complica aun mas al renombrar un 
archivo (REHame), dado que dos archivos difercn- 
tes (nombre viejo y nombre nuevo) se han de asig- 
nar a series que se puedan manipular. A muchos 
usuarios les resultara mas sencillo cargar el CP/M 
para tales procedimientos, que sc puedcn llevar a 
cabo median te una unica li'nea. No obstante, ci 
CP/M posee sus propias dificultades, Fundamental- 
mente, no hay facilidades para ejecutar el basic 
Amstrad bajo CP/M, de modo que usted se vera 
obligado a utilizar el AmsDOS si desea programar 
el sistema de unidad de disco en basic. 

HI sistema operativo CP/M del disco de sistema 
es la version 2.2 que se ha venido aplicando en gran 
numero de maquinas de geslion de oeho bits en la 
ultima decada. Junto con el propio CP/M se pro- 
porcionan en el sistema las instrucciones "transito- 
rias" usual eSn Las instrucciones t ran si tori as son 
aquellas que estan retenidas permanentemente en 
disco y que sc cargan en la memoria del ordenador 
solo cuando se las necesita; luego son desechadas 
por el sistema operativo CP/M. Aqui el problema 
es que para poder utilizar una gran can li dad de ins- 
trucciones en CP/M (como PIP, que transfiere un 
archivo de un dispositivo periferico a otro), el siste- 
ma operativo realmente requiere que haya dos dis- 
cos instalados en el ordenador, uno para retener el 
disco de sistema de modo que se pueda acceder ra- 
pida y sencillamentc a las instrucciones transitorias, 
y otro para rctencr los archivos. 

Aparte de la necesidad de utilizar el CFIM para 
intercambiar continuamente los discos de datos y 
de sistema, poniendolos y sacandolos en una unica 



unidad, muchas instrucciones no tienen cn cuenta 
que el usuario tenga una sola unidad de diseo dispo- 
nibie y esperan que pueda transferir los archivos de 
una unidad a otra. Para contrarrestar esto, Ams- 
trad ha incluido instrucciones transitorias adiciona- 
les para la transferencia de archivos con una sola 
unidad. FILECOPY proporciona mensajes que per- 
miten el intercambio de discos al transferir un ar- 
chivo y, de forma similar, DISCCOPY copia un disco 
completo. Aun asi, usted habra de adquirir dos uni- 
dades para sacar el maximo partido del sistema. 

Puede decirse, no sin cinismo, que la de Amstrad 
es una maniobra inteligente para obligar a los cUen- 
tcs a adquirir dos unidades de disco cn lugar de 
una. Sin embargo, una explicacion mas benevola es 
que el suministrar el CP/M lienc su sentido en fun- 
cion de la cstrategia a largo plazo de Amstrad. La 
filosofia que subyace tras la gama de ordenadores 
de la empresa no es la de crear productos de tecno- 
logi'a punta, sino la de proporcionar cquipos ya pro- 
bados y comprobados que se puedan utilizar para 
una amplia gama de aplicaciones. De alli la deci- 
sion de la empresa dc oprar por el proccsador 
cuando la mayoria de ios fabricantes se disputan 
por producir maquinas de 16 bits. El empleo del 
CP/M encaja bicn, puesto que, aunquc no sea el 
sistema operativo de disco mas amable con el usua- 
rio, es adaptable y en todo el mundo hay miies de 
programadorcs que poseen la experiencia necesaria 
para escribir software para ejecutar bajo el sistema. 

A pesar de los problemas que supone la utiliza- 
cion del CP/M con una sola unidad de disco dispo- 
nible, Amstrad merece felicitaciones por propor- 
cionar una implementaci6n completa de un OS de 
disco tan potente como este cn un micro personal. 

El LOGO de Digital Research 

Dr LOGO es una version del popular lenguaje que se 
utiliza en muchos centros educativos europeos. El 
lenguaje opera bajo CP/M, que, por consiguiente, 
se ha de cargar antes de poder cargar el logo, y el 
Dr LOGO puede aprovechar las faeilidadcs operati- 
vas dc disco ampliadas del CP/M. Por ejemplo, el 
CP/M permite que los archivos se puedan llamar 
sin tener que digitar un nombre completo; de modo 
que. digitando un nombre parciaK el lenguaje lla- 
mara a todos los archivos que cncajen con esa des- 
cripcidn parciaL 



Arte de tortuga 

Estos patrones se crearon 
utfltzardo et lenguaje Dr logo. 
Los procedimientos que 
empleamos para crearfos solo 
exigieron unas pocas iineas de 
cddigo cada uno. Aunqye et Dr 
LOGO permite altera r los col ores 
de fondo y primer piano desde ei 
ienguaje, no se ha previsto la 
Foodificacion de ia forma de ia 
tortuga ni el coioreado de fas 
formas que se dibojan. No 
obstante, desde ef logo se 
puede generar son! do 
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CabezaJ de lectura/ ■ 
escritura 

El cabezal de lectura/'escritura 
detecta los cam bios que se 
producen en el campo 
magnBtico del disco y Ids 
traduce a senales eJictricas 



Ranura 
para disco 

Aqui se Insertan los discos 
Hitachi de 3 pulgadas 



Motores 

Estos motores se utilizan para 
alimentaria unidad. El motor 
de abajo hace girar el disco, 
mien Iras que el otro mueve el 
cabezal de leclura'cscritura a 
la pista correcta 




AMSTRAD 
DDI-1 



Essm. 

280x105x75 mm 



GAPACmAB 



Disco desistema: 169 K; 
disco dedatos; 178 K 



INTERFACES 



Interface individual en paralelo 
de 34 VI as. El cable de 
interface tiene capacidad para 
dosunidades de disco 



DOCUMENTACIOH 



El manual que se propofciona 
es muy irregular; en 
ocasiones resuita dificil 
local izar la informacrdn que se 
desea 



VENTAJAS 



La provtsidn de CP/M y deJ Or 
LOGO coloca a I o rdenador 
Amstrad al nivel de una 
maquina muy potente 



DE5VENTAJAS 



El AmsDOS no esta muy bien 
implementado y los usuarios 
que dispongan deuna sola 
unidad encontraran que ni el 
AmsDOS ni ei CP/IV! son 
totaimente adecuados para 
sus necesidades 



Placa de circmtos 

Regula fa fuente de alimentacidn 
de modo que los motores 
electrfcos se active n en todo 
memento a la velocidad 
adecuada 



Fuenle de ilimenta€i6n 

El DDI-1 posee su propia fuente 
de alimentacidn electrica 
incorporada. Esta separada 
del mecanismo de la unidad 
rrediante una placa metalica. 
Esta disipa el calor que 
pudiera generarse dentro de la 
fuente de alimentacidn y la 
protege de los campos 
mapnetfcos 



Ei LOCO pcrmite empiear las capacidades de soni- 
do y gmfict)s del Amstrad y la implementacion les 
resultant familiar a quicnes hayan seguido nuestra 
serie dedicada al logo. Tarn bi en se ha prcvisto que 
el lenguaje sea operado mediante una palanca de 
mando y pulsadores de disparo, de modo que es 
posible escribir juegos en logo que sc puedan desa- 
iTollar facilmente mediante control por palanca de 
mando. 

Si bien la implement aci6n del Dr logo es muy 
txiena y sale bien parada en comparacion con otras 
HEuchas versiones del lenguaje, existen ciertas 
dudas sobre como sc desempenara bajo las limit a- 
cx>nes del hardware. Por ejemplo, un programa de 
^e^elado (uno que cxige que el mismo discno se re- 
pcra varias veces con el fin de llenar la pantalla) que 
nr^ona a la perfeccion en el Commodore 64, ge- 
2Erd en el Amstrad un mensaje "no hay suficicnte 
srscio en la pila", to que indica que quiza ei len- 
no quepa tan comodamentc como deblera. 



Aparte de esto, el Dr logo cs rapido y amable y es 
una introduccion ideal al lenguaje. 

Tal como sucede con lodos ios sistemas de disco 
para micros personales, la popularidad del sistema, 
al menos al principio, dependera del apoyo de soft- 
ware, Amstrad ya ha realizado numerosas utilida- 
des para la unidad de disco, la mayoria de las cuales 
parecen dirigidas al aficionado personal mas 
"serio". Estos paquetes incluyen una base de datos, 
un procesador de textos y lenguajes adicionales 

como PASCAL. 

Al lanzar la unidad de disco para su maquina, 
Amstrad ha dado un paso evidentemenle cxitoso 
para hacer de su ordenador una maquina mas acor- 
de con el mercado sin imponer el precio que nor- 
malmente esta asociado a tales sistemas. La adicion 
de una unidad de disco ortoga al ordenador aiin 
mas competitividad y refleja las intenciones de 
Amstrad de ensanchar el horizonte de la maquina 
mas afia del desfallecienle mercado de juegos. 
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Programacidn/Juego de simulaci6n 



Asegurando 
las escotillas 




Prosiguiendo con nuestro 
proyecto de programacion, nos 
ocuparemos del codigo de los 
cuatro restantes eventos 
mayores que se desarroilan ^ 
antes de llegar a destin i^. ^ / 




El programa es dihgido al azar Mcia una subrutma 
de contingencia mayor mediante la subrutina de la 
linea 6500, que genera un numero aleatorio y lo 
utiliza en la sentencia ON X GOSUB de la linea 6510, 
descrita en el modulo anterior. Para dar cabida a la 
cantidad de posibilidades de este modulo, es nece- 
sario anadir a esta Imea los primcros numeros de 
linea de las cuatro contingencias extras* La linea 
6510 debe rezar ahora: / ^ --'^ j 

r 6510 ON X GOSUB 6530,6700,6800.6900:7000/ 
/ 7050 

El tercer ntimero de linea llama a una subrutina en 
la cual el barco es atacado por plratas. El programa 
comprueba st esta contingencia ya se ha producido 
examinando el valor del indicador de eventos para 
esta subrutina, M(3). Si M(3} es 1 , retorna al progra- 
ma principal; de lo contrario continua, poniendolo 
a 1 en ia iinea 6818 para evitar la repeticion. 

Es posible que todos los tripulantes esten muer- 
tos, razon que liana inelevante el ataque de los pi- 
ratas. El programa prepara un bucle para compro- 
bar los valores de la matriz de fortaleza de la tripu- 
, lacion, y cuenta los tripulantes con fortalezas de 0 o 
i^99 examinando la tasa de fortaleza, TS(T,2), la 
matriz de fortaleza/categoria. Los tripulantes falle- 
cidos o inexistentes se cuentan en X, y si X es igual a 
16 no queda ningunp y el^^ontrol se devuelve al 

programa principal, "^r ^: 

Si la contingencia no se ha implementado con an- 
terioridad y si quedan tripulantes a bordo, los pira- 
,s atacan, matando a algunos de ellos. La cantidad 
"^-muertos dependera de que la tripulacion dispon- 
ga de arm as para defenderse. La cuenta de los 
muertos se registrara en K, siendo dos el ntimero 
mmimo. La linea 6825 establece el valor de K en 
esta cifra, y el programa examma entonces el ele- 
mento apropiado de la matriz de provisiones, 
0A(2), para ver si hay algun arma a bordo. Si el 
valor de 0A(2) es 0 o -999, no hay ningun arma y K 
se establece en 4, Si hay armas a bordo, la variable 
S$ se establece en A PESAR DE TUS ARMAS. Si K se 
hubiera establecido en 4, SS cambia por NO TIENES 
ARMAS. 

Entre las lineas 6836 y 6845 se prepara otro bucle 
para suprimir el numero adecuado de tripulantes, y 
la linea 6835 iguala X a 0 para conservar una cuenta 
de esta cifra. Si el valor de fortaleza de un determi- 



nado elemento es 0 o -999, el bucle pasa a donside- 
rar el siguiente elemento; si no lo es, la iinea 6840 
establece el valor en —999 e incrementa el valor de 
X en 1 . Cuando el valor de X resulta igual al numero 
de tripulantes que serdn muertos, K, la linea 6S42 
establece el contador de! bucle, T, en 16 y el progra- 
ms sale del bucle. Si no quedan K tripulantes que 
matar, el programa saldra del bucle tras efectuar la 
btisqueda 16 veces. Se imprime el numero de tripu- 
lantes muertos, para completar la frase iniciada ya 
sea en la linea 6828 o bien en la 6830. Se solicita 
entonces al jugador que pulse cualquier tecla para 
continual. . i 



Rofura del timon 



El siguiente acontecimiento consiste en la rotura 
del tim6n, que hace necesaria una reparacitSn. Si se 
ha contratado algun mec^nico, y este esta aiin con 
vida, el timon se reparara rapidamente y el viaje se 
reanudara tras una breve demora; pero si no hay 
ningun mecanico a bordo, la travesia, como es logi-. 
CO, durara mas. La subrutina de rotura del timon; 
comienza en la linea 6900 y es el cuarto numero de 
linea de la senteocia ON X GOSUB de la linea 6510. 
Nuevamente, la subrutina comprueba si este even- 
to ya se ha producido mediante el metodo usual: 
ver si el valor de M(4) se ha establecido en 1 y, si no | 
fuera asi, establecerio en 1 . i 

El valor de X se establece en 4, indicando la can- j-^ 
tidad de semanas extras que durara el viaje si no ' 
hay ningun mecanico disponibie, E! programa re vi- 
sa entonces la matriz de fort ale za/categoria, TS(,), , 
en busca de un mecanico vivo. Entre las lineas 6930 • 
y 6938 se establece un bucle que busca el numero 3 
en la matriz de categoria de tripulacion de TS(»), 
que represent a un mecanico, y un valor para la for:^ 
taleza del mecanico que no sea igual a 0 ni a —999, 
lo que significaria que el mecanico estaria vivo. Si 
se satisfacen todas estas condiciones, entonces el 
valor de X se restahlece de 4 a L De haber disponi- 
ble un mecanico la averia del timon se reparara en- 
seguida y la duracion del viaje se incrementara en 
solo una semana. 

No obstante, se le dice al jugador: AUNQUE TIE* 
NES UN MECANICO o, si X es igual a 4, HQ TIENES 
NINGUN MECANICO Y. Entonces se imprime la dura- 
cion extra de la travesia. Este valor se suma a la 
duracion total del viaje, EW, en ia linea 6965 y en 
este momento el juego continuara pulsando cual- 
quier tecla. La variable X tiene, por consiguiente, 
dos finaiidades: priniero, indica el numero de se^^ 
manas a sumar al viaje, pero tambien actua a moda, 
de bandera, indicando si hay o no un mecani^^^^ 
ponible. ^•Siife 

Una tormenta, manipulada por la subrutina de la 
linea 7000, constituye el quinto evento mayor posi- 
ble. Desvia al barco de su curso y aumenta la dura- 
cion del viaje. Si entre la tripulacion hay algun ofi- 
cial, el barco recuperara pronto el rum bo correcto. 



Juego de simulacion/Programacion 




De no ser asf. el viaje durara mas tiempo. La es- 
tructura de esta submtina es similar a la subrutina 
del "limon roto" y. de hecho. utiliza parte de su 
codigo. 

El programa comprueba si la tormenta ya se ha 
producido y, en case negative, establece a 1 el valor 
de M(5) . La duracion extra del viaje se registra en el 
valor de X, que se establece en 2, y si no hay ningiin 
oficial a bordo la travesia dura dos semanas mas. 
Entre las lineas 7030 y 7038 se prepara un bacie 
para explorar la matriz de la tripulaci6n en busca de 
un oficial, buscando un valor de 4 en la matriz de 
categona. y un valor mayor que 0 en la matriz de 
fortaleza. Si se satisfacen estas exigencias, el valor 
de X se establece en 1, y T se establece en 16, ha- 
ciendo que el programa saiga del buck, 

S£ se establece en A PESAR DE QUE CUEMTAS CON 
UN OFICIAL o en NO TIENES NINGUN OFiCIAL Y, segun 
el valor de X. El programa pasa entonces a la Imea 
6950, de la subrutina de rotura del limon, para utili- 
zar de nuevo la secci6n del codigo que imprime la 
duracion extra de la travesia, incrementa EW, la du- 
racion del viaje, en X, el tiempo extra, y retorna al 
programa principal. 



vision, que recogera las provisiones extras; la canti- 
dad de suministros se selecciona al azar. La Imea 
7112 genera un numero aleatorio si este es 
menor que .25, pasa a la provision siguiente, (Exis- 
te una posibilidad entre cuatro de no conseguir 
cada uno de ios tipos de provisiones.) La h'nea 7115 
genera un numero aleatorio entre 5 y 14, almacena- 
do en X. La Imea 7120 imprime esta cantidad, se- 
guida por las unidades de esa provision en particu- 
lar, ya sea en kilos o en barriles. Si durante la sema- 
na actual alguna provision hubiera sido arrastrada 
por la borda, en la matriz de provisiones la cantidad 
se habria establecido en —999. De ser asi, la Imea 
7122 restablece el valor a 0 para permitir la adicion 
de las provisiones extras. Las provisiones extras, X, 
se suman a las provisiones existentes mediante la 
linea 7125, La travesia se incrementara en una o 
dos semanas. La linea 7135 decide de forma aleato- 
ria cual sera el incrementOj se le informa al jugador 
y se anade el tiempo extra a la variable de duraci6n_ 
del viaje, EW, en la linea 7140. _ \ \ 




iTierra, tierra! ^ 

El ultimo de los acontecimientos mayores, avistar 
una isla, se produce en la subrutina que empieza en 
la Ima 7050. Este es el uhimo numero de Imea de la 
sentencia ON X GOSUB de la Imea 6510. La isla no se 
halla en la ruta principal y, por tanto, una visita a la 
misma prolongaria la duracion del viaje. No obs- 
tante, cambiando el rumbo y desembarcando. el 
barco podria reabastecerse de algunas provisionegg^ 
Por consiguiente, el jugador debe tomar la decision 
de poner rumbo a tierra o continuar su recorrido 
actual. Si el barco visita la isla, el resuttado de la 
expedicion en busca de agua y com id a podria verse- 
fuertemente influido por cualquier encuentro pre- 
vio con el albatros. jSi d jugador hubiera abatido al 
albatros el desvio no tendria ningun exito! 

programa comprueba si la subrutina ya se ha 
ejecutado previamente. de la forma habitual. Se le 
informa entooc^ al jugador que las cartas indican 
la existenda de una isla en donde se podria reabas- 
tecer de provisioees y que el desvio prolongaria la 
duracion del viaje, y se le pregonta ^ va a realizar 
la visita o no. La linea 7062 aguarda una respu^ta v 
analiza el primer caracter de la entrada para deter- 
minar si la respuesta es si o no. Si ei Jugador no 
desea alejarse de su rumbo, el control retorna al 
programa principal mediante la linea 7086. Si la 
respuesta es SI o S, el jugador arriba a la isiar en 
la linea 7100. / / / 

■El programa comprueba entonces si el jugador 
ha abatido al albatros, en la linea 7106. Si ei alba- 
tros no fue muerto, B$, que se estableci6 en N en l^p^ 
hnea 48, no se modificara y el programa pasara a la> 
linea 7110. Sin embargo, si e! jugador abatid al ave, 
BS se habra establecido en S mediante la Imea 6162 
de la subrutina del albatros. Si el ave fue muerta. la 
isla sera una tierra yerma y el agua estara envene- 
nada> no se conseguiran provisiones y se le recorda- 
ra al jugador la circunstancia del disparo. El pro- 
grama es enviado hasta la hnea 7130, que incre- 
menta la duracion del viaje. 

Si el albatros no fue derribado, en la Ifnea 7110 
se prepara un bucle de 1 a 4 para cada tipo de pro- 





Programacidn' Juego de simulacion 



Modulo 9: Otros eventos mayores 

liticlaiizariMirnii 

48 AS--V'S5- -V 

Rutir^ CwOBit i L ia d@ piratas 



Vi I ^:-""=iT0i6 

il-- =^S^l2]=0ORTS{T.2)=-999THENX=X+1 
l\ \ -■ : 'HEN RETURN 
\\S "'\'CHRS(147) 

c!r SS- ELBARCOESATACAD0PORPIRATAS!*^GOSUB9100 
6824 PRINT;G0SU8 9200 
6S25 K-2 

6826 IF0A{2)-0OR 0A(2)=-999THEW K=4 
6828 S$="APESARDETUS ARMAS*" 
6830 IF K=4 THEN S$="NO TIENES ARMAS *" 
6832 GOSUB91G0 

6835 X=0 

6836 F0RT=1T016 

6838 1FTS(T,2)=0 OR TS(T, 2) --999 THEN 6845 
6840 X=X+1:TS(T.2)--999 
6842 IFX-KTHENT-16 
6845 NEXT 
6850 PRINTX; 

6855 SS="TRIPUUNTE HARESULTADO MUERTO*^' 

6856 IFX>1 THENSS= TRIPULANTES HAN RESULTADO MUERTOS*^' 
6860 G0SU8 9100 

6865 PRtNT:GOSUB9200 
6890 SS=KS:GOSUB9100 
6895 GET [$:IFIS=-^' THEN 6895 
6899 RETURN 



Rutina Continggncia del timon 

6900 REMTIMON 
6905 IFM[4) = 1 THEN RETURN 
6910 PRINT CHRS(1 47) 
6915 M(4)=1 

6920 SS="HAY PROBLEM AS CON EL TIMON[* ':GOSUB 9100 
6925 PRINT;GOSUB 9200 
6928 X=4 

6930 F0RT=1T016 

6935 IFTS[T,1)=3ANDTS{L2)<>0 AND TS(T,2}<>-999 THEN 

X-1:T=16 
6938 NEXT 

6940 SS = "APESAR DE QUE TIENES UN MECANICO*" 
6945 IF X=4 THEN S$ = '^NO TIENES MECANICO Y*'' 
6950 GOSU8 9100 

6955 S$= "TU VIAJE DURARA*' :G0SUB9100 

6960 PRINT X;"SEMAN AS MAS" 

6965 EW=EW+X 

6967 PRINT:GOSUB.920O 

6969 SS=KS;GOSUB9100 

6970 GET IS:IFI$='^" THEN 6970 
6975 RETURN 

Rutina Coiitingencia de la tormeiita 

7000 REM TORMENTA 
7005 IF!VI(5)=1 THEN RETURN 
7010 PRINTCHR$(147) 
7015 M(5)-1 

7020 S$= '^EL VIENTO TE APARTA DE TU RUMB0*":GOSUB 9100 

7022 SS= ' DURANTE UNA TORMENTA!*":GOSUB 9100 
7025 PRINT;GOSUB9200 

7023 X=2 

7030 F0RT-1T016 

7035 IFTS(TJ)=4ANDTS(T,2)<>0ANDTS(T,2)<>-999THEN 

X=1:T=16 
7038 NEXT 

7040 S$="A PESAR DE QUE CUENTAS CON UN ORCIAL*" 
7045 IF X=2THEN S$= 'NO TIENES NINGUN QFICIALY' " 
7049 GOTO 6950 



Rulina Contingenaia d€ la tsia 

7050 REM ISLA 
7055 IFM{6) = 1 THEN RETURN 
7060 PR1NTCHR$(147) 
7065 M(6)=1 

7070 SS= TUS CARTAS INDICAN LA EXISTENCIA DE UNA ISLA*" :GOSUB 
9100 

7071 SS- ' EN LA QUE PODRIAS* ' ;GQSUB 9100 

7072 SS="REABASTECERTE DE PROVISiONES*^GOSUB 9100 

7073 SS="PERO Si TE DESV1AS HAC1A ELU*'-:GOSUB 91 00 

7074 SS-"SUPONORA UNA MAYOR DURACION DEL VIAJE*":GOSUB 9100 

7075 PRINT:GOSUB9200 

7080 SS--QUIERES IR A LA fSLA?*":GOSUB 9100 

7082 INPUT IS:iS-LEFTS(IS.1) 

7084 IF ISo^S^ AND ISo^N " THEN 7082 

7086 PRJNT:GOSUB 9200 

7090 IF IS^-^N" THEN 7145 

7100 SS--LLEGAS A LA ISLA*':G0SUB 91 00 

7105 SS--YCONSIGU£S'":G0SUB9100 

7106 iFBS=-N" THEN 7110 

7107 PRirr:GOSUB 9200 

7108 PRiriT*-NADA!^:GOSUB9200 

7109 SS-^(RECUERDA EL ALBATROS!) :GOSUB 91 00:G0TO 7130 

7110 F0RT-1T0 4 

7112 IF RND(1)<.25 THEN 7129 
7115 X=I^JT(RND{1)*10)-h5 
7120 PRINT X;U$[T];''SDE";P$(T) 
7122 IFPA(T)=-999THENPA(T)-0 
7125 PA{T)-PA(T}+X 

7129 NEXT 

7130 S$= ' PERO AHORA EL VIAJE DURARA* " :GOSUB 9100 
7135 X-INT(RND(1)*2) + 1 

7139 PRINT X;:S$= 'SEMANAS MAS*^':GOSUB 91 00 

7140 EW=EW+X 

7145 PRmT;GQSUB9200 
7150 SS=KS:GOSUB9100 
7155 GET l$:IFI$-'"THEN 7155 
7159 RETURN 



Complementos al basic 

spectrum: 

Introducir [as siguientes modificaciones: 

6512 IFX=3 THEN GOSUB 6800 

6513 IFX=4 THEN GOSUB 6900 

6514 IFX=5 THEN GOSUB 7000 

6515 IFX=6 THEN GOSUB 7050 

6820 CLS 

6895 LET l$==INKEY$:IF l$= " "THEN GO TO 6895 
6910 CLS 

6970 LET l$=INKEY$:IF !S=""THEfJ GO TO 6970 
7010 CLS 
7060 CLS 

7082 INPUT !$:LETI$=1S(1T01} 

7155 LET l$=INKEYS:IF 1$="'THEN GO TO 7155 

SBC Micro: 

introducir las siguientes modificaciones: 

6820 CLS 
6895 l$=GETS 
6910 CLS 
6970 l$=GET$ 
7010 CLS 
7060 CLS 
7155 i$=GET$ 
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Gran Premio 2 



He aquf la segunda parte de un juego del cual ya hemos 
proporcionado un programa para su ordenador Atari. No olvide 
que la palanca de mando es obligatoria 



Pam conducir su bolido utilice la palanca de 
mando. Si logra ilegar a la meta, sera bonificado: el 
valor de la distancia recorrida se duplicarA, 




10 REM GRAN PREMIO 2 - P.BUNN ** 
15 PI=5:GOSUB 3000:ACCtDENTE=1000 
20 X2=14:X-116:S-PEEK(106)-S:Q=S*256:F0R 
N-Q+512 TO Q+ 640: POKE N,0:MEXT rJ:POKE 
54279,3 

30 POKE 559,46:P0KE 5324a,X:P0KE 704.21 6:P0KE 

704,70: POKE 53256.1 
40 FOR N =0+552 TO 0+561: READ A:POKE N,A:NEXTN 
50 DATA 129 J 95 J 65, 24, 24, 153, 21 9, 165, 36, 24 
60 GRAPHICS 0:SETCOLOR 2,0,0:P0KE 53277,3:POKE 

559 46 

65 POKE 752,1: POKE 53276. A 

66 FOR P=0 TO 23:POKE 201 ,X2:? ,S2S:NEXT P 

70 S=ST]CK{0):X=X+(S=7)*2:X=X-(S-11)*2:POKE 
53248,X 

72 SOUND 0.40.10 J5:SC=SC+PI:S0UND 0,0,0,0 

75 IFOTHENO=0:Z=2:GOT0110 

80 A=PEEK{53770) 

90 IFA>85ANDA<170THENZ-2 
100 1FA>170 AMD X2<15 THEM Z-3:0=1 
105 tFA<85 AND X2>2 THEM X2=X2-1:Z=1:0 = 1 
110 POKE 201 .X2 

Its IF A=192 AND NOT \ THEM ? ,F$:I-1:GOTO 145 

120 IF Z=1 THEN?, SIS 

130 IFZ=2THEN?,S2S 

140 IFZ-3THEN?,S3S:X2=X2+1 

145 Y=PEEK(53252):IF YoO AND I THEN GOTO 2000 

t50 IFYoO THEN GOTO ACCIOENTE 

m GOTO 70 

HOO REM**ACCIDENTE!l!t** 
WO N=INT(RND{0)*10):POKE 




Q + 552+ N , PEEK{53770):SOUND 
0,RND{0)*20+ 20,80, 15:P0KE 704, PEEK {53770) 

1020 IF PEEK{53770)<240 THEN 1010 

1030 POKE 53248.0:? :? 'SUS PUNTOS: \SC :?:?:? "PULSE 
UNA TECLA.": POKE 764,255 

1035 SOUND 0,0,0,0 

1040 IF PEEK(764)- 255 THEN 1040 

1050 RUN 

2000 FORY=OT0 255:POKE710,Y:NEXTY 

2005 ?CHRS(125):" PUNTOS:";SC:POKE 710,0 

2010 7'' BONO :1 000'' :B= 1000 

2020 F0RG=1 TOIOOOSTtP 

rO:B=B-10:SC-SC+10:POSmON14,0:?SC:POSmON 
14.1:?B;" ":SO[IMOO,a4,t0.10:NEXTG 

2030 SOUND 0,0.0.0 

2040 ? :PI = PI*2:'? ^1 KJW VALE "iPI:" PUNTOS" 
2045 RESTORE: 1=0 
2050 GOTO 20 

3000 DfMF$(8)^S1$(8).S2S(8),S3S(d] 

3010 RESTORE 3000:P[>RP=1 TO 8 

3020 READA.B.CD 

3030 F$(P,P)-CHRS(AJ 

3040 S1$(P,P)=CHf?SfB) 

3050 S2SfP.P' :~"s : 

3060 S3S(p,? =:-"^ : 

3070 NEXTP 

3080 RESTOfS:Rr,= 

3090 DATA 1^ 5 21 " :-: II 32.32 

3100 DAT-zr i: 1:5 32.32,32 

3110 DATA 2:' M :! 2' - .32.32,32 

3120 data2j: :: : -ao,6,32.7 




on de un brazo-robot 




Para el 
Spectrum 

Ahora of recemos para el 
Spectrum un programa que 
permite controlar el brazo-robot 
a traves de ia interface 
construida anteriormente 



El software requerido para controlar el brazo-robot 
debe basarse en codigo maquina, porque los servo- 
motores digitales empieados requieren impulses re- 
gulares cada quincuagesima de segundo. Tales ve- 
locidades se hallan fuera del alcance de un progra- 
ma en BASIC. Al igual que las versiones para el 
Commodore y el BBC Micro ^ este c6digo maquina 
se ejecuta sobre una base de interrupciones, pero 
difiere significativamente porque el Spectrum utili- 
za un procesador Z80 en vez de los de la serie 
65XX que emplean las otras dos maquinas. La 
mejor forma de tratar interrupciooes en codigo ma- 
quina de Z80 es utilizar interrupciones en modo 
IM 2. Para explicarlo en t^rminos simples, cuando 



se establece esta modalidad de interrupciones y se 
genera una interrupcion para actualizar la visualiza- 
ci6n en pantalla (afortunadamente, alrededor de 
cada quincuagesima de segundo), el procesador 
toma la direcci6n de inicio del codigo de servicio de 
interrupcion de dos fuentes- El byte hi de la direc- 
ci6n esta retenido en el registro I y el byte io se 
toma del estado del bus de datos cuando se produjo 
la interrupcion. 

El sistema esta dlseriado para comunicaciones 
con perifericos conectados al bus de datos que pue- 
dan controlar el valor retenido en el bus. Sin em- 
bargo, en nuestra aplicacidn no conocemos el esta- 
do del bus de datos y, por Jo tanto, hemos de aco- 
modar las 256 posibilidades. El programa, por con- 
siguiente, prepara una pagina de memoria para re- 
tener la direccidn de comienzo real de nuestro pro- 
grama. Llenar una pagina con #FBs y apuntar a la 
pagina mediante el establecimiento del registro I 
provoca una mtemipci6n IM 2 que empezara a eje- 
cutar codigo en la posicion #FBFB. (Esta tecnica se 
describira en profundidad en una futura serie de 
codigo maquina dedicada al OS del Spectrum-) 

El resto del codigo maquina utiliza los mismos 
principios de operacion que en las versiones 65XX, 
produciendo una corriente de impulsos hacia la 
puerta E/S 31, la puerta asociada a nuestra interfa- 
ce. El programa de control en basic, asimismo, 
sigue Imeas similares a las desarrolladas para el 
BBC Micro y el Commodore 64, permitiendo Ja 
programacion de secuencias desde el teclado y su 
ulterior reproducci6n. 



Programador 
de secuencias 
para el braze 
en el Spectrum 



CargadOr en basic 2100 PRfWrAJ 11.2: Vb...sigiJiente y anterfor contador 

10 REM 2110 PHINTAT12.2:''e.....estahlecernL!evDcontador" 

t5 REM 2120 PRINT AT 13, 2;''t/d... para aum/dismvelocidad" 

17 REM'* " 2130 PRINT AT 1,2rcontador='"t;^ " 

20 REM-' CDfrtrolador " 2135 FOR t=1 TO 4:PRINTr(cJ)r "NEXT i PRINT 

25 REM'* braio spedrum *' 2140 RETURN 

30 REM-* " 2190 : 

40 REM — - **** 3000 REM"'* prMramafbrazD"'* 

50 REM "*** " 3(j^Q POKEtJM 

60 : 3020 LETdx-5 

70 CLEAR 30000 3030 LEraS=jNK&Vl IF aS-"" THEN GO TO 3O30 

80 LETsa=64017:REMconnieii20c/ricuna 3035 IF 35=^0" THEN LET p=PEEK(np)+dx:IF p<£56 THEN POKE np,p 

82 LET n p = 64 O08: RE M d i reccfo n comienzo fiuevafKJS 3040 J F aS= " m " THEN LET p= PEEK { np) - dx: I F p >0 TH E N POKE np , p 

84 LET dl=64016:REM drrsccian factor demora 305C IF aS='^p" THEN LET p= PEEK (np-i- 1 ) + dx; JF p<256 THEN POKE 
86 LETen— 64148:REMcurtaapagada np+1,p 

88 LET sm=64151 :REM dir CDmien^Q movimrento unifontie 3060 IF ^= T THEH LET p= PEEK(np+1) -dx:rF p>0 THEN POKE np+ 1 p 

90 L0AD''ARM.HEX''CODEsa 306S lFaS=''a" THEN LETp=PEEK[np+2)+dx:IFp<256THEN POKE 
100 GOSUBlOOO:REMpreparacicjn np+2.p 

110 CLS 3070 IF aS="z" THEN LET p= PEEK (np+2)-dX:iFp>0 THEN POKE 
120 PRINT AT B,2rtegustaria:" np+2,p 

130 PRINT AT 9,2;"! programar dueva secuencia" 3080 IFaS= "x ' THEN LETp^PEEK {np+3)+3*dx:tF p<256THEN POKE 
140 PRINT AT 10,2;" 2 ariadtrinoviiriieiitD5 a un programa" np+3,p 

150 PRINT AT 1 1 ,2; '3. cargar un archive " 3090 IF aS-*'c" THEN LET p=PEEK inu+3}-3*dx:IF p>0 THEN POKE 
160 PRINT AT 12,2; " 4. ,salir deJ programa" [lp+3,p 

170 LET g3=INKEY$:IFg3="" THEN GOT0 170 3100 !FaS='r THEN FOR i-1 TO 4;P0KE np+fc-l ,r{c,il:NEXT i 

180 IF9S="r'THENLETc-l:LETIm=0 3110 tF aS-^'v" THEN LET c-e+1:IFc>mc THEN LET c=1 

190 IFgS-"r' 0RgS="2" THEN GO SUB20QD:60 SUB3000:GO SUB 3120 IFaS-^b'* THEN LETc=C-1;IF:<1 THEN LET c-mc 

40aD:G0 SOB 5O0O 3130 IFaS='e" THEN PRINT AT 2,20:'"val0rCDnt3dor":rNPUTc 

200 IF gS= "3" THEN GO SUB 6000 3140 IF AS= V THEN FOR 1-1 TO 4;LET r(Cj)=P£EK (ip+i-1):NEn i: 
210 IF gS- "4" THEN CLS: RANDOMIZE USR en :STOP LET C=C-h 1 

220 GOT0 110 3145 IF a$='-i" THEN LET dx=dx+1 

230 : 3147 IF a$=^d " THEN LET dx=dx-1:IF dx<1 THEN LET dx=1 

1000 REM -* ' * preparacran " " 31 50 IF olm THEN LET lin=c 

1010 LET :=1 iLET n$=4:REM n. de servoS 31 60 IF ococ AND c>1 THEN' PRINT AT 1 ,2;'contador=' ;c-1 " ;:FOR 

1020 LET lm=0:LEToc = 0: LET df=10:REMfaclordedemora i=1 TO 4:PRINTr(c-1 J);" NEXTi:PRINT 

1030 LET mc= 1 QD: REM max. contador 31 70 LET oc=^c 

1040 D1Mr(mc,ns):REMmatrizpDS(C!onesteclas 3190 IFaS<>'"q"THENG0TO3030 

1 050 Dl M l( 1 ) ; R ElVI matrix datos uiti momajt 3200 RETURN 

1060 FORi=0TO3;POKEnp+i.0:NE)CTi 3900 ; 

1 070 RAN DOM I ZE USR sa 4000 REM ' * ' ' reflradu ci r secuencia * * * * 

1090 RETURN 4010 CLS 

1099: 4020PRtNTAT12,2:"repfoducirsecuencias/n,rrepite^' 

2000 REM^ " * " mforme *' ** 4030 LET al- " INKEYS: IF a$<> '^s" AND aS<> " n" AND aSo' r" THEN 

2010 CLS GO TO 4030 

2020 PRINT AT 3, 2; "por favor (Jtiliza" 4040 IF aS= ' n" THEN RETURW 

2030 PRINT AT 4,2:' n/m. . . para i/d" 4050 IF aS= " r" THEN PRINT AT 14, 1 ; -factor de demora 1 - 2S5"::INPUT df 

2040 PR I NT AT 5 , 2 : ^ p/l . . . pa ra 1 . brazo a r/a b " 4060 If df < 1 0 R df >255 THE N GO TO 4050 

2050 PRINT AT B,2;'Vi. ..para 2.° braio ar/ab" 4070 POKE dt,df:REM estabfecer registro demora 

2060 PRINT AT 7,2;"x/c,„para piriza abrir/cerrar" 4080 FOR i=l TO Im 

2070 PR I NT AT 6 . 2 i** s gu ardar u na posicion " 4090 PR I NT AT 1 . 2 ; " n . ery secuencia = " ' r " ' 

2080 PRINT AT 9.2:'q retornar al mem" 41 00 FOR s-1 TO 4 

2090 PRINTAT 1 0.2 ;'r.. .. mover a posicion guardada" 4110 P0KEr>p + s-1j(f,s) 



1696 



Construccion de un brazo-roboVBricolaje 



4120 MEXTs^WtXTr 
4140 GO TO 4010 
4990 : 

5OO0 REM " " guardar un archivo * * * * 
5010 CLS 

5020 PRINT AT 12,2: " guardar Jecuenda im}7" 

5030 LETgS^INKEYSilFgSo^'s" AND gSo^'n'^ THEN GOTO 5030 

5040 IF g$=^Ti" THEN RETURN 

5050 LETKD-im 

5D60 I N PUT " mm &fe a rch ivo "' ; fS 

5065 PRINT "pulsar play y record" 

5067 RANDOiVlIZE USR eniREM cuna apagada 

5070 SAVE fS^ Mm" DATAIQ 

5080 SAVE fS+".r" DATA F{J 

50S5 RANDOMIZE USR S5:flEM cufia encendida otra vei 

5090 RETURN 

5900 : 

6000 REM cargar un arcriivo 
6010 CLS 

6020 PR I NT AT 1 2 , 2r' ca rga r ti n a rchivo {sfn) ? " 

6030 LET q$= INKEYS:IF gSo^'s" AND gSo^n" THEN GO TO 6030 

60^0 IF gS="n"THEN RETURN 

6045 INPUT -'aombre arctiivo";fS 

6050 FOR 1=1 TO mc 

6060 F0Rj=1T0ns 

6070 LETr(i,|)-0 

6080 NEXTj:NEXTi 

6090 RANDOMIZE USR er^iREM curia apagada 

6100 LOAD fE+Mm" DATA 10 

6110 LETIm=l[1):LETc=tm:LEToc=0 

6120 LOAD fS+ '.f DATA rO 

6125 RANDOMIZE USR sa:REM cuna encendida otra vez 

6130 RETURN 



Listacto assembly 







1000 


;CO™OLADOR SRAZO SPECTRUM 






1010 








001F 




1020 


PORT: 


EQU 


31 


F900 




1030 




ORG 


#Fgoo 


F900 




1040 


WIOTTAB 


DEFS 


256 


FAOO 




1050 


ANGTAB 


OEFS 


8 


FAOS 




1060 


NEWPOS 


DEFS 


8 


FA10 




1070 
1060 


DELAY: 


DEFS 


1 






1090 


IPREPARARTABLA VECTOR 


FAT1 


2100FC 


1100 


INIT: 


LO 


HL,#FCO0 


FA14 


OIFBOO 


1110 




LD 


BC,#0OF8 


FA17 


71 


1120 


L00P1: 


LD 


(HL),C 


FA18 


23 


1130 




INC 


HL 


FA19 


10FC 


1140 




DJNZ 


L0OP1 


FA1B 


71 


1150 




LD 


(HL),C 


FA1C 


3EFC 


1170 




LD 


A.#FC 


FA1E 


ED47 


11BD 




LD 


l,A 






tm 


;INITTABLASAFF 






1200 








FA20 


2100F9 


1210 




LD 


HL,MOmB 


FA23 


3EFF 


1220 




LD 


A,#FF 


fA25 


06FF 


1230 




LD 


B,#FF 




77 


1240 


L00P2: 


LD 


{HU,A 


¥m 


2C 


1250 




INC 


L 


¥m 


10FC 


1260 




DJNZ 


L00P2 


FA26 


2100fA 


1270 




LD 


HL,ANGTAB 


FA2E 


0610 


1280 




LD 


8,16 


FA30 


77 


1290 


L00P2A 


LD 


[HL),A 


FA31 


2C 


1300 




INC 


L 


FA32 


lOFD 


1305 




DJNZ 


L00P2A 


FA34 


E06£ 


1310 




]M 


2 


FA36 


C9 


1320 




RET 








1380 


; MANEJAOOR INTERRUPCIONES 






1390 








FA37 


F3 


1410 


HANDLE 


Dl 




FA3e 


F5 


143Q 




PUSH 


AF 


FA39 


C5 


1430 




PUSH 


80 


FA3A 


D5 


1440 




PUSH 


DE 


FA3B 


E5 


1450 




PUSH 


HL 


FA3C 


FF 


1460 




RST 


#38;RUTINANML 


FA3D 


F3 


1470 




01 


FA3E 


CD47FA 


1480 




CALL 


EVENT iNUESTRA RUTINA 


FA41 


El 


1490 




POP 


HL 


FA42 


D1 


1500 




POP 


DE 


FA43 


CI 


1510 




POP 


BC 


FA44 


F1 


1520 




POP 


AF 


FA45 


FB 


1530 




El 




FA46 


C9 


1540 
1550 
1560 




RCT 








1570 




BUTBWEVEBfT+++ + 






15B0 








FA47 


0608 


1590 


EVEMT: 


ID 


B.B 


FA49 


3E7F 


1600 




LO 


A.#7F 


FA4B 


16F0 


1610 




LO 


D,#FD 


FA4D 


215SFA 


1620 




LO 


Hl,HX+2 


FA50 


DD2100FA 


1630 




LD 




FA54 


3607 


1635 




LD 




FA56 


DD5E07 


1640 


FIX: 


LD 


£,(IX+7> 


FA59 


12 


1650 




LD 


(DE).A 


FA5A 


OF 


1660 




RRCA 


FA5B 


35 


1670 




DEC 


(HL) 




lOFa 


1680 




OJNZ 


FIX 



FA5E 0600 

FA60 3EFF 

FA62 2100F9 

FA65 A6 

FA66 77 

FA67 2C 

FA6S 10FB 



FA6A 3EFF 
FA6C D31F 



FA6E D5 

FA6F 1E04 

FA71 16FF 

FA73 CDaBFA 

FA76 Dl 



FA77 0E1F 
FA79 06FF 



1690 ; 

1740 ;PREP MOTTAB PARA PORTSEND 
1750 : 
1760 
1770 
1780 

1790 LO0P3: 
1800 
1810 
1820 
1830 ; 

1840 ;+-H + +COMENZARIMPULSOS++ + + 
1850 ; 

1660 LD A,#FF 

1S70 OUT (PORT),A 

18" 
1885 
1887 

leas 

1890 
1892 
1894 



LD B.O 

LO A,#FF 

LO HL.MOTTAB 

AND [HL) 

LD (HL),A 

INC L 

DJNZ L00P3 



; + + + + LLAMAR DEMORA + + + + 
PUSH DE 
LD E,4 
LD D,#FF 
CALL OLOOP 
POP DE 



1920 

1930 ;+ + + -fENVIARMOnABAPORT++ + + 
1940 ; 

1950 LD a PORT 

1960 LD B,#FF 



CAtR 

rnfo 




1970 


LD 


L,00 


CA7n 


rnn'5 


1980 


0T1R 








1990 : 










ZOOO ;-H + + -i'RESTAURARMOnABAFF + +++ 


+ 

FA7F 




2010 


LD 


A,#FF 


FAft1 


riKnn 


2020 


LD 


B,0 


rAObl 


1 1 n n FQ 
i£ 1 UUrM 


2030 


LD 


HL.MOTTAB 


FAB5 


77 


2040 L00P4: 


LO 


(HL),A 


rAoif 


Zlr 


2050 


IfJC 


L 


rAoD 


lUrL 


2060 


DJNZ 


L00P4 


rAoA 


La 


2070 


RET 








2060 + + + BUGLE OEM0RA++ + + 






2090 ; 






rAoD 


m 

1 u 


2100 OLOOP: 


DEC 


E 




rft 
Lo 


2110 


RET 


1 




10 


2120 ILOOP: 


DEC 


D 




UHCJDrft 


2130 


JP 


Z, OLOOP 


rng 1 


rinncA 


2140 


JP 


ILOOP 






2200 ; 










2210 :+ + + +RESTAURARIM1++ + + 






2220 










2230 REST: 


IM 


1 




Us 


2240 


RET 








2250 : 










2340 :++++MOVEDORUNJFORME+ + + + 






2350 ; 






FA97 


0EO4 


2360 START: 


LD 


C,4 


FA90 


0604 


2370 


LD 


B,4 ;PREPARAR 










CONTADORES 


FA9B 


2130FA 


2380 


LD 


HL.ANGTAe+3 


FA9E 


110BFA 


2390 


LD 


DE.NEWPOS+3 


FAA1 


7E 


2400 NEXMOT 


LD 




FAA2 


EB 


2410 


EX 




FAA3 


BE 


2420 


CP 




FAA4 


EB 


2430 


EX 




FAA5 


280A 


2440 


JR 


Z, MOVED 


FAA7 


3804 


2450 


JR 


CADD 


FAA9 


35 


2460 


DEC 


(HLl 


FAAA 


C3B2FA 


2470 


JP 


NEXT 


FAAD 


34 


2480 ADO: 


INC 


m 


FAAE 


C3B2FA 


2490 


JP 


NEXT 


FAB1 


OD 


2500 MOVED: 


DEC 


C 


FAB2 


2B 


2510 NEXT: 


DEC 


HL 


FAB3 


IB 


2520 


DEC 


OE 


FAS4 


10EB 


2530 


DJNZ 


NEXMOT 


FAB6 


F5 


2540 


PUSH 


AF 


FAB7 


D5 


2550 


PUSH 


DE 


FAB8 


ED5B10FA 


2560 


LD 


DE.(DELAY) 


FABC 


16FF 


2570 


LD 


D,#FF 


FABE 


CO&BFA 


2580 


CALL 


OLOOP ;LU\MAR DEMORA 


FAC1 


01 


2590 


POP 


DE 


FAC2 


F1 


2600 


POP 


AF 


FAC3 


20DZ 


2610 


JR 


NZ,START 


FAC5 


Cfl 


2620 


RET 








3000 ;++ + + PREPARAR 


MANEJADOR + + + + 






3010 ;++ + +DIRECCIONDESALTO+ + + + 






3020 ; 






FBFB 




3030 


ORG 


#FeFB 


FBFB 


F3 


3040 


Dl 




FBFC 


C337FA 


3050 


JP 


HANDLE 


Pass 2 errors: 


00 







ADD 

DELAY 

FIX 

ILOOP 

L0OP1 

L00P2A 

L00P4 

MOVED 

NEXNAOT 

OLOOP 

REST 



FAAD 
FA10 
FA56 
FA8D 
FA17 
FA30 
FA86 
FAB1 
FAA1 
FA8B 
FA94 



ANGTAB FAOO 
EVENT FA47 
HANDLE FA37 
INfT FA11 
L00P2 FA27 
LOOPS FA65 
MOnAB F900 
NEWPOS FA08 
NEXT FAB 2 
PORT 001 F 
START FA97 



^ inaquifia/Sistemas operatives 



Imagenes a trozos 

Vamos a analizar la tecnica de producir al mismo tiempo dibujo y 
texto, tan frecuente en programas de juegos 



■ Laprimefa interrupcidn de 
barrido conecia el modo en alta 
resolucion 




- La segunda interrupcidn de 
barndo devuefve al modo de 
texto 



Las dos caras de la historia 

Muchos juegos de aventuras 
comeraales escritos para el 
Commodore 64 emplean 
t^cnlcas de interrupcion de 
barndo para obtener dibujos en 
alta resoluciOn y texto 
simultaneamente. Splderman, 
cuyo autor es Scott Adams y que 
IlListramos aqui\ utiliza ei tercio 
superior de ta pantalla para 
visualizar una posicltSn en eJ 
juego; los restantes dos terclos 
se usan para describir la escena 
en el modo normal de 
vlsualizaci6ndete)(tos. El 
e?(plorador de bar r I do de te TV 
est^ programado para generar 
dos interrupciones cada vez que 
se inspecciona la pantalla: la 
primera en la parte superior y la 
segunda aproxi madam ente un 
tercio mis abajo. Cada vez que 
sucede una Interrupcldn de 
barrido se llama una rutina de 
interrupcion. toquehaceque la 
visuafizacion bascule entre los 
modos de alta resolucion y el de 
texto 



Para visualizar los datos de video, d chip VIC-II 
debc Iccrlos de la memoria. Esto ^^e consiguc ha- 
ciendo que el VIC-If acceda a algunas Ifneas (no 
todas) del bus de direcciones, y a todas las lineas 
del bus de datos. El proceso por el cual el VlC-II 
lee la ROM y la RAM companida con el 6510 se 
denomina acceso direao a memoria (DMA). El 
VIC-II debe, en teoria. usar las Imeas de direccion 
o de datos en Iqs ratos en que el 6510 no ias utiiice. 
en cuyo caso la actuacion de am bos procesadores es 
"transparente ' redprocamente. Pero el 6510 es un 
procesador baslante modesto con muy pocos regis- 
tros intemos y ninguoa de las instrucciones del 6510 
consume mas de siete ciclos de reloj (algunas tan 
soio tres o cuatro). 

Ya que el VIC-II debe leer todo un con junto de 
datos, sobre todo cuando visualiza varios sprites, 
no hay tiempo material para que pueda actuar de la 
forma transparente antedicha. Per cllo, el VIC-II 
tiene una linea de control especial llamada dc biis 
disponible (BA: bits avaiiabie) que puede emplear 
cuando desee enviar una seiial de "precedencia" al 
6510. Lo cual le permite reservarse tanto tiempo 
como necesite para leer los datos de video. 

Cuando ia linea BA se pone baja {low) quiere 
decir que el chip del video solicita tiempo al 6510. 
Entonces el otro chip dispone del tiempo suficiente 
para rematar la instruccion que este realizando 
antes de que el VIC-II baje la linea de control de 
habUitacion de direcciones (AEC) y des active sin 
mas los manejadores del bus de direcciones del 
6510. Esto equivale a desarmar por sorpresa al 
6510 con otra arma mas poderosa: este no se da 
cuenta de que ha sido puesto fuera de combate. 

El tiempo robado del 6510 por el chip VIC-II es 
importante. For ejemplo, las direcciones del punte- 
ro de caracteres deben ser tomadas despues de 
cada octava linea de barrido visualizada en la pan- 
talla (ya que los caracteres tienen echo filas de pi- 
xels) y cada linea necesita 40 accesos consccutivos 
para torn a r los punteros de la memoria de video 
(hay 40 caracteres por fila dc pantalla). En el siste- 
ma PAL, el chip del video renueva una Imea si y 
otra no de las 625 Imeas de barrido en la pantalla 
del televisor aproximadamente 25 veces por segun- 
do; el sistema americano NSTC tiene 524 lineas, y 
las renueva 30 veces por segundo. Esto suma una 
buena cantidad de tiempo. De hecho, una sencilla 
operacion aritmetica mucstra que el efecto neto es 
el freno en la velocidad del 6510 en el 15 o 20 % 
aproximadamente. 

Los DMA no tienen ningun efecto notable sobre 
el funcionamiento interno de la maquina. Pcro 
cuando est a en cu est ion el tiempo real dc E/S cstas 
"ausencias*' imprevistas del 6510 pueden convertir- 
se en un prohlema, por ejemplo, en el funciona- 
miento de la cassette. En talcs casos puede ser ne- 
cesario desconectar la pantalla (por medio de POKE 



53265, 11) durante la E/S, y volverla a conectar (con 
POKE 53265,27) despues de finalizada la E/S. HI que 
el empleo del acceso directo a la memoria que hace 
el VIC-II resulte problematico durante una E/S de- 
pendera del dispositive externo y del metodo em- 
pleado para comunicarse con ei. En muchos casos, 
como el acceso a un disco, no sera necesario desco- 
nectar la pantalla. 

Partir la pantalla 

Una caracterfstica interesante del Commodore 64 
consiste en que, si se programa habilmente, es posi- 
blc dividir la pantalla visual en dos modos de reso- 
lucion alta y baja. Esto puede hacer, por ejemplo, 
que un grafico se este visualizando al mismo tiempo 
que se imprime un texto o se realiza cualquiera otra 
interaccion con el usuario en baja resolucion solo 
en una porcion de la pantalla. 

El programa para partir la pantalla que propor- 
cionamos aqui muestra varios de los aspectos trata- 
dos. Se ha preparado una pequena pantalla en alta 
resolucion detras de la ROM del interprete de 
BASIC y se visualiza continuamente en el tercio su- 
perior de la pantalla. Al mismo tiempo. los dos ter- 
cios inferiores quedan en el modo normal de baja 
resolucion. 

Ya hemos estudiado el empleo de los vectores de 
la RAM en el Commodore 64. Mostramos como el 
cambio del valor de un puntero de dos bytes nos 
permit 1 a desviar una rutina del sistema operativo a 
un codigo ere ado por nosotros. Para obtener una 
particion de la pantalla desviaremos la rutina IRQ 
de una manera algo sibilina. 

Hay varios modos de disparar una IRQ en el 
6510. La manera habitual es que uno de los tcmpo- 
rizadores del CIA ponga un bit del registro del flag 
de interrupcion (IKR) en la direccion 53273 ($0019) 
cada sesentavo de segundo. Esto provoca la ejccu- 
cion de la rutina de servicio IRQ, ia cual, entre 
otras CQsas, inspecciona la matriz de concxiones del 
teclado para saber si se pulso alguna tec! a. 1 am hi en 
se ponen a uno los bits del IFR por medio del chip 
VIC-II cuando se cumplen ciertos eventos, tales 
como el caso de colision de dos sprites o cuando el 
contador de barrido alcance un valor preestableci- 
d(^. Hay otro registro, el registro activador de inte- 
rrupciones (IBR) en la direccion 53274 ($D01 A) que 
acttia como un conector activador de la linea IRQ 
del 6510. 

Si los bits correspondientes del TER son puestos 
por el programador a 1 ^ entonces los bits activados 
del IFR dispararan una IRQ en el 6510. 

La idea general del programa es la siguiente: . 

I) Cuando sucede una interrupcion de barrido en 
la parte superior de la pantalla, activar el modo de 
mapa de bits y despues establecer la interrupcion 
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de barrido a mitad de la pantalla. Retorno de la 
interrupcion (RTI). 

2) A la interrupci6n en la mitad de la pantalla, vol- 
ver a establecer el modo en baja rcsolucion y esta- 
bleccr despues la siguiente interrupcion de barrido 
para que suceda en la parte superior de la pantalla 
(seguido de otro RTI). 

Observese un aspecto algo espinoso de esta idea: 
parte de la memoria normal de pantalla correspon- 
diente al tercio superior de la pantalla se ha em- 
pleado para informacion del color cn la pantalla de 
alia resoludon: los dos tercios restantes se emplean 
para datos de caracteres de la manera habitual. 

Sin embargo, el programa tiene una dificultad. 
Las interrupcioncs de barrido sucederan eada cin- 
cuentavo de segundo y deben atenderse inmediata- 
mente, pues de lo contrario el barrido tendra que 
seguir desplazandose, y visualizara datos erroncos. 
Ahora bien. en cireunstancias normalcs, la rutina 
de servicio de IRQ se dispara cada sesentavo de se- 
gundo. La rutina de servicio es bastante larga y si 
ocurrc justamente antes de la interrupcion de barri- 
do, se producira un retraso antes de llegar a nuestra 
curia de barrido del programa. Esto hay que cvitar- 
io a toda costa, pues si no es asi la pantalla bascula- 
ra en la frontera de alta y la baja resolucion. 

La solucion a este problem a consiste en obligar a 



la rutina IRQ a que se ejecute inmcdiatamente des- 
pues del codigo de la cuna de barrido. Esto se con- 
sigue desactivando el temporizador habitual del se- 
sentavo de segundo, y asi se desactiva el disparador 
habitual de IRQ, saltando a la rutina IRQ justamente 
despues de haber ejecutado la cuna de barrido. 
Esto obliga a que los dos fragmentos de codigo se 
ejecuten en sincronia el uno con el otro. Natural- 
mente esto solo significa que el teclado sera margi- 
nal men tc inspeecionado eon menor frecuencia, lo 
que tiene el litil efecto lateral de acelerar algo la 
ejeeueion del basic, sin mayores daiios. 

Final mente, hemos puesto la pantalla en alta re- 
fiolucion detras de la ROM del interprete de basic. 
Esto hace que el ''puntearla" cn basic resulte algo 
dificultoso, pues el lenguaje no puede leer el area 
de RAM que esta detras de la ROM del basic, y no 
podemos realizar los necesarios AND y OR para esta- 
blecer los pixels individuales. No obstante, un POKE 
puede pasar por la ROM del basic y llegar hast a la 
RAM trasera, permitiendo el plotting simple desde 
el BASIC. En los programas de solo lenguaje maqui- 
na no necesitamos la ROM del interprete, y como 
no representan mas que 8 K de espacio dcspcrdicia- 
do, se desconecta. Unos pcquenos arreglos en el 
listado fuente le permitiran reposlcionar la pantalla 
en alta resolucion de modo que pueda usarse con 
mayor facilidad desde el basic. 
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rama de particibn de pantalla para 064 



del BASIC 



* CARGADOR BASIC DEL PROGRAMA 

PARTICJ0NPANTALU64 
'WOTA — EN ESTA VERSION 
- UALT. RES. ESTABAJO EL BASIC 
^ LfJEGO NO SE PUEDE USAR PEEK 
EN SUBR. PLOT 



EBA DE PARTIClOW PANTALLA* 

: 234,173,25.208 
.55.160,21,141,25 

73,2.141,0,221 

32 1^1,17,208,41 

■ -50,255,141 
: '03,3,192 

■ ■41,14,220 
- 73,21,3 

■ 20,3,169 
" 208,41,95 
' 18.203 
- 141 
■ 169 
160 
: 208 

eg 



1410 \}^mmY'^=\mm 

1420 R=YAND7:C=XAND7 
1430 M=CM + (40*U+V]'8 
1440 RETURN 
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PARTICION PANTALLA 64 



*=SCOOO 
JMP START 

MEMt = $F7 
MEM2 = SF9 
MEM3 = SFB 
sew = SFD 
CINV - S314 
TEIWPIRQ ■ = *-f-2 



NEWIRQ : 



iBEFtTA CODIGO 
^ y ERROR^STOP 



LSCN 



LDA 
BEQ 
LOA 
LDY 
STA 
LDA 
FOR 
STA 
LOA 
EOR 
STA 
AND 
GEO 
LOA 
LDY 



NOTVfC 



STA 
STY 



3D019 

NOTVIC 

#SFF 

#S15 

SD019 

SDDOO 

#S02 

SDDOO 

3DD11 

#S20 

SD011 

#S20 

LSCN 

#S79 

#£FF 

30012 
SD01B 



JMP aEMPJRQ) 



START = 



VECTOR IRQ 



NUEVOfNICfO CUNA IRQ 

MIRAEL ESTADO DE INTERRUPCION 
VINO U IRQ DEL VtC? 



; BORRA LATCH INT. 
; CAMBIABANCOS 

; GAMBIA BIT DEL MODO MAPA DE BITS 

: COMPARA EL BfT BMW 
; PARTE INFERIOR PANTALLA 
PONE EL BARRIDO EN LINEA 22 

ESTABLECE COMP. NUEVO BARRIDO 



INICtALIZA CUNA IRQ 



ODD 



DDE 



LDA SDCOE 



AND 


#SFE 


STA 


SDCOE 


LDA 


CINV 


STA 


TEMP IRQ 


LDA 


CINV+T 


STA 


TEMPIRQ+1 


LOA 


#<N£WIRQ 


STA 


CINV 


LDA 


#>NEWIRQ 


STA 


CINV+1 


LDA 


SDOtI 


AND 


#S5F 


STA 


$0011 


LDA 


#£00 


STA 


S0012 


LDA 


#SFF 


STA 


$D019 


LDA 


#S01 


STA 


SDOIA 


LDA 


$01 


AND 


#$FE 


STA 


SOI 


LDA 


#$00 


STA 


MEM1 


LDA 


#$A0 


STA 


MEM1+1 


LDV 


#soo 


LDX 


#S1C 


LDA 


#soo 


STA 


(MEIW1):,Y 


INY 




BNE 


ODD 


INC 


MEM1+1 


DEX 




BNE 


ODD 


LDA 


#3BC 


STA 


MEM1+1 


LDY 


#S0O 


LDX 


#S04 


LDA 


#$87 


STA 


[MEMD.Y 


fNY 




BNE 


DDE 


INC 


MEM1+1 


DEX 




BNE 


DDE 


LDA 


$01 


DRA 


#$01 


STA 


SOI 


RTS 





DESACTIVA TEMPORIZADOR R 
CIA#1 



CAMBIA VECTOR IRQ 



; RESTABLECEMODOBMM 

RESTABLECE LATCHES DE IRQ 
ACTIVACOMPARACION BARRID 

DESCONECTA LA ROM DEL RASI 

EST, PUNTS. P. 0 PARA APUNT^ 
INICIO AREA ALT, RES. DETRAS 
ROM DEL BASIC 

BORBAALT. BES. 



ESTABLECE COLOR 



RESTAURA ROM BASIC 
VUELTAAL BASIC 
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f Impc^ible mission 



Heroe temerario 



able 

Etj re corner, 
V z ii irr^^sy pasillos, 
i£ : . "a; ".aciones de la 

:i :f ;er\^efso 
: r" ^ ~"is sntraren las 
" = svitan(3o a los 

-;:r.- = .-^cdordebe buscar 
-." z muebles partesdela 
::-r5.;aiaqueftnalmentele 
-e'T ^^:a enlm en el laboratorlo 
De t^rcfesor Atombender, 

I"; "5itetambien podra 
I!::,:'- sDmniferos", 
: : - : ^ cue desconectan 
'^e'^tea los robots 



'Impossible mission'' (Mision 
imposible), de Epyx, es un 
juego con excelentes graf icos y 
un guion con ''carrera contra el 
tlempo'' incluida 



Entre los diversos tipos de programas de juegos, 
uno de los mas populares es el juego de platafor- 
mas. En el mismo, el jugador (en el papel de 
heroe) debe obtener objetos que estan situados en 
plataformas dentro de las diversas pantallas. For lo 
general el heroe penetra en la pantalla por una de 
las esquinas inferiores y debe alcanzar las platafor- 
mas mediante una serie de ascensores, escaleras y 
trampolines (o lo que sea que haya puesto el pro- 
gramador a su disposicion). A menudo, objetos vi- 
tales tales como Haves o uo importante tesoro estan 
colocados en una posicion particularmente dificil 
que implica un considerable esfuerzo para determi- 
nar la mejor forma de llegar hasta ellos. 

Los juegos de este tipo se complican atin mas 
mediante la presencia de alienigenas u otras figuras 
graficas peligrosas que se han de evitar, porque el 
mero hecho de tocarlas suele tener consecuencias 
fatales. Estos graficos pueden ser estaticos o bien 
desplazarse siguiendo patrones preestabiecidos. 
Ademas, muchos de estos sprites poseen capacidad 
de "disparo". Segun cuales sean las intenciones del 
program ador J los movimientos de estos enemigos 
pueden ser mas o menos inteligentes. Muchos de 




cUos se moveran hacia atras o hacia adelante a lo 
largo de un unico camino, mientras que otros pue- 
den estar programados para "apuntar" hacia el 
heroe, limitando su libertad de accibn. 

Los juegos de plataformas le ofrecen varias ven* 
tajas a! programador, Entre ellas la mas importante 
es el escaso codigo necesario para la implementa- 
cion del juego- Una vez que el programador ha de- 
finido el diseno grafico del heroe, los guardias, el 
tesoro, las plataformas , las escaleras y los ascenso- 
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res, todas las diferentes "habitaciones" se pueden 
programar con solo reposicionar los diversos ele- 
mentos. Es obvio que ello supone un gran ahorro 
de espacio, que se puede utiUzar para mejorar el 
nivel de detalle del juego o incrementar el numero 
de habitaciones. 

Impossible mission saca el maximo partido de la 
capacidad de los juegos de plataformas para imple- 
mentar codigo de esta manera. El objetivo del 
juego consiste en encontrar los diversos trozos de 
una clave secreta (ocultos en el mobiliario de 32 
habitaciones) que le permite al jugador imimpir en 
la ciudadela del malvado cientifico Elvin. Los mue- 
bles estan custodiados por robots y, ocasionalmen- 
te, por una inmensa bola negra. Algunos elementos 
del mobiliario contienen, asimismo, contrasenas es- 
peciales que, tras obtenerlas, le permiten ai juga- 
dor volver a montar ascensores en las habitaciones 
y desconectar temporalmente los robots para poder 
pasar junto a ellos con toda seguridad. Estas con- 
trasenas se entran a traves de los terminales de or- 
denador situados en cada habitacidn. El jugador se 
desplaza de una habitaci6n a otra mediante un as- 
censor y a traves de una serie de pasillos. En la 
esquina' uiferior izquierda de la pantalla hay un 
mapa que muestra las habitaciones en las cuales se 
ha entrado hasta el momento y la posicion actual 
del jugador. 

Las contrasenas tambien se pueden obtener a 
partir de cuartos de codificacidn. Para recibir una 
conlrasena, la habitacion emite una cantidad de 
notas de altura variable, y e! jugador debe acomo- 
darlas por orden ascendente. Cuantas mas contra- 
senas intente uno obtener. mayor sera el numero 
de notas que se toquen. En este sentido, Impossible 
mission es un juego de plataformas estandar. A di- 
ferencia de la mayor parte de los juegos de plata- 
formas, el jugador no posee una cantidad de 
"vidas" establecida, sino que, en cambio, cada vez 
que e! agente es '*asesinado", incurre en una penali- 
zacion de tiempo. 

En este juego se le da un uso excelente al espacio 
de memoria ahorrado por los programador es. La 
caracteristica mas notable es la sintesis de voz. Los 
graficos son, igualmente, muy buenos, y aunque las 
habitaciones no estan repletas de ellos, los detalles 
individuales del agente, ei mobiliario y los robots 
estan dibujados con gran refinamiento. Todos estos 
elementos se conjugan para conformar un juego 
atractivo y muy bien trabajado. 
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Iniciamos una serie en la que 
trataremos en profundidad el 
apasionante tema de la 
inteligencia artificial y los 
importantes avances de la 
investigacion en este campo 



A principios de la decada de los setenta, las investi- 
gaciones en el campo de la inteligencia artificial (ar- 
tificial intelligence: AI) se hallaban estancadas. Se 
la consideraba, en lineas generales, como un aspec- 
i:o marginal y extravagante de la ciencia informati- 
ca. For aquel entonces, en Gran 8 ret an a, un elabo- 
rado informe de sir James Lighthill para el Science 
Research Council recomendaba un drastico recorte 
de los fondos destinados a tal fin. En la actuaiidad, 
todo lo concemiente a la inteligencia artificial se 
eacuentra en pleno auge, y los profesionales dedi- 
cados a su investigacion se ven acosados por auda- 
ccs inversionistas que les proponen tentadoras ofer- 
tas eoorKD micas. 

Varias agencias gubernamentales europeas estan 
fiiiaiiciando costosos programas de investigacion y 
desarroUo por temor a quedarse rezagadas en la ca- 
rrera por el desarroUo de la AI. Mientras, las fir- 
mas vendedoras de software estan distribuyendo 
pomposos comunicados de prensa en los que rede- 
finen sus productos como sistemas de inteligencia 
artificial. 

Para comprender la situacion en que se encuen- 
tra hoy la AI y la que es probable que alcance en el 
future, es util, tal como sucede con tantas otras fec- 
noiogias, dar una mirada a su pasado. Podemos di- 
^idir nuestra condensada historia de la inteligencia 
artificial en cuatro periodos, cada uno de ellos de 
una decada de duracion y caracterizado por un 
lema dominante. Esto necesariameote supone una 
^implificacion de las cos as, pero al hacerlo, se 
ponen de relieve los puntos principales. Podemos 
considerar que cada uno de los temas esenciaies es 
la respuesta que con tod a probabilidad habna obte- 
oido uno de haberle preguntado a un investigador 
de Al de la epoca: ''^^En que consiste la inteligencia 
official?" 



1950 Redes neurales 

1960 Busqueda hcuristica 

1970 Sistemas expertos 

1980 Aprcndizaje de la maquina 

En 1943, Warren McCulloch y Walter Pitts propu- 
sieron un modelo de neurona del cerebro humano y 
animal. Est as celulas nerviosas abstract as proper- 
cionaron la base para una representacion simbolica 
matcmatica de la actividad cerebral. Otros investi- 
gadores, en especial Norbert Wiener, elaboraron 
estas ideas junto con otras si mi I ares, dentro del 
mismo campo, que se dio en llamar '^cibernetica" 
(un sistema basado en la premisa de que se puede 
construir una maquina consciente utilizando como 
modelo metodos biologicos de rcalimentacion y 
an^lisis). De la cibernetica surgi6, en la decada de 
los cincuenta, la inteligencia artificial. 

Los primeros investigadores de AI tomaron 
como su bloque constructive la neurona formaliza- 
da de McCulloch. Considerando la inmensa com- 
plejidad del cerebro, no fue del todo sorprendente 
que no consiguieran generar sistemas tnteligentes 
basados en este modelo. En efecto, elles pestula- 
ban: "El cerebro es un solucionader intcligente de 
problemas, de mode que imitemos al cerebro." 
Pero el hardware de la epoca, por no habiar del 
software, no estaba a la altura de la tarea. 

Uno de los pocos sistemas que obtuvo cierto 
exite en aquellos dfas fue el Perceptron de Rosen- 
blatt. Se trataba de un sistema visual elemental al 
cual se le podia ensenar a reconocer patrenes. 
Como se puede apreciar en el diagrama (p. 1703), 
el Perceptron se compone de una cuadricuia fmita 
de celulas sensibles a la luz que conforman una reti- 
na en rainiatura. Adem^s hay varies elementos de- 
tectores de cenfiguracion (denominades grafica- 



Mentes mec^nlcas 

La inteligencia artificial trata del 
diseno de sistemas de 
ordenador que Haven a cabo 
tareas que, de realizarlas un ser 
humano, requerinan 
inteligencia. Sin embargo, su 
esfera de acci6n se ha ampliado 
para ijiciuir funciones de 
percepcion, tales como ver y 
Dir. La principal preocupaci6n 
de la investigacion sobre Af es 
programar maquinas de modo 
que iiniten aspectos del 
comportamiento y la 
comprensidn human os 
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II f|K coouolan el estado de grupos 
: £i CBi^fysb. Ctrnido hay presentes 
oaosisaoD^. responden enviandole 
[2«i^ite»iorde dedsiones. Esle inui- 
^lesi lacwcufciH e de un demonio local 
r fetalhx? positivo o negativoj 
i resiiltantes. Si el total supe- 
. im Perceptron puede dis- 
i de imagenesj si bien se pue- 
; principios para tratar con 

dado hubo grandes espemnzas 
pudiera abordar una amplia 
dc rescrfudon de problemas, pero 
ensefuida. Los estudiosos de la 
acoBsderar ei pensamiento huma- 
oooii&iadon de tareas esencialmente 
con la manipulacion de simbo- 




la busqueda fuera cficaz debia estar dirigida por re- 
glas heunsticas (que aprenden a partir de sus pro- 
pios descubriniientos) que la conducian hasta el 
destino deseado, hallando el camino cscnciainicntc 
a traves del metodo de cnsayo y error. Por consi- 
guiente, un robot que deambulara a traves de un 
laberinto tendria que utilizar una tecnica de bus- 
queda exhaustiva si no supiera nada sobre la estruc- 
tura de ese laberinto; pero si tuvicra alguna forma 
de saber cuando se estaba "acercando", se podia 
esperar que Uegara a su estado objetivo mas rapida- 
mente (pero no siemprc, porque oo existen garan- 
tias dc que la hcuristica funcione, y en ocasiones 
puede condudr a callejones sin salida). Durante 
este penodo, los estudiosos de ia AI idearon varias 
estrategias dc busqueda guiadas heuristicamente. 

El GPS, como hemos dicho, no era muy eficaz 
para resolver problemas de la vida real En1os anos 



Perspectiva histbrica 

La inteligencia artificial se e&ta 
convirliendo en un area de 
investigacion practica cada vez 
mas importante, con 
aplicaciones en muchos 
campos. La histortade laAl, sin 
embargo, abarca un periodo 
muy breve en connparacibn con 
muclios otros campos 
cfentificos, como se puede 
apreciar en el diagram a 
inferior,,. 




1940 



1950 



1960 



1970 



1980 



lo(S. S bae^ es^o constituyo ostensiblemente un gran 
cambfo en ia direccion dc las investigaciones, los 
djscn3d?re§ se faaOaban a I menos en terreno fir me, 
puestc los ordenadores podia n hacer cos as 
tales iixra^ eiectuar busquedas, comparar sinibolos, 
etc, qee elosideotificaban con los fundamentos de 
la sc^DdoB ittd^Dte de problemas, Lo dificil con- 
sisim eo mm eetre si est as actividades simples. 

Los esMfiosos mas influyentes dc la decada de 
los sesema ^mott Alan Newell y Herbert Simon, 
de la Unvarsidad de Caraegie-Mellon, que, entre 
oUas m^&a^CMM^. trabajaron en demostracion 
de taoEcms jajednez por ordenador. Su logro mas 
impf€sioBaDle foe un programs denominado GPS 
{Gamwi Fmbim Solver: solucionador general de 
probkai^t. fete em general en el scntido de que 
el usaimo de&Ki iid "eniomo de tare a" en funcion 
de los obyeeo^ de un dominio particular y los opera- 
dores qiae se potman aplicar a csos objetos. Sin em- 
bai^, esia aEoeralidad se cenia a puzzles con un 
juego f€iativaieiite pequeno de estados y reglas 
biea ^*ffigr^ Podia trabajar con las torres de 
HaooL ci^iloanliiieiica y otros tipos de problemas 
^mitees en Ids que miaocosmos formalizados re- 
preseoisbao los paiametros dentro de los cuales se 
pod^ lealoisiiie resolver problemas. Lo que no 
pod^baoerel GPS era resolver lo que la gente con- 
sideiara pitOliieiB2S del mundo real, como realizar 
diagDDstioos m^ficos o tomar decisiones de gestion 
basads ea mmF^^ fluctuantes, 

Ei GPS se si^fcAaba m la idea de que la solu- 
dOD del pffoifema ™ffcaiia una busqyeda a traves 
de mi espacio de soitidoaes poteiKnales. Para que 



setenta un cquipo dirigido por Edward Feigen- 
baum, de la Universidad de Stanford, comenzo a 
remediar ese defecto. En vez de intentar informati- 
zar la inteligencia general, se centraron en areas 
muy concretas de pericia, Y asi nacio el sistema ex- 
perto. 

El primer sistema expert o fue el Dendral, un in- 
terprete de espectrograrTia de masa construido ya 
en 1967, si bien el mas influyente resultaria ser el 
Mycin, que data de 1974. El Mycin diagnostica in- 
fecciones bacterianas de la sangre y receta la medi- 
cacion terapeutica. Ha dado lugar a toda una tami- 
Ha de clones" para diagnostico medico, alguoos de 
los cuales son de uso clinico comim, Por ejemplo, 
Puff, una herramienta para diagnostico de funcion 
pulmonar basada en el plan Mycin, cs de uso 
coniun en el Pacific iMedical Center, situado en las 
cercanias de San Francisco, 

El Mycin introdujo varias caracteristicas nuevas 
que se han convertido en los rasgos distintivos de 
los sistemas expertos. En primer lugar, su "conoci- 
miento" consiste en cientos de reglas como esta: 

REGLA N.^ 47: 
IF 1) ia ubicacion del cultivo as sangre, y 

2) la identidad del organismo no se 
conoce con certeza, y 

3) la tincion del organismo es 
gramnegativa, y 

4) la morfologia del organismo es de 
bastoncito, y 

5) el paciente ha sufrido graves 
quemaduras 




Edward Feigenbaum 

Como director de un equipo de 
AI de la Universidad de Stanford 
(California), Edward 
Feigenbaum desarrollo los 
grimeros sistemas expertos. 
^stos fueron notables porque, 
apartandose de la idea de 
pro gramas de inteligencia 
general, se constituyeron en 
sistemas que operaban dentro 
de limites de conocimientos y 
objetivos definidos con soma 
precision 
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Inteligencia artificial/Aplicaciones 



THEN existcii c\ idcTRias quo sugiorcii 

debilmentc (t),4} que la idcntidad del 
organismo es seudomomas. 

En segundo lugar, estas reglas son probabilisticas. 
vr.-?itiiffe, el inventor del Mycin, que era doctor en 
^dicina, desarrollo un csquema basado en facto- 
red de certidumbre para permitir que el sistema lie- 
£Era a conclusiones verosimiles a partir de una evi- 
dencia incierta. For consiguiente, el numero 0,4 no 
es estrictamente una probabilidad; es, cscncialmen- 
w. un ''factor de falsedad". El punto significative 
es. sin embargo, que el Mycin y sistemas similares 
pueden llegar a conclusiones correctas aun con in- 
formacion incompleta y parcialmente erronea. Em- 
plean un me to do de razonamiento aproximado (ba- 
sado ya sea en probabilidades./wzzj logic, factores 
de certidumbre o algun otro c^lculo de probabill- 



Las percepciones del 
Peroeptron 

Le imagen a muestrear {en esle 
caso, la letra R) se proyecta 
sobre un piano y se digitaliza. 
Los demonlos muestran un 
oequenogmpode pixels (p. ej., 
4 por vez) y responden si esta 
presente el patron para cuyo 
reeonocrmiento han sido 
programados. Larespuestade 
cadademonlo (Oo 1) se 
m.ylti plica por un factor de valor 
relative, segun cual seasu 
importancla dentro del patron 
como un todo, y se suman entre 
SI las res py estas. Este result ado 
se compara entonces con un 
v'Sror umbral. Si es mayor que el 
uTTibraL entonces el sistema 
reconoce la forma original; de lo 
contrario, no la reconoce. El 
.Tibrai y las valores relatives de 
■ 5 demonlos se pueden regular 
i^ando se enlrenaal Perceplron 
liara que reconozca una forma 
{Jeterminada 



que uno pueda comprimir en un programa de orde- 
nador como si se tratara de la pasta dentifrica de un 
tubo. Codificar la pericia de un experlo humano 
puede ser un proceso largo y laborioso. De modo 
que mientras el mundo se maravilla ante ios siste- 
mas expertos, la inteligencia artificial ha pas ado a 
concentrarse en el problema del aprendizaje de la 
maquina, que es una forma de adquinr conoci- 
miento de forma automat ica. La A I siempre ha 
sido un objetivo movil y ahora mismo en el centre 
de ese objetivo hay un programa que se'denomina 
Eurisko. Se trata de un programa de descubrimien- 
to que amplfa y perfecciona su propio cuerpo de 
reglas heuristieas automaticamcnte. por induccion. 
Aparte de ganar durante tres afios consccutivos el 
juego de guerra naval Tnllion credit squadron (a 
pesar de que se intento impedirlo mediante cam- 
bios en el reglamento), el Eurisko tambien se ha 




dad ) para producir una buena estimaclon de la ver- 
z:id a partir de un conjunlo imperfecto de datos. 

En tercer lugar, el Mycin puede explicar su pro- 
rki proceso de razonamiento. El medico que lo uti- 
iza puede interrogarlo de diversas maneras, ya sea 
fara preguntarle como llegd a una determinada 
ooficlusion o bicn por que esta solicitando una cier- 
la ciase de informacion, EI sistema responde desan- 
^do y describiendo el proceso deductivo que con- 
iajo al estado actual Este nivel de amabilidad 
-:3cia el usuario fue esenciaimente un derivado del 
erEdlo de programacicSn basado en reglas. 

EI factor ultimo y esencial es que el Mycin fun- 
^Mii- Ejecuta aquello que un ser humano solo 
^ms3^ hacer tras anos de entrenamiento. En reali- 
d Mycin se utiliza mas para la ensenanza que 
p«d diagnostico, pero lo cierto es que esta dcs- 
pmaido un creciente in teres entre las grand es cor- 
poEaoones. los gobiernos y los mass media. 

Y asi llegamos a los anos ochenta. Los sistemas 
opertos estan de moda y su "ingredicnte activo'' es 
€i ajoodmiento, porque el alcance y la calidad de 
m base de conocimicntos determina el exito de un 
Jffii''tiJ^i expeno. Pcro el conocimicnto no es algo 



aplieado a problem as practicos, Un resultado fue la 
mvcneion de una nueva puerta logica tridimensio- 
nal en el campo del diseno de circuitos integrados. 
Hxisten pocas dudas en el sentido de que sistemas 
como el Eurisko representan la vanguardia de la 
invesligacion en AI. Y puesto que la inteligencia 
artificial constituye la vanguardia de ia ciencia in- 
formaticaj es aqm donde se han de buscar los indi- 
cios para el futuro de esta. 

No deja de ser ironico que, al volvcr a concentrarse 
en el aprendizaje, las investigaciones en cl campo de 
la inteligencia artificial hay an regresado a sus raices, 
porque en los primeros dias de la cibemetica e! apren- 
dizaje se conslderaba el problema clave. 

Esta serie de capitulos representa una gma prac- 
tica a la inteligencia artificial A lo largo de la 
misma iremos cubriendo las principales areas pro- 
blematicas de la AI (como el proceso de la vision y 
del lenguaje natural), asi como las tecnicas que se 
han desarrollado para abordarlas. Como es habi- 
tual, todos los programas que se ofrezcan a modo 
de ejemplo estaran en i^asic, y en los recuadros de 
Complementos at basic nos referiremos al BBC 
Micro, el Commodore 64 y cl Spectrum. 
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La clasif icacion adecuada 




i3 diisca un 

de datos, ^cualas 
pnncipafes que hay que 



Cuando se 'J?te l'h procesador da textos, el 
:_T ::-?_-r ia husqueda de archi- 
ves : f iTr: iiz- f-:: ae bloques de carac- 
teres : . i h iactasificacion) es un 

factor r": :■: : ~ T^rargo. tras haberlas 
llevado^ n zi ::: vidacfes por io ge- 
neral in i _f r" £ Ef - "rcesarias. El esfuer- 
zo dr z^^z^zZi p Clasif icacion" es, por 
tantc -" ::':f-:£ 5 relaifvamente pequeno 
del Tz-__ z z Zz 5jecucf6n de! programa. 

£ f--^£:E It :i:as (digitar ei texto) y ia 
-z rz :- : :_f renden a consumlr ia 
: 'i" ::: :^ rsmpo. 

E : ■ ^ : ; DBM, sin embargo, esta 
s:.z:r i: ^. rfie. En terminos generales, 
>:s : documentos " myy peque- 

rzz :_ £ r-''£:a demanda poco tiempo. 
C.i-i: :h L^n DBM, este Invierte la 
ri,r:"r :r -^mpo ciasificando los re- 
c sr:s , :.::r:3 a iraves deellos paraex- 
IZz- !: :.E requieren. SI ei archivo de 
ca::E EE "E I' que ia capacidad totai de la 
BA.^' : : ^ : d mas probable, se requerira 
im ^KT^^si^c lectura y escritura en un so- 
porte de afmacenamiento masivo. Las defi- 
denms del almacenamiento en cassette, 
lento y secuencial, se haran evidentes de in- 
med c^: - '^enos que su base de datos sea 
IrmftciE :£" sno y en importancia (ei cata- 
loge Zz .1 :e:uena coleccion de discos, p. 
ej.). -e:e: EEze^a considerarei tenerque in- 
veit' z- I s:5ma basado en disco. 

U ^i,:' I :3 ias bases de datos se em- 
plean en ui^ contexto de gestidn de uno u 
otro true e"^ ias que rige el lema time Is 
nione_, e Zz-no es dinero). En otras pala- 
bras. E -fiEE :e un DBM, precfsara un siste- 
maczEE:: e" : sco. aunque. mientras tanto, 
el Afc^ 5" OS microdrives dei QL consti- 
tuye ma artemativa adecuada. 

^Cusntos rsf is^0s ha de ser capaz de 
manipctlar ml DBM7 ^Vale la pena tener 
uno C0R mas registros de las que 
realmente necesito? 

Su apiicacjon de base de datos puede o no 
exigir ia capacidad de manipuiar gran nume- 
ro de registros. Pero intente calcular el nu- 
mero maxlmo que podra necesitar aiguna 
vez, dupliquelo, y despues busque un DBM 
capaz de manipuJar esa cantidad. Si su base 
de datos es para control de stock e inventario 
y no cuenta con muciios componentes, 
puede que no necesite un DBM capaz de ma- 
nipuiar 32 000 registros. Pero si esta utili- 
zando el DBM para cataiogar una biblioteca, 
quiza 32 000 registros no sean suficientes. 



Los DBM capaces de manejar mas de 64 000 
registros son bastante raros y, de todos 
modos, normaimente requerirmn potentes 
ordenadores con memorias muy grandes en 
discos rigidos. 

Si no estoy muy seguro respeto a la 
cantidad de eampos que necesitare, 
^Gomo pueito dtoidir que DBM comprar? 

La mayoria de ios DBM permiten que cada 
registro contenga soio una cierta cantidad de 
campos. A menudo resuita dificii saber de 
antemano cuantos campos se requeriran. La 
mayoria permiten un numero de campos 
mas que suficiente, si bien la longitud de 
estos a menudo se iimita a una linea, por Io 
cual puede resuitar compiicada ia utiiizacidn 
de campos de textos de mas de una linea. 
Una limttacidn mas comun que ia cantidad 
de campos permitida es ei numero de carac- 
teres admisibles por registro, Una cifra tipica 
podria ser 1 020 caracteres por registro, 
permitiendo al usuario elegir cdmo dividir 
esta cantidad entre ei numero de campos y ia 
longitud de caracteres de cada campo. En 
cuaiquier caso, asegurese de que el numero 
maximo de caracteres por campo y de cam- 
pos por registro permita que usted construya 
Ios registros que desea. 

Los campos clave i$Qn un aspecto 
important^? De ser asi, ^cuantos 
necesitar^? 

Un campo clave es aquel mediante el cuai ei 
DBM puede efectuar una busqueda u otra 
manipyiacion. Si un campo no esta designa- 
do CO mo clave, no puede ser utiiizado para 
extraer registros. He aqui dos ejemplos de 
Cdmo emplear ios campos clave tipicos: 

SEARCH PROVEEDOR FOR Timson Engi- 
neering Ltd' 

Se esta buscando en ei campo ciave PRO- 
VEEDOR de cada registro una pareja que 
posea la serie de caracteres especificados, o: 

SEARCH PRECiO>=45,50 

Mediante el campo ciave PRECIO se est^n 
buscando cifras mayores o iguales que 
45.50, Aigunos DBM permiten especificar 
todos Ios campos, o cuaiquier numero de 
ellos, como campos ciave cuando se crea el 
"esqueleto" del registro; otros sdlo permiten 
otorgarles tai deslgnacidn a un cierto nume- 
ro de campos. Como metodo practico, cuan- 
tos mas campos se puedan designar como 
campos clave, tanto mejor. 

^Me ver6 limltado al lenguaje Que se 
suministre zm mi ordenador, o podr^ 



programar yo misnto el DBM, 
prescindiendo del mismo? 

Aigunos DBM inciuyen un ienguaje de pro- 
gramacidn incorporado que per mite efectuar 
de forma automatica sofisticadas secuencias 
de actividades. En un entorno de gestidn, 
con estos lenguajes es posible escribir pro- 
gramas que le ahorran al operador una gran 
cantidad de trabajo. 

Dos ejemplos notables son ei dBase If y el 
Archive. Si sus requerimientos para base de 
datos tienen formas establecidas de tratar 
Ios datos, taies como 'imprimir todas las 
ventas del dia seguidas por una lista de 
todos ios componentes en stocicy una lista 
de todos ios componentes que se encuen- 
tran por debajo del nivel de 'nuevo pedido"', 
entonces io que se debe buscar es un DBM 
con ienguaje de programacidn incorporado. 
Si, por e! contrario, no sabe cdmo se utiliza- 
ra la base de datos d[a a dfa, entonces basta- 
ran ias instrucciones usuales de "ienguaje de 
interrogacion". 

lUuB tie de buscar si Ios mgistros que 
creare habran de relacionarse con otros 
dates dlferentes a Ios de Ios registros? 

Los admin istradores de bases de datos mas 
simples pueden trabajar con un solo archivo 
de registros a un tiempo. Para muchas apli- 
caciones esto es perfectamente adecuado. 
No obstante, es mucho mas util la capacidad 
de un DBM para trabajar con dos o mas ar- 
chivos ai mismo tiempo. La situacion clasica 
en la que resuita utii es la de una base de 
datos de control de stock en la cuai cada 
componente puede tener mas de un provee- 
dor. Tendriamos un archivo de base de 
datos para "componentes^' y otro archivo 
separado para "proveedores". Si usted efec- 
tua una interrogacidn en un archivo, es su- 
mamante util poder efectuar interrogaciones 
a.otro arciiivo, estando ambos relacionados. 

Para iiustrar este punto, supongamos que 
llevamos una tienda de antiguedades y tene- 
mos un arciiivo de base de datos "stock" 
sobre io que tenemos en existencia. Tambien 
podriamos lievar un registro de nuestros 
proveedores en ei cual apuntariamos las 
cosas que eiios tienen disponibles pero que 
aun no hemos comprado. Nuestros registros 
para '^MOBiLlARiO, SUECO" podria no tener 
entradas, pero una referencia cruzada a su 
archivo PROVEEDORES podria reveiar a 
KURT JAKOBSEN ANTiK. GAMLA STAN 56, 
ESTOCOLMO. Su registro podria reveiar: 



DESCRIPCION: 

FABRICANTE: 

FECHA: 

PRECIO COR. SUEC. 



SOFA 

ANDERSEN 

1824 

12000 
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Bases de datos/Software 



rrSCRIPClON: SOFA 

-3RICANTE: GRIMM 

rrCHA: 1874 

PRECIO COR. SUEC: 9800 

e infinidad de otras entradas de articulos dis- 
5X3nib!es. En otras palabras. cuando no basta 
an unico archivo, la referencia a uno o mas 
archivos diferentes puede ser lo que hace 
Ma, 

Teoricamente, siempre es posible tener 
suficientes campos libres dentro de cualquier 
archive determmado para permitir la adicion 
de cualqufer informacidn que pudiera reque- 
rifse. En la practica, puede que ello no sea 
posible. Supongamos que el senor Jakobsen 
nos telefonea para dectrnos que hoy mismo 
acaba de recibir dos encantadores sofas de! 
s. XIX que quiza podn'an interesarnos. Obvia- 
mente, es mucho mas sencillo entrar los de- 
talles en el registro de JAKOBSEN que pasar 
por todos fos campos OESCRIPCION del ar- 
chivo STOCK y entrar las nuevas adquisicio- 
nes del senor Jakobsen. 

Para simplificar, siempre que usted tenga 
una situacion en la que hay mas de una refa- 
cion de uno a uno entre partes de un registro 
de base de datos con otros datos, lo que uno 
debe considerar fundamentalmente es un 
DBM de archivos multiples. 

Los campos dependienles y calculados 
parecen ser bastante ittiles. ^De qu^ forma 
me pueden ser de ayuda en eJ trabajo que 
realizait con el DBM? 

Algunos DBM ofrecen un refi nam lento que se 
denomina campos dependienles. Estos son 
campos que aparecen (durante la entrada de 
datos y posteriormente) s6Jo si son necesa- 



rios, Por ejemplo, una base de datos que 
posea un campo N, de HIJOS podria no vh 
sualizar campos extras si la entrada fuera 0, 
y NOMBRE DEL PRIMER HIJO, EDAD DEL 
PRIMER HIJO, etc., si la entrada fuera 1, y 
asi sucesjvamente. 

Los campos dependientes son, no obstan- 
te, un mero refinamiento y muy raramente 
son esenciaJes. Algunos DBM tambien per- 
miten usar los datos de ciertos campos como 
argumentos en operacEones aritmeticas, casi 
como si se tratara de una minihoja electronic 
ca. Tales sistemas permitirian, por ejempio, 
multipiicar la cantidad de articulos de un 
campo EN STOCK por la cifra del campo 
PRECIO en cada registro. asi como sumar el 
total de los resultados de los registros en un 
archfvo para dar un valor total en resultado^ 
de stock. Este tipo de facilidad casi siempre 
viene unida a un lenguaje de programacion 
incorporado y puede ser muy util. 

^Cit^fes son dlferencias entre los DBM 
activades por meitu y los actiYados por 
mstruGciones, y es aJguno ile ellos mas 
adeciiado que el otro? 

Un DBM activado por menu es aquel que pre- 
senta opciones en la pantalla en cada una de 
las etapas de actividad, Un programa activa- 
do por instrucciones espera que usted apren- 
da su vocabulario de mstruccrones para ha- 
cerlo funcionar (que a menudo tmplica una 
combinacion tecia Control-mas-letra de pul- 
saciones de tecla). Aunque los program as 
activados por menu tienden a ser mas faciles 
para d principiante, los activados por ins- 
trucciones son generalmente mas rapidos de 
usar una vez qye se han aprendido las ins- 



trucdones. Siempre y cuando las instruccio- 
nes se eiijan de forma Idgica (S para 
SEARCH, P para PRINT, etc), es probable 
que, a la larga, el software activado por ins- 
trucciones sea mas f^cil de usar. 

^Que clase de facilidades fieneii 
incorporaiias los OBM para verificar 
errores e impedir entradas errdnaas? 

Un DBM bien disehado le permitira especifi- 
car que tipo de datos se pueden entrar en 
cada campo, lo que contribuye, por tanto, a 
reducir las entradas erroneas. Por ejempio, 
31/02/85 seria rechazada automaticamente, 
como lo seria una entrada como: 

PRECIO: reborde para montar medidor de 
aceite 

El mejor software siempre incluye la faciJidad 
de imponer limites sob re el tipo de datos ad- 
misible: por otra parte, en ocasiones la verifi- 
cacion excesivamente rigida puede ser una 
incomodidad. En cualquier caso, compruebe 
las facilidades que se ofrecen para validacion 
de datos. 

Habiendo dicho lo anterior, mut DBM debe 
compraf? 

Recomendar la mejor compra para un DBM 
es imposible; usted tiene que saber para que 
lo utilizara antes de adquirir uno. No obstan- 
te, nuestro consejo seria, para todas ias apli- 
caciones excepto las menos sofisticadas, un 
DBM basado en disco, con acceso a archivos 
multiples y que, ademas del lenguaje de inte- 
rrogacion normal, poseyera un lenguaje de 
programacion incorporado. 
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'UDnstruccren'35 urTBrazo-n? 



Sua 
salle 

Si cyanic seiited 
progfifiBdor paa^ biszo se 
Quardan ca^ peaoxies davG 
paraKie^L'ritoatc:,3l 
repmdycir tefeeaeaoi. el bmzo 
se des|i£ai3 fa^Anente entre 
Eos pufiis Qaficado mediante Fa 
I inea ite pntas). Sin eniE»argo , 

puedaicalateifaiios puntos 
ifitermefiosgMegefiefBn una 
curva unrfoTTne ^conocida como 
cupm ch': :i z.z z a traves 

guardactcs. Las ccordenadas de 
ios puitos de curva se 
puecf- ^ -acerque el 

braic do mas 

uni:iQrrr.sa : =r:o de su camino 
prograrnado 



La curva de 
recorrido 



En este ultimo capitulo de 
nuestro proyecto revisaremos 
el software que hemes 
desarrollado hasta ahora 

La rutina moverservo desarroUada como parte del 
software Lontrolador del brazo reduce la torpeza 
inherente del brazo cuando se mueve desde una po- 
sicion a otra. Los motores rcciben su inforrrtacion 
angular dcsdc una serie de posiciones de la memo- 
ria, que comienzan en ANGULO. 

Para mejorar la uniforniidad del inovimiento del 
brazo, cuando Ios motores asumen nuevas posicio- 
nes en respuesta a cambios producidos en las posi- 
ciones ANGULO, Ios valores no se colocan (POKE) 
directainente en estas posiciojies, sino en un grupo 
de posiciones correspondientes etiquetado NUEVA- 
POS. Al ser llamada, la rutina moverservo compara 
Ios valores de las posiciones correspondientes de 



CURVA CUE I CA 




ANGULO y NUEVAPOS e incrementa o decrementa 
ANGULO de la forma apropiada, de una en una uni- 
dad. Repite el proceso hasta que Ios valores de 
NUEVAPOS y ANGULO son ios mismos. 

Al colocar (POKE) Ios valores de angulo desde 
BASIC en NUEVAPOS en vez de en ANGULO, efeciiva- 
mente aislamos Ios motores contra cambios de an- 
gulo subitos y de gran envergadura. La tarea de 
desplazar un carrete de hilo de coser desde una po- 
sicion conocida hasta una taza es ahora relativa- 
mente sencilla. Se puede guiar el brazo ientamente 
a traves de Ios movimientos, ulilizando las teclas 
adecuadas del teclado, y las posiciones clave de la 
curva se pueden guardar en una malriz. La infor- 
maeion de la matriz se puede reproducer a cuaiquier 
velocidad inscrtando un factor de demora en mover- 
servo y recorriendo paso a paso la matriz. 

Es imposible introducir mas mejoras. Para una 
prim era aproximacion. todos Ios movimientos an- 
gulares son proporcionales a Ios cambios de NUEVA- 
POS, segun a que distancia respecto al pivote se 
ajuste cada enlace, en comparacion con el radio de 
la palanca activadora del motor, Por consiguiente, 
la rutina moverserVO hace mover cada parte del 
brazo de forma uniforme y con una velocidad angu- 
lar constanie (Ios gradt)s de rotacion por segundo) 
hasta su nueva pos!ci6n. Sin embargo, cada vez que 
alcance una nueva posicion, puede ser que el brazo 
haya de canibiar repentinamente la direccion al ini- 
ciar su camino hacia la siguiente posicion guardada 
en la secuencia; en otras palabras, es posible que 
alcance una discontinuidad. 

Este problema no es tan grave como el problema 
original de efectuar grandes cambios subitos de an- 
gulo. No obstante, puede ser evitado guard an do 
una cantidad de puntos intermedios en lugar de in- 
troducir cambios radicates entre una posicion guar- 
dada y la siguiente. 

Con frecuencia se puede mejorar aun mas el mo- 
vim iento del brazo me di ante el empleo de un soft- 
ware mas sofisticado, pero ha de lograrsc el equili- 
brio entre velocidad y espacio. Si el carrete de hilo 
se mueve especificando sol am en te cuatro posicio- 
nes separadas (la primera cuando se recoge cl ca- 
rrete, la segunda cuando se lo levanta, la tercera a! 
asumir una nueva posicion encima de la taza, y la 
cuarta cuando se baja el carrete a la taza) se utiliza 
poca memoria, pero se producen grandes disconti- 
nuidades. 

Una forma de reducirlas consistiria en especifi- 
car, ponganios por caso, 60 posiciones intermedias, 
en cuyo caso el movimiento sen a comparativamen- 
te fluido y elegante. Pero al hacer esto, el almacc- 
namiento de Ios datos consumiria sustancialmente 
mas memoria, por no mencionar el tiempo que lle- 
varia entrar manualmente tod as las posiciones. 

La altcrnativa exige dedicar tiempo a calcular 
una cantidad de valores intermedios y despues 
combinar las posiciones guardadas manualmente 
con las posiciones de conexion calculadas. Ahora se 
nos plantea el problema de como calcular eslos va- 
lores intermedios. 

Si consideramos cuatro puntos especificados, en- 
tonces se podna disponer una banda articulada de 
acero, para que tocara tres puntos cualesquiera de 
Ios cuatro en cuaiquier momento dado, en especial 
si Ios dos extremos estuvieran en posiciones conve- 
nientcs. El equivalente matematico de disponer un 
trozo de acero articulado consists en interpolar 
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puetos intermeciios medianlc el einpleo de una 
rrgla flexible cubka (asi llamada porque incluyc va- 
iores e leva do s a la tercera potencia). 

El programa que ofrecemos aqui demuestra 
como se puedcn interpolar los puntos intermedios 
que conforman una curva cubica a partir de los cua- 
tro puntos especificados. El movimiento resultante 
entre ios puntos sera una curva de barrido unifor- 
me: una mejora considerable rcspccto a la Interpo- 
kcion lineal. Para usar cste metodo con un sistcma 
de cuatro motorcs, como el de nuestro brazo- 
robot, sera ncccsario interpolar matcmaticamente 
una regla flexible cubica para cada motor. 

Reglas f lexibles cubicas 

BBC Micro: 



Commodore 64: 



CURVAS CUBICAS CBM 



7020 
1030 
1040 
1050 
1060 
1070 

1G90 
1100 

1110 
1720 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
(200 
^210 
1^ 
1230 
1240 
1^ 
"260 
1270 
12S0 
1290 
■HE 

"25: 



REM ■ 
REM ■ 



CURVAS CUBICAS BBC 



MODEO 

VDU 23,240,24,126,65,219,219,66,125,24 
V=7 

D[M X{V+3), Y[V+3), M(V+3), Z{V+3) 
X{2)=O:X[3) = 1O;Xf4)=40;X(5) = 50 
W)=2 :Y(3)-l2:Yf4)-12:Y(5)=2 
REM ampliar los extremos linealmanta 
X{r)==X(2) + (X(3)-X(2)) 
Y{1)-Y(2)-(Y(3)-Y(2)) 
X{6)=X(5) + (X(5)-X(4)) 
X(7)=X(6) + (X(6)-X(5)) 
Y(6)=Y(5)'i-(Y(5)-Y(4)) 
Y{7)=Y(6) + (Y(6)-"Y(5)) 
GLG:VDU5:M0VE 100,700 
PRtwrDemostracion de una rutina" 
PRI NT" que tncarpora una curva cubica" 
PRtl^Fque une puntos" 
FOR 1=2 TO 5 

MOVE X{I)*20-4,Y(I)*20+15:PR1NTCHR$(240): 
NEXT 

GOSUB 1500rREM ESTABIECER AKIMA 

F0RX=X(2) T0X(5) 

GOSUe 1330:R£M FUNCiON AKIMA 

IF X=X(2) THEN MOVE X*20,Y* 20 

IFX<>X{2J THEN DRAW X'20,Y'20 

NEXT 

END 



REM **^^FUNCtOW AKIMA***' 

REM AKIMA RUCKDESCHEL LI BR 0 2 (BYTE/MCGRAW-HILL) 

\=^ 

=.EM COMPROBAR SI X SE HALLA EN EL RANGO DE LA TABLA 

f X<X(1 ) OR X>X(V-2) THE^J RETURN 

-EM HALLAR INTERVALO DE TABLA PERTINENTE 

= '1;1FX> = X(I) THEN 1400 
= -1 

=ai COMENZAB INTERPOLACION 

B-X<[^1)-X(l) 

A^X-X(I) 

Y=Y(|)+Z{l]*A+(3*M[l+2]- 2*Ztl)-Z(J+1))*A^A/B 

r-Y+(Z(l)+z(l+1)-2*M(|+2))*A*A*Ay(B*B) 

.REniRN 



•'"ESTABLECERAKIMA^**- 

:--::jLARCOEFICIENTES AKIMA 
": V-1 
- 'Alf2 
--i-Y(l))/(X(l+1)-X(l)) 

. - -^'-Mm 
- - - '- M(V-E-I) 

-^aspi|^^3^iKi-2)) 

--3oOlieiZ{0={A*M{l + 1)+B*M(l+2)MA+B) 
- -i^TIBIZ(i}=(M{3+2)+M(l + 1)j.'2 



10 REM 
20 REM** 
30 REM *************** 
40 : 

50 V-7:F0RI = 1 TO 25:DWS=0WS+CHRS{17):NEXT 

60 DIM X(V-h3),Y(V+3),M(V+3),Z(V+3) 

70 X[2)=0:X{3)=5:X{4) = 20:X(5]-25 

30 Y(2)=2;Y{3) = 1 2;Y(4) =1 2:Y(5) -2 

90 REM ** EXTENDER LOS EXTREMOS UNEALMENTE 
100 X(1)-X(2)-(X(3)-X(2)) 
110 Y(1)=Y(2)-(Y(3}-Y(2)) 
120 X(6)=X(5)4 (X(5}-X(4)) 
130 X{7)=X{6)+(X(6)-X(5)) 
140 Y(6)=Y(5) + (Y(5}-V(4)) 
150 Y(7)-Y(6) + (Y(6)-Y(5)) 
160 PRINT CHRS[147) 

1 70 PRINT " DEMOSTRACION DE UNA RUTINA QUE" 

180 PRINT'INCORPORA UNA CURVA CUBICA" 

190 PRINT' QUE UNE PUNTOS" 

200 GOSUB 3000;REM DIBUJAR PUNTOS 

230 GOSUB 1000:REM ESTABLECER AKIMA 

235 J-2 

240 FORX-X(2)T0 X(5) 

250 GOSUB 2000:REM FUNCION AKIMA 

255 IF X=X(J) THEN J=J + 1 :GOTO 270:REM NO DIBUJAR 

260 N=X:M=Y:GOSUB 5000: PRINT CHRS(46) 

270 NEXT 

280 GETAS:IFAr'"THEN280 
290 END 

1 000 REM * * * * ESTABLECER AKI MA ** * * ■ 
1010 REM CALCCOEFICIENTES AKIMA 
1020 FOR 1 = 1 TO V-1 
1030 M(lf2)=(Y(l-i'1)-Y[l))/(X(t+1)-X(l)) 
1040 NEXT I 

1050 M[V+2)=2*M(V+1)-M(V) 

1060 M(V+3)=2*M(V+2)-M(V+l) 

1070 Mf2)-2*M(3)-M[4} 

lOeO M{1)=2*M(2)-M(3) 

1090 F0R[ = 1TOV 

1100 A=ABS(M{l+3)-M(l-r2)) 

1110 B=ABS(M(I + 1)-M(1)) 

1120 IFA+B<>0THENZ(l]={A'M(l+1) + B*Mtl+2))/(A+B) 
1130 IFA+B=0THENZ[l)={M{J+2] + M(l+1)V2 
1140 NEXT! 
1150 RETURN 

2000 REM **** FUNCION AKIMA**** 
2010 N-1 

2020 IF X<X[1} OR X>X[V-2) THEN RETURN:REM COMPROBAR RANGO 
2030 f=0 

2040 NN1:IFX>=X(I) THEN 2040 
2050 1 = 1-1 

2060 REM COMENZAR INTERPOLACION 
2070 B=X(I+1)-X(I) 
2030 A=X"X(I) 

2090 Y^Y(l)+Z(l)*A+(3*M{l+2)-2*Z(l)-Z(l + 1))^A*A/B 
2100 Y=Y+Z(I)+Z(I+1)-2'M(I+2))*A*A*A/(B*8) 
2110 RETURN 

3000 REM ^**MMPRIMIR PUNTOS'*** 
3010 F0RI = 2T05 

3020 N=X{l):M=Y{l):GOSUB SOOO PRINT CHRS{215) 
3O30 NEXT I 
3040 RETURN 

5000 REM**^*POSICIONENN,M^*'* 
5010 PRINTCHR$(19); 
5020 PRINT TAB(N);LEFT$(DWS,25"-M); 
5030 RETURN 



Complementos al basic 

Spectrum: 

Suprimir las lineas 1 040 y 1 050 del listado 
para el BBC Micro e insertar las siguientes: 



Serpiente en el C64 

Este simpatico juego es tambi^n un buen ejercicio de 
programacion para crear juegos. He aqui la version para el 
Commodore 64 




En este juego, usted es una serpiente que se despla- 
za contoneandose por la pantalla. El cambio de di- 
recciofi se coosigue pulsando cualqoier tecla. Para 
poder desplazarse es precise que se alimente. Feliz- 
mente se halla rodeado por cantidad de setas. Pero, 
jcuidado! Si bien las setas azules son excelentes, ha 
de evitar las negras, puesto que son venenosas. 
Cada seta azul le proporciona las calorias necesa- 
rias para avanzar diez Imeas. j Procure no morirse 
de hambre pero sin acabar envencnado! 



5 REM *********************************** 
10 REM * SERPIENTE 

20 GOSUB1000 
100 GETX$ 

110 IFX$<>""THEND— D 
120 T=T+D 
130 IFT<LO THENT=LO 
140 IFT>L1 THEMT=L1 
150 T1=T+40 

160 IFPEEK(T1)=e5THEN50O 

170 IFPEEK{T1)=88THENS-S+10:H-H+10 

180 PRINT BS; 

190 P=INT(RND(TI)*40) 

200 POKE 1 984 +P, 88 

210 P0KE1984+P+M,BC 

220 P-fNT(RND(TI)*40) 

230 IFRND{TI)<0.5THEN260 

240 P0KE1984+P,65 

250 P0KE1984+P+M,RC 

260 POKET,CT 

270 POKET+MJG 

280 S=S-1 

290 IF S=0 THEN 500 

300 H=H+1 

310 GOTO 100 

500 PRINT BS; 

510 POKET,CT 

520 POKET+M.TC 

530 FOR 1=1 TO 500 

540 MEXT I 

550 IFH>RETHENRE=H 
560 PRmTCHR$(19); 
580 FOR 1 = 1 TO 10 
590 PRINT BS; 
600 NEXT I 



610 PRfNTTAB{13)"PUNT0S[1SPG]:";H: 

CHRS(19); 

620 FOR 1=1 TO 15 

630 PRINT BS; 

640 NEXT I 

650 PRINT TAB(1 0) " PUNTUACf ON [1 SPG] 

MAXIMA[1SPC):' ;RE;CHR${19); 

660 FOR 1=1 TO 20 

670 PRINT BS; 

690 GETX$ 

700 NEXT I 

710 PRINTTAB(13)"0TRA[1SPC]?"; 

720 GETX$ 

730 IF X$="' THEN 720 

740 !FX$<>^^N"THEN20 

750 END 

1000 PRINT GHRS(147) 

1010 POKE 53280.5 

1020 POKE 53281, 13 

1030 CT-19 , 

1040 TC=9 

1050 D=-1 i 

1060 T=14045 

1070 T1-T 

1080 BC=6 

1090 RC=0 

1100 S=100 

1110 M=54272 

1120 BS=CHRS(17) 

1130 LI =1423 

1140 L0=1384 

1150 H=0 

1200 FOR 1=0 TO 24 

1210 PRINT B$; 

1220 NEXT I 1 

1230 PRINT CHR$(144); ^ 

1240 RETURN @ 
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Un lugar 
en el sol 



En esta ocasion examrnaremos 
el Wren Executive, solido 
ordenador portatil construido 
por Thorn EMI, que cuenta con 
un modem y una pantalla 
monocromatica Incorporados 



El ordenador Wren Executive ha tenido una histo- 
ria azarosa. Canstruido por Thorn EMI, original' 
mente fue comercializado por Prism. Cuando a co- 
mienzos de 1985 la empresa quebro, parecio que el 
Wren iba a convertirse en otra victima de la turbu- 
lenta industria informatica. No obstante, reciente- 
mente Opus Supplies ha asumido la distribucion del 
ordenador y tiene planes para vol ver a lanzar la ma- 
quina. En este capitulo analizaremos las posibilida- 
des de que dispone el equipo para hacerse un lugar 
en el enormemente competitivo mercado de ges- 
tion. 

El Wren Executive esta disenado para ser una 
maquina "portatil". Se trata, en consecuencia, de 
un con junto autocontenido que consta de un orde- 
nador, una pantalla y unidades de disco. Aunque a 
primera vista la carcasa parece ser de metal pinta- 
do, en realidad esta construida casi por completo 
en plastico grabado. siendo de metal solo la base y 
los contomos del leclado. En la parte posterior de 
1 tl aquioa hay mi 25a para transport aria. A I igual 
z^i nuchos OTdenadcffi^ portatiles, quiz a el orde- 
z^iiini^ sea un poco pesado ccmo para poder trans- 
3Cnmio durante mticteoso. y tal vez se desciibina 
sejor como un ordeaador de mesa que se puede 
r^nsportar de un aiea Hafaajo a otra. 

El teclado posee la iiirf^iii luiiii QWERTY 
isial, con la unica excepoaBiit que los simbolos * 
7 = poseen sus propiasleitai. AMiz(|iiierda de las 
jcclas de maquina de ^aim km caioo teclas de 
mncion program ablesqae.ii^B^5GCMi|tmtamen- 
:e con las teclas Control o 9iL poeden cumplir 
has t a 15 funciones rliiiMJh Eos wdas pc^ieeQ 6- 
nalidades dife rentes dqiea^eadD li ^licadon 
que se este empleaocio^ peso biacncA se utOi- 
zan para entradas de paUxasctm rafivido^es de 
instrucciones CPM, tales cono PPj RENAIIE. En 
el lado opuesto del iccUo se faaftm las cuatro te- 
clas del cursor y una iecia Hooie pam lievar el cur- 
sor a la esquina supaEior iiqKnIa de la pantaUa. 
Esta mide 150 por 105 t es la f^pica pantalla 
monocromatica que soBias&a coo maqmnas de 
gestioo , con una resoltidaa paca festos de SO por 25 
caracteres. La unica lifcicada aoiOiia es que el 
color de primer plana esnn^aak^ardel verde 
habitual Esto contribinc a va naafeadon bri- 
llante y atractiva, muy ^wopiafe paia laigas sto- 
nes de trabajo. A la delete de la pataia hay un 
par de unidades de disco Qt^^Ji de 5 pulsadas. 




La panta!la tiene el inconvenlente del diseno de 
la carcasa. El Wren se asienta sobre el escritorio en 
una posicion bastante baja, sin patas para poder in- 
clinar la maquina. La pantalla esta empotrada cn la 
carcasa hacia atras, con un reborde de 40 mm que 
se proyecta hacia fuera de la pantalla. Aunque el 
reborde esta situado en angulo, quiza encuentre 
que este oscurece la parte superior de la pantalla si 
usted es mas bien alto o suele senlarse ccrca del 
teclado. Esta no es una dificultad seria, pero puede 
restar comodidad. 

El Wren esta bien provisto de interfaces. Hay va- 
rias puertas en la parte posterior que permiten co- 
nectar el ordenador a una ampHa gam a de periferi- 
cos. A diferencia de much as maquinas de gestion 
de precio similar, el Wren posee un modem de 11a- 
mada automatica incorporado- El usuario del Wren 
esta capacitado, por lo tanto, para acceder a las 
bases de datos mas importantes, como Prestel y Mi- 
cronct, sin tcner que adquirir para ello ningun equi- 
po adicionai (aunque, por supuesto, usted habra de 
suscribirse a una de las bases de datos antes de que 
se le permita establecer conexion). 

El Wren viene incluso con un cable para conec- 
tarlo a la red telefonica. El software para comuni- 
caciones que se entrega con el ordenador permite 
almacenar varios numeros de teiefono, cu}'0 mar- 
caje se realiza de forma automatica cuando se 
desea. 

Junto al ct)nect0T para comunicadones hay un 
par de puertas que posibihtan la instalacion de dis- 
positivos de contrt)l cxtemos. como un raton y pa- 
lancas de mando. A continuadon de estas puertas 
hay un conector D de 25 que proporciona la 
interface para comunicacioaes seiiales RS232C. 
Los conectores RS232 se utffioa mHmal mente en 
orden adores de gestion paia fDodems externos. 



Maquina ImMs 

Distribuido por Opus Su^gp es. 
el ordenador Wren E^scjrtE ss 
una maquina portat 
.economica^ que posee £ 
caractaristica ins6r:z= de secjai 
tanto BASIC BBC CO fnc£i 
operativoCP/M. OtriS 
caracterislicas indt^s- 
unidades de disco gene^ 
pantalla nnonocrornsicc • 
modem mcorporaco 



flftundanc ; :e -ti-'sifs 
Unads 

caracte' '- 
riquez£:-: • .-t 
cuentB i-i-- 1 :-. :~i 
estand=' ■ : 
solo las ':e'^i:7i 
convene : r :3 y 

RS232: 

mcce^ "1 - jr":: 
ca^ ^ E^: ^ayun 
cc =::: seopara 
faciiitar sa if^staaoon de un 
disco rigkto Winchester 



$olatiay que enchufaria 

Cyafido se trasSada la 
maqaina, !a pantalla y las 
unidades de disco se protegen 
medianteuna cublertade 
plastics pesado qua se cDloca 
en la parte delantera de la 
maquina, Apltcando el lema 
deque "solo hay que 
enchufaria " , los fabrlcantes 
han dado el in usual paso de 
proporcfonarcon el enchufe 
que vieneya Instalado un 
cable de potencia, Cuando se 
transportala maquina, este 
cablesealmacenaen el , 
interior de la carcasa 



A la |rerfecci()n 

Al estar construido por Thorn 
EMf, parece natural quese 
hay a optado por empaquetar 
en la rnaqiiina su propia serie 
de software de aplicaciones; 
Perfect writer, Perfect filer y 
Perfect csic. Jdimbm se 
incfuye un pro grama general 
flamado Executive desktop, 
software para comun lead ones 
y BASIC BBC 




El Wren dispone de una 
pantalla monocromatica 
incorporada brillante y Mel! 
de leer 





Obviamente, cilo no es necesario en el Wren, de 
modo que sera primordialmente usado para redes 
de area local e imprcsoras cn serie. 

A la izquierda de la puerta RS232 hay una inter- 
face en paralelo Winchester en la cual sc pucdc co- 
nectar un sisicma dc almacenamiento en disco rigi- 
do. La adicion de un sistcnia de disco Winchester 
puede afiadir al sistema entrc 5Q0 Kbytes y 50 me- 
gabytes de almacenamiento adicional. Asimismo, 
hay una interface en paralelo compatible con Cen- 
tronics que proporciona el medio para imprimir cn 
modo hard copy. Por ultimo, en el extreme dere- 
cho, hay un conector para pantalla en color RGB. 
Entre las interfaces para imprcsora y pantalla hay 
un diminuto boton de reset que Ic proporciona al 
sistema un arranque en frio. 

El Wren est a basado en el procesador de ocho 
bits Z80B. Este quiza sea el punto mas debil del 
ordenador. En una epoca en que los fabricantes de 
micros personalcs compiten duramente para desa- ^ 
rroUar micros de 16 bits, cl Wren parece algo anti- 1 
cuado en su proceso. Aunque moderadamente ra- ^ 
pido de acuerdo a las pautas de ocho bits, no existe g 



Puerta flS23ZC 

A t raves de este conector 
se proporciona 
comunicacion di recta con 
otros ordenadores y otras 
aplicaciones en serre 

Conector para pantalla 
en calor 

Para el caso de que el 
ysuario desee sacar partido 
de las faciJIdades de cotor 
del Wren, este posee una 
puerta adicional para 
monitor RGB, conectablea 
una pantalla externa 



Altavoz 

Las facilidades de sonido 
las proporciona el propio 
altavoz del Wren 
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Interface Winchester 

En esta interface en paralelo 
se puedeenchufafLfn disco 
rfgido WincKester, que 
aumenta.notabiemente la 
capacidad de almacenamiento 
extern 0 del ordenador 



Umdades de mm 

El ordenador viene equipado 
cort unidades gemeias de 
disco flexible de 6 Va pulgadas 
para aprovechar al maximo el 
SI sterna de disco flexible CP/M 





Asa para transporte 

Apesardesuaspectoun 
tanto extra no, el Wren es 
bastante facil de tfansportar y 
mas comodo de IJevar en la 
nnanoque otrosordenadores 
transportables que existen en 
el mercado 




Puerta para impresara 

Una puerta para interface en 
paralefo Centronics permlte 
utiJtzar ana impresora 



Puerf as de cgntrol externo 

Permiten controlar eJ 
ordenador desde drspositivos 
externos tales com o palancas 
de man d o , raton es y lap i ces . 
opticos 




Modem 

Adiferencia de otros muchos 
ordenadoresdegestion, qye 
unicamente permiten fa 
instaJacion de un modem, e! 
Wfen ya posee una faciJEdad 
fan {xxnunicactones en su 



comparacion posible con las velocidades de micros 
de 16 bits talcs como ei IBM PC o el Apple Macin- 
tosh. 

Al estar basado en el proccsador Z80, era natu- 
ral que los disenadores del Wren optaran por utili- 
zar como si stem a operative el CP/M. El problema 
de esto es que, segun los estandares recientes, el 
CP/M es, a pesar de su potencia, un sistema opera- 
tive mas bicn hostil. Los disenadores han atenuado 
estc problema mcdiantc la incorporacion en el sis- 
tema operativo de un proccdimiento activado por 
menu que permite que el usuario clija una aplica- 
ci6n mediante un cursor y la pulsacion de RETURN. 
El sistema solicitara entonces la colocacion del 
disco adecuado y ejecutara automaticamentc la 
apiicacion. For consiguiente, muchos usuarios no 
se veran en la necesidad de emplear el CP/M direc- 
tamente, pucsto que casi todo lo que necesita el 
usuario de gesti6n medio se le proporciona a traves 
del menti. 

Los discos de aplicaciones que vienen empaque- 
tados con cl ordenador son el disco de sistema 
CP/M, el Perfect writer (procesador de textos), el 
Executive desktop (paquete para llevar hora, fe- 
chas, agenda y citas), la base de dates Perfect filer, 
la hoja electronica Perfect calc y un disco que con- 
tie ne el software para comunicaciones y cl basic. 

El BASIC que se utitiza para programar al Wren 
result a ser, sorprendentemcnte, cl basic BBC es- 
tandar. Si bien la maquina posce una implementa- 
cion casi completa del lenguaje, el hecho de estar 
basado en ei procesador Z80 y no en el 6502 ha 
supuesto algunas diferencias. principalmente en las 
rutinas de entrada/salida. Asimismo, la impiemen- 
tacion del lenguaje parece haber generado algunos 
errores. Por cjemplo, en las modalidades 0 y 1 el 
cursor desaparece de la vista. La tecla Delete no 
funciona en estas modalidades, y hacer retroceder 
el cursor e in ten tar reescribir provoca que el nuevo 
caracter se sobreimprima sobre el antiguo. Ello im- 
pide tod a programacion seria en estas modalidades, 
si bien las otras parecen funcionar perfectamente. 

Expectativas Inmediatas 

En liltima instancia, el futuro exito del Wren Exe- 
cutive depend era de que pueda obtener un lugar 
adecuado en el mercado. Con un modem incorpo- 
rado, cl sistema operativo CP/M y c! basic BBC a 
un precio muy competitive, en el momento de su 
lanzamiento, a comienzos de 1984, el Wren parecia 
una oferta excepcional, Desde entonces el poten- 
cial do venlas para maquinas de gestion de echo 
bits, incluso en el extreme inferior del mercado, ha 
venido disminuyendo rap Ida men te, Asf y todo, la 
maquina sigue siendo demasiado cara como para 
asestar un buen goipe en e! mercado del ordenador 
personal. Y csto cs especialmcntc cicrto ahora que 
Amstrad ha implementado el CP/M en su gama de 
micros person ales. 

Queda, entonces, cl mercado educativo, cn el 
cual parece scr que el Wren causara su mayor im- 
pacto. El hecho de que la maquina utilice basic 
BBC, que esta muy difundido en las escuelas, junto 
con un modem incorporado para aprovechar las di- 
vcrsas bases de datos escolares que se estan crean- 
do, podria hacer que la maquina les resultara atrac- 
tiva a los est ableci mien tos educativos que intentan 
dark a su dmero la mejor aplicacion- 



WREN EXECUTIVE 

440x410x250 mm 




ZBOB, operando a 6 MHz 

Pantalla para textos de 80x2^i, 
pantalJa para graficos de 640x256 



Puerta para paitaHa, interface 
Centronics, puerta RS232C, 
enchufe telefdnico, puertas 
gemelas para control externo, 
interface para disco Winchester 



BASIC BBC 



57 teclas de maquina de escribir, 
cinco teclas de fuicior 
programables, cinco teclas para \ 
contra! del cursor i 

ifn.T^[r^i.TH[4:ai il 

Ademcisdel manual del usuario, 
cada una de las aplicaciones que 
se proporcionan posee su propio 
manual. La documentacion esta 
bien organlzada y of rece al usuario 
explicaciones completas 



La cantidad de intertaces, junto 
con un modem incorporado y los 
numerosos progrannas incluidos, 
tiacen de esta maquina una 
excefente inversion 



La tecnologia de 8 bits ennpleada 
en el Wren se esta volviendo cada 
vez m^s anticuada. Asimismo, 
parece haber errores en afgunas 
de las aplicaciones 



1711 




Programacidn/Juego de simulacion 




Rebelion 
a bordo 



Existe la posibilidad de que la 
tripulacipn seamotine, se 
apodere del barco y emprenda 
el regreso, acabando, de este 
modo, con nuestro juego 
mercantil "El Nuevo Mundo'/^ 




Existen varias contingencias may ores y menores 
que influyen en el viaje de forma positiva o negati- 
ve. Estas se pueden seleccionar al azar durante 
cada semana para su ejecucion, pero no se volveran 
a producir tras haberse seleccionado una vez. 

Son ocho los factores que pueden desencadenar 
un motin. A pesar de que el barco tiene capacidad 
para una tripuladon compuesta por 16 personas, 
toda cantidad por encima de 12 har^ que se lo con- 
sidere repleto y las condiciones de hacinamiento 
pondran descontenta a la tripuladon. Si no se con- 
trail un cocineroj o si 6ste fallecio durante el viaje, 
la tripulacion habra de lievar a cabo tareas de cod- 
na, io que reducira la cal i dad de^laj^omida 
mayor conflictividad! - « i^. - ■|'«» » . \^ .vb^^^p ■ 



Dado que avistar uo aibatros es un buen presa- 
gio, la tripuladon quedara relativamente satisfe- 
cha; pero si es abatido^ lo que trae mala suerte, 
aumentaran las probabilidades de que se produzca 
el motm. Poner a la tripulacion a media radon de 
alguna de las provisiones contriboir^ aun mas al 
descontento de la misma, y algo similar ocurrira si 
las reservas de capital de! barco se vuelven inferio- 
res a los salarios adeudados. Por tiltimOj en el me- 
mento de su contratacion se le aseguro a la tripula- 
cion que el viaje duraria ocho semanas. Toda dila- 
don de este lapso provocara descontento entre los 
tripulanteSj que se intensificara con cada semana 
adicional que se requiera para concluir el viaje. 

Para comprobai si las condiciones son suficientes 
para inictar una rebelion se crea un factor de amoti- 
namiento, MF. Cada condicion se comprueba al co- 
mienzo de una semana Uamando desde el bucle 
principal del programa a una rutina de amotina- 
miento. Si el resultado de cada comprobacion es 
positive, se !e suma un valor al factor de amotina- 
miento. Este procedimiento continua hasta que MF 
llega a 100, en cuyo memento tendra lugar el 
motin. Hay, asimismo, un factor de demora, de 
hasta 30, que se incluye en la evaluadon semanal 
del factor de amotinamiento. 
. La linea 879 envia al programa principal a ia 
subrutiiia de la linea 7200, que efectua una compro- 
bacion semanal del factor de amotinamiento MF, 
que a! comienzo de la rutina se establece en 0. Si en l 
cualquier etapa del viaje se pone a la tripulacion a 
media Taci6n, la variable H$ se establecera en S. Ya 
que obtener los alimentos suficientes es una consi- 
deracion de tanta importancia para la tripulacion, 
darles medias raciones de coalquier provision estd 



Modulo 10: Un motin 

Rutina de amotinamiento 

879 GOSUB 7200 

Adicioti bucle priitcipal del viaje 

7200 REMMOTJN 
7210 MF=0 

7215 fFHS-"S"THENMF=MF+30 

7220 NC=0 

7225 fORT=1TOie 

7228 I F TS(T . 1 ) - 5 AN D TS(T, 2)< >0 AN D TS(T. £] <> -999 TH EN 
NC=1:T=16 

7230 NEXT 

7235 IFNC=0THENMf-MF+30 

7240 IFAS="S'THENMF=MF-20 

7245 IFflS=^'S"THENMF-MF+30 

7250 lFC^'>12THENMF=MF-f30 

7255 IF WT>MO THEN MF=Mf 4-30 

7260 I F WK>8 TH E N MF= M F + ( [WK- 8) * 1 0) 

7275 Mf=MF+iNT(RND(1J*30) 

7280 IF MF<75 THEN RETURN 

7282 PRINT CHRS[T47) 

7284 IFMF>100THEN7300 

7285 SS="LASITUACfON EN EL BARCO* ":GOSUB 9100 

7286 SS= ESTA EMPEORANDO* '^GOSUB 91 00 

7237 SS=^YALGUNOSOE LOS TRIPULANTES*^':GOSUB 9100 
72aS SS= HABU^N YA DE MOTIN ! ' " :GOSUfi 91 00 
7290 PRlNT:GOSUe 9200 
7292 S$=KS:GOSy0 91OO 
7294 GET IS:!FIS=" "THEN 7294 

7299 RETURN 

7300 PRINT CHRS(147) 
7305 PRINT:GOSUB9200 

731 0 SS - ' LA TRI PULACI 0 N SE H A AM OTIN ADO * " :G OSU B 9 1 00 
7312 SS= " PORQUE:* "^GOSUB 9100 

7314 IF HS<>"S'' THEN 7320 

7315 GOSUB 9200:X=X+1:PRINTX: 

7316 SS="HAN ESTADO A MEDIA eACION"^:GOSUB9100 
7318 SS=" DURANTE PARTE DEL VIAJE* ":GOSUe 91 00 

7320 If NCoO THEN 7325 

7321 GOSUB 9200:X-Xh-1:PR[NTX; 

7322 SS= " NO HAY COCJNERO* " :GOSUB 91 00 

7324 St=" YUVC0MIDAESASQUEROSA'' ':GOSUe9100 

7325 IFBSo'-S"' THEN 7330 



7325 GOSUB 920O;X=Xi-1:PRINTX; 

7327 SS= " EL ALB ATRO S FU E ABATl DO ^ " ;G OS U B 91 00 

7330 IF CN<13 THEN 7335 

7331 GOSUB 920D:X=X-H;PRfNIX; 

7332 SS- " LA TRIPULACION ESTA HACINADA* '':GOSUB 9100 

7335 If MO>=WT THEN 7340 

7336 GOSUB 9200:X = X + 1 : PR INT X: 

7337 SS= '■ NO HAY SUFlClENTE ORO* ":GOSUB 91 00 

7338 SS=' PARA PAGARL£SSUSSALARIOS*";GOSUB 9100 

7340 IF WK<=e THEN 7350 

7341 GOSLrB9200:)<=X-h1:PRlNTX; 

7342 SS="LLEVAN NAVEGANDO"':GOSUB 91 OO 

7343 5$=" MASDEeSEMANAS* 'iGOSUBgiOO 
7350 PRINT:GOSUB9200 

7360 SS = " U TR3 PU LACI ON S E APODER A DE L BARCO' " : GOSUB 91 00 

7362 GOSUB 9200 

7363 S$='T EMPRENOE EL REGRESO' "'iGOSUB 9100 
7370 GOSUB 9200 

7372 SS-"DEJANDOT£ ATI ABANDONADO*" ' GOSUB 9100 

7373 SS=' EN UN BOTE A LA DERIVA*" GOSUB 9100 

7374 SS- 'OJALA QUE ALGUIENTE RECOJA-^: GOSUB 9100 

7375 PRINT:G0SUB9200 

7380 PRINT'' FINDELJUEGO^' 
7382 END 



Complementos al basic 

Spectrum: 

Introduzca las siguientes modificaciones: 
7282 CLS 

7294 LET l$=INKEY$:IF i$=""THEN GO TO 7294 
7300 CLS 

BBC Micro: 

Introduzca las siguientes modificaciones; 

7282 CLS 
7294 l$=GET$ 
7300 CLS 
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blecera H$ en S para el resto del viaje. H$ se com- 
pmeba mediante la rutioa de amotinamiento, su- 
mandole 30 a MF si H$ es S. La linea 7215 comprue- 
ba HS e ificrementa MF si fuera necesario. 

La rutioa de amotinamiento comprueba enton- 
ces si hay algun cocinero a bordo estableciendo la 
variable NC eo 0, y prepara un bucie de 1 a 16, 
revisaodo el primer elemento de la matriz de forta* 
leza/categoria de la tripulacion TS(,), en busca de 
un 5, que representarfa un cocinero. Si la fortaleza 
del cocinero no es ni 0 ni -999, lo que implicaria la 
presencia de un cocinero sano. NC se establece en 
L Si no se contrato ningun cocinero, o si el mismo 
hubiera muerto durante el viaje, NC permanece en 
0. La linca 7235 comprueba NC y, si NC es igual a Q, 
le suma 30 al factor de amotinamiento, 

Si durante la travesia ya se hubiera avistado el 
albatros, entonces A$ se habria establecido en S en 
la Iinea 6055 de la subrutina del albatros. EUo trae 
buena suerte, puesto que en la linea 7240 se le quita 
20 al factor de amotinamiento. Si uno ha derribado 
al albatros, la Hnea 6162 habra establecido B$ en S, 
io que trae mala suerte, y la linea 7245 inciementa 
en 30 el factor de amotinamiento. La linea 7250 
comprueba si el niimero de tripulantes es mayor 
que 12 y, de ser asi, le suma 30 al factor de amoti- 
namiento, haciendose eco de este modo de los sen- 
timientos generales de la tTipulaci6n respecto a las 
condiciones de hacinamiento. 

La factura del total de salarios est^ reprcsentada 
por WT y el dinero que queda en las areas del capi- 
tan mediante MO. La Imea 7255 comprueba si la 
factura de salarios es mayor que el dinero que 
-queda en el pozo de reserva y, de ser asi, le suma 
otros 30 a MF. El factor de amotinamiento se incre- 
menta en 1 0 cada semana adicional del viaje Iras las 
ocho primeras semanas. La Mnea 7260 comprueba 
si la travesia ya ha durado ocho semanas y, si asi 
fuera, la ecuacidn Ic resta 8 al ntimero de semanas 
iWK), multiplica el resto per 1 0 y le suma este resul- 
iBdo a MF. En la Imea 7275, se le anade a MF un 
fectOT al azar entre 0 y 29, 

SL tras comprobar todas las condiciones, el total 
paiH el factor de amotinamiento es menor que 74, 
bltnea 7280 devoelve ei control al programa prioci- 
Si el factor es mayor que 100, la linea 7284 
[ el programa a 7300, en cuyo punto se produ- 
^ e! motin. Si el factor se halla comprendido entre 
^3, las lineas 7285-7288 advierten al jugador 
- - - ^ituacion en el barco esta empeorando y que 
k tripulacidn se habla de amotinamiento, 
m& de devolver el control al programa principal. 

Sc fe tripulacion se rebela, el programa determma 
^ rausas e imprime el motivo- La linea 7314 com- 
TTLcr^ si HS es igual a S e informa al jugador si la 
:rr_ ^:i:'n ha estado a media racion durante parte 
-—' V- T La Imea 7320 comprueba 'si NC es igual a 
r^-if caria que no hay ningtin cocinero a 
f lira al jugador que el motfn fue con- 

1^ i iaJta de competencia cuhnaria. l^:;;^: 

-_f ic'zrrina si el albatros fue abatido o 
3C .cir^i^'r : , le informa al jugador que fue 
■tyuyo al amotinamiento- La 
>! el barco estaba repleto, la 
inciente dinero para pagar 
- examina la duracion del 
: rmara que algunos tripulan- 
: -05 amotinados se ban apo- 
-'.prendido el rcgreso. 




Factores del motin 

H$="S": 
medias raciones 



no hay cocinero 




Hay oclio factores que 
contribuyen a crear descontento 
entre la tripulacion y que se 
utiiizan para generar un factor de 
amotinamiento, MF, para cada 
semana del viaje. SI los ocho 
factores combinados hacen que 
el factor de amotinamiento sea 
mayor qua 100, entonces se 
produce un motm y al capltan 
del barco es abandonado en un 
bote a la derlva 



avistado albatros 



B$="S": 
abatido albatros 




CN>12: iiacinamiento 

WT>MO: salarios 
superan areas 




WK>8: navegando 
durante >8 semanas 



factor aleatorio 




/ 
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Duo dinamico 



SimbDiDs de puntem 
7 



Analizaremos conceptos que 
nos permitiran procesar 
archives de tamaho no 
especificado _ 

El PASCAL ofrece dos procediniientos estandares 
(new y dispose) y un tipo especial de dates qoe, 
conjuntamente, proporcionan un poder y flexibili- 
dad extraordinarios a la asignacion y desasignacion 
dindmica de mcmoria. Un tipo puntero es sencilla- 
mente una variable que, en vez de contener un 
valor de datos tai como un entero, ''apunta a" un 
entero o cualquicr otro objeto de datos, estructura- 
do o no. La notacion que se utiliza es similar a la 
empleada cuando denotamos un buffer de siguiente 
direcdon de archivos (que, en efecto, apunta al si- 
guiente registro dd archive, si bien dc una forma 
totalmente diferentc). Un tipo puntero se define 
colocando delante del identificador (del tipo de 
datos hacia el cual dcseamos apuntar) una fiecha 
hacia arriba: 



Un puntero indefinido (despu^s 
de una declar. , antes de una 
asign. 0 despu^s de iJispose) 



Un puntero que no senala 
hacia "ningun sito" (despues 
de una asign, a NIL) 



Un registro con un campo de 
datos y un puntero 



en realidad, un identificador predefinido, no una 
palabra reservada. Para demostrar el empleo de 
new y dispose, por razones de simplicidad solo utiii- 
zaremos enteros. 

Cuando se necesita una variable de puntero para 
senalar un elemento nuevo, llamamos al procedi- 
miento new del PASCAr., que asigna espacio para el 
elemento y coioca su direccion en el puntero. Des- 
pues se alude al elemento de datos '-desrefeiencian- 
do'' al puntero, mediante la notacion p f - Obser- 
ve que ahora la fecha hacia arriba va detras del 
identificador de puntero , al igual que en la notacion 
buffer-archivo, y se podria inraginar como "el ele- 
mento hacia el cual apunta p''. Hueiga decir que cs 
un error desreferenciar un puntero que no este de- 
finido o que no apunte a ninguna parte. 

Fras acabar con todos los datos creados median- 
te punteros (new), se pucde llamar al procedimien- 
to dispose del pascal. Este es cl opuesto de new. ya 
que devuelve la mcmoria asignada por new al ''pozo 
dinamico" y el valor del puntero se vuelve indefini- 
do. El programa DosMasDos lo ilustra: 

PROGRAM DosMasDos (output); 



TYPE 
MatrizLarga 
indi recta 



= ARRAY 1, J 00 OF real; 
- t MatrizLarga; 



Todos los conipiladores dc ISO pascal soportan el 
mismo simbolo alternativo (''@*'). La definicion de 
tipt:i reserva una unica posicidn de mcmoria que se 
utilizara para retener la direccion de una matriz 
grande solo cuando se la crce mediante el procedi- 
miento new. En el interin, el valor del puntero per- 
manece sin definir, tal como sucederia con cual- 
quier otra variable, de modo que: 



VAR 
direccion 
numero 



indirecta; 
integer; 



reservaria espacio para una direccion de maquina 
(16 bits en un micro de ocho bits) y un entero, sin 
estar ninguno de ellos inicializado en ningun valor 
determinado. 

Asi como deseariamos inicializar el entero a cero 
antes de utilizarlo, al puntero se le podria asignar 
especjficamente el valor especial NIL. Esta es una 
palabra reservada del pascal, que significa tan solo 
que el puntero no senala hacia ningun lugar util, y 
es el equivalente del valor numerico cero (lo que 
significa la auscncia de cualquier numero verdade- 
ro), Por consiguicnte, las dos variables del ejemplo 
se podrian asignar a si: 



direccion 
nLimero 



=0; 



Puesto que NIL es un valor constante que pertenece 
a un tipo generico, quiza hubiera sido preferiblc de- 
finirlo como un identificador en el lenguaje. Resul- 
ta obvio que, en este sentido, Wirth cambio de pa- 
recer, porque en modula— 2 la misma palabra es. 



TYPE 
puntero 

VAR 

p1. 
p2 

respuesta 

BEGIN 
new(p1); 
pi T :-2; 
new(p2); 

p2t:-p1T; 
respuesta:=p1 
WriteLn (pi f , 
dispose (pi); 
dispose (p2); 
END. 



= t integer; 



puntero; 
integer; 



t +p2 1 ; 

'+-\p2r 



respuesta); 



Este metodo sumamente peculiar de sumar dos 
mas dos demuestra dos puntos importantes: 

• Las variables dinamicas son anonimas: no hay 
ningun identificador de variable (como N) que 
retenga el valor 2 en ningun lugar del programa; 
a estos clementos se alude de forma indirecta a 
traves de los punteros. 

Tras el segundo dispose la unica memoria que se 
utiliza es el linico entero (respueSta); todos los 
datos dinamicos ya han dcjado de existir. 

Si usted ha seguido nuestra serie dedicada al Icn- 
guaje assembly, ya habra observado que la indircc- 
ci6n imphcita en el uso de punteros es analoga al 
direccionamiento indirecto a nivel de lenguaje ma- 
quina. Sin embargo, hay grandes diferencias eo el 
uso de la indireccion en un lenguaje de tan alto 
nivel como cl pascal. En primer lugar, nunca sabe- 
mos (o no necesitamos saber) cuales son las verda- 
deras direcciones. La unica ^'direccion absoluta" de 
que dispone el programador de pascal es NIL. 

# Asimismo, somos hbres de udlizar, reclamar y 
posteriormente reutilizar la memoria disponible sin 
necesidad de organizar nosotros mismos ninguria 
'*recolecci6n de basura". Es el pascal el que se 
ocupa de la gestion de la memoria, y la unica infor- 
macion que quiz^ podnamos necesitar es cuanta 
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memoria queda. Esto se obtiene mediante la fun- 
don no estandarizada MemAvail o, en algunas im- 
plementaciones, como en el ISO pascal Acorn, 
mediante la funcion Free. Esta devuelve la cantidad 
de bytes de memoria que quedan disponibles. 

Otra ampiiacion util es la funcion SizeOf {Identill- 
cadorTipo), que devuelve el tamano, en bytes, de 
cualquier tipo dcterminado. La RAM para el usua- 
rio se divide en dos estructuras intemas: la pila y el 
heap (monton). 

La pila se emplea para llamadas a procedimien- 
tos y funciones, almacenando sus direcciones de re- 
tomo, datos locales y valorem devueltos. Todos los 
datos dinamicos se asignan al monton. Este opera 
de forma similar a la pila, a exccpcion de que no es 
una estructura de datos LIFO (ultimo en entrar, 
primero en salir) y el monton comienza cn el extre- 
mo opuesto de la memoria para el usuario, crecien- 
do en direocion a la pila. El uso excesivamente am- 
bicioso de new y/o la recursion podria producir una 
''cofision pila-mont6n", pero esta se puede evitar 
mediante: 

IF SizeOf (cosa)> Percent* MemAvail THEN.. 

donde cosa es el identificador de tipo de los datos 
que estan por crear y PerCent es un valor del orden 
de 0.7, pcrmitiendo el 30 % de la memoria para la 
pila y un 70 % para el monton. Si, como suele scr 
el caso, MemAvail/Free opera como una "linea de 
marea alta", sc podria mantener un "contador de 
basura" adicional de elementos desechados. 



Estructuras enlazadas 

El verdadero podcr de los punteros queda de mani- 
fiesto cuando creamos estructuras enlazadas tales 
como arboles, list as de enlace simple o doble, es- 
iructuras circulares, etc. Si consideramos el proble- 
ma de series de caracteres, podcmos usar, y a me- 
nudo lo hacemos, una matriz de algiin tamano csti- 
puladOj pongamos 80 caracteres. Si tenemos una 
matriz de series para almacenar un documento, por 
ejemplo, cada linea en bianco consumira aun 80 
bytes de almacenamiento, igualmente, no pode- 
mos representar [ineas de longitud superior a 80 ca- 
racteres: toda !a estructura de datos es, scncilla- 
mente, demaslado rigid a. 

Un compilador de pascal ha de distinguir identi- 
ficadores de cualquier longitud. Entonces, ^como 
podemos, por ejempio, re producir con precision 
esta caracteristica del mundo real de tamano varia- 
ble? La estructura natural a utilizar seria un regis- 
iro que contuvicra dos campos: uno para cada ele- 
mento de datos (chars en este caso) y otro de punte- 
ro que senalara hacia cl registro siguiente, si lo hu- 
r^ra^ de la lisla. 



TYPE 



serie 
caracter 



linea 

lnea:=NlL; 

etc. 



= t caracter; 
=RECORD 

ch :char; 

siguiente :serie 

END; 

:serie; 



Listas enlazadas 

El PASCAL reserva espacio para una direccion 
(indefinida) de la memoria que sigue a una 
definicidnde tipo 



Un puntero se puede iniciaNzar a '^cero" 
asignan dole el valor especial NIL 



VAR 
linea : serie; 



linea :-MIL; 



new(linea); 

Et procedimiento new^slqnB espacio para datos 
en la memoria y almacena la direccion de la zona 
reservada en la variable de puntero 

Itnea t .ch:"'a'; 

A los elementos de datos no se alude de forma 
explicita, sino que se los "direcciona 
indirectamente" mediante la notacion t 

linea | . siguiente: = NIL:- 





? 






^ 






linea 


ch siguiente 




■a" 






m 

^ 










a' 




1 — ^ 




1 



:^linea; 



WITH P t DO 
BEGIN 

new(siguiente); 
siguiente t chr: 
END 

Una lista de enlace simple 
p, 



V 



Una serie vacia se represcnta asignandole a la serie 
el valor NIL. Cualquier otra socuencia de caracteres 
exigira un nucvo registro que contcnga cada Char y 
otro puntero que apunte al siguiente registro. El 
ultimo registro tcndra su campo siguiente inicializa- 
do en NIL, de tncdo que se pueda detectar el final 
de la serie, Un procedimiento para imprlmir la 
serie seria, entonces: 

WHILE lineaoNlL DO 
BEGIN 

write (Imea | .ch); 

linea: = linea | .siguiente 
END 

Observe que la estructura de datos es rccursiva, 
puesto que se define cn terminos de si misma. Al 
campo de puntero no sc Ic puede dar un tipo que se 
hay a dcfinido totalmente, de modo que se permite 
una referenda ''hacia adelante" 



Programa de lista circular 



PROGRAM List^Circ (inpuf, oiilput); 




Intencifin; In&ertar r&gislros qucMntienen 

dates mezclados en una llsia circular 

— — asignada dinarnicamerite. Lgs datos se colocan POR orden 

DE un campo aKabetico clave [l4ombre)-y, por oonsiguienJe, 

-■ son innecssanosalgantmosde clasificacion. 



LonQiludSerie 
espacio 



Cardinal 
Ta,manDSerie 



ClVtaxInt; 

1..LongiludSerie: 

PACKED ARRAY [TamarioSerie] 
OF char: 

RECOMU 

Momt>r€ : serie; 
(..otres campos) 
deuda : Cardinal 

END; {cosa) 
• t nudo; 



En sucesibn 

El PASCAL ofrece a I programador 
laposibilidad de implemenlar 
"iFStas enlazadas poderosas 
estructuras de datos en las que 
cada elemento apunta ai 
siguiente eleinento de la lista. 
La$ listas p ueden ser de enlace 
simple (entre elementos 
sucesivos). de enlace doble 
(cada.elemento posee punteros 
lanto hacia el el e men to siguiente 
como hacia el elemento anterior 
dela lista), ocirculares (donde 
el ultimo elemento de una lista 
de enlace simple serial a hacia 
atras, hacia el primer elemento 
de la lista) 



La Hnez circular 

Este programa le permite 
insertar registros que contengan 
datos mezclados en una lista 
circular as ignad a 
dinamicamente. Los datos se 
colocan por orden de un campo 
clave affabetico (Nombre) y, por 
con siguiente, no se requieren 
algoritmos de clasificacion 
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ifsta 



■ ptrntero- 



dates 
IK 



: boolean- 



WHILE NOT ftaiho 00 
BEGIN 

hecho:=(F|>BspacrojOReoLn(F); 

JfNOTr^echoTH£^ 
BEGIN 



PROCEOUfiE LeerFicfu 
^^^er un r?umefo rro rreflativoj 



( VAR 
VflR 



^ Cafrfifiar; 



di^rtos 



VAR 



FUNCTION Varoffdiflrto "charS - , 
f"^^ fValor} 



■ CardinaJ: 



'FN = M^mtmm 

THEN 

^^L^al:-Vator(digftoK=MaxlntJiflODlO 
t^ai:^N<:lWaxNDIV tO 
^"^O' {Legar} 
BEGIN I^^m222m722^21) 

dl9ft05:=f'0\ TI- 
CK:- NOT £oF(F}; 

t>K.= Ff (Ndfgiios^ 

fiecfig ;= 

^^'^^^,S*;^NDNOrhEcrfBDO 
BEGiW{jrevarNAti95el01 

Oer{F); '^^ 

Nor fiecrio THEN 
Piechor-NOTfFTfNdigibsJi 

JF NOr hechc THEN 
OK * Ugal(N.Ft) 



■ booJean- 



f!Kflg;=NOT0K: 



END; 

IFNOTEoffF)TH£N 



ENO, 



■ O..Lortfl!(u(lSferie- 



BEGIN 

SaltarSrancoannouM' 



nead (simbofo); 
P^|f'fidioeJ:=simbo[o 

'F^^i^f^oiffilutfSeriB 
'^^Nf^efJerrar con WULos] 

ReadLn 

{LeefLinea} 



PROCEDURE Iftsertar 
VAR 

END 



(Jafos 



: ptrntent?; 
: oosaj. 



eJtptorador. 

ejffifOfacfof := jfsta- ' 
BfGJNfrecorji&iJaJrsta} 
newferrfa"^r"'™^P5°^^?nCEd,p,icadc,,j 
^uMus (enJalisia} 

BEGIN {Le*,C05as} 

""'•9, ('Nomtjfs?')- 
LeerUneafdatos-Ni'mbre). 

BEPEAT 
fitPEAT 

wn[eCCantJtfa(jacteudadla?-:20|' 
IFEoUfjnpurjrHEN 

SaJtarBfanccs finput) 
CNT(LNOTEoLn(mptrtj; 
[^eerf«;ha fjrrput, dates oxj' 

BEGIN t^™'' ■ f^nts'o; 

W*Ui(de«Ja:6,Nomt,re:a(,): 
Wrtieln: 



{UslaClrc-^PflOGRAMAprincjpafj 



REGiN 

LeerCosasfJfstal; 

Msualrar ((isjaj, f P^^^f datos en Ja Jjsta } 



END 
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Tecnomusica 

El SID (Sound interface Device: dispositivo interface para sonido) 
es el responsable de las posibilidades sonoras del Commodore 64 



Ei sonido emitido por el Commodore 64 suele ca- 
nalizarse a traves del enchufc RF que conecta di- 
rectamcntc con el televisor. Pero la salida sonora 
puede igualmcnte ser dirigida a traves de un cnchu- 
fe de audio/video, a un sistema hi-fi para su repro- 
duccion o grabacion perfecta. En este capitulo estu- 
diaremos los principios subyacentes en el software 
que va a convertir al Commodore 64 en una caja de 
ritmos. 

La calidad del resultado final se mejora sensible- 
mentc si la reproduccion se realiza por medio de un 
sistema dc alta fidelidad. 

Ademas de crear sofisticados sonidos bajo con- 
trol de software, el chip SiD puede aceptar senales 
acuslicas extemas. Tales senales pueden ser gene- 
radas por hardware cxtemo electronico (que quiza 
incorpore otro chip SID) o por instrumentos musi- 
cales tales como la guitarra clectrica. Esta serial ex- 
terna puede mezclarse con la salida acustica del 
chip SiD y ser procesada por sus filtros. Sin embar- 
go, debemos aconsejar cautela en ei empleo de las 
interfaces de E/S, ya que una conexion incorrecta 
de las lineas externas puede danar seriamente ai or- 
denador, 

Le sugerimos que consulte el manual del fabri- 
cante sobrc las salidas correctas y los niveles antes 
de realizar ninguna conexion externa. 

Para comenzar el analisis, debemos enfocar 
nuestra atencion en como se obticne un sonido mu- 
sical (period ico) a partir de not as puras individua- 
les. Considerarcmos despues otro metodo alterna- 
tivo para conseguir el mismo resultado, Por medio 
del a:>ntrol de la envoltura de un determinado soni- 
do periodico. podemos introducir amionicos en di- 
\ersas proporciones. Bsio en la practica significa 
que podemos crear casi cuaiquier sonido periodico 
que deseemos mediante una senciUa alteracion de 
unos pocos "ingredienies" de la envoltura de un 
diapason- Estos ingredientes — o puntos de con- 
irol — son conocidos por las siglas inglesas ADSR 
{attack, decay, sustain, release: subida, bajada, re- 
tencion, final). 

Por desgracia el basic del Commodore 64 no 
proporciona muchas facilidades para el tratamiento 
de los sonidos. La programacion sonora se basa 
fund amen tal men te en las instrucciones PEEK v 
POKE. Dando a la variable SID el valor 54272 (la 
direccion de base del chip SID) hacemos que las 
direccioncs SID y siguientes hasta la SID -F 28 contro- 
ien el chip del sonido y, por tanto, toda la capaci- 
dad sonora del Commodore 64. 

Por ultimo, proporcionaremos un programa en 
codigo maquina que creara una maquina tambor o 
de ritmos gestionada por interrupciones y a tres 
voces. Esta cuna en codigo maquina puede ser con- 
rroiada desde el basic, pero las percusiones conti- 
iimran con in depend encia del programa en basic, 
Lo que significa que, con ligeras modificaciones. 



podemos proporcionai sonidos de fondo a cuai- 
quier programa en basic, 

E\ sonido llega a nuestros oidos en forma de vi- 
braciones periodicas del aire. El niimero de vibra- 
ciones por segundo se denomina altura (o frecuen- 
cia) de on sonido. El umbra! inferior de sensibili- 
dad del oido humane esta cifrado en 15 ciclos por 
segundo (15 hertzios). Una nota pura de 100 Hz 
nos parece baja. La nota la inmediatamenle supe- 
rior al do normal o central tiene 440 Hz como cifra 
universalmente aceptada. Si se dobla la frccuencia 
de una nota, elevamos su altura a una octava justa. 
Un oido humano normal puede percibir hasta 10,5 
octavas. Los osciladores de tres notas del chip SID 
solo se mueven en un arco de ocho octavas (aproxi- 
madamente desde 0 Hz hasta 4 000 Hz). 

Jean Fourier (17684830), fisico frances, fue el 
primero que observe que toda forma de onda pe- 
riodica puede descomponerse en una nota pura 
fundamental mezclada con otras notas cuyas fre- 
cuencias son multiplos de dicha nota fundamental. 
Son los conocidos armonkos. El timbre especial 
que distingue una nota de otra de iguai frecuencia 
es precisamente obra de los armonicos que la 
acompanan . 

Una onda senoidal pura, que correspondera a 
una nota pura, es en esencia una scnal analogica, lo 
que quiere decir que no es tan facii de producir en 
un dispositivo digital con solo dos niveles de vol- 
taje, 0 V 0 5 V. Por ello, en lugar de generar fre- 
cuencias puras y mezcl arias despues para obtener el 
sonido periodico deseado, debemos adoptar otro 
metodo con un ordenador personal. 

El chip SID esta equipado con tres voces, cada 
una de las cuales puede generar una de las cuatro 
ondas periodicas distintas, que son: 

1) Onda sierra: contiene todos los arm6ntcos, E! 
annonico enesimo tiene una intensidad proporcio- 
nai a 1/N. 

2) Onda triangular: s6lo contiene los armonicos 
impares. Para un N impar, el annonico enesimo 
tiene una intensidad proporcionai a 1/N^. 

3) Onda rectangular: es una onda cuadrada que 
tiene armonicos pares proporcionales a 1/N. Cam- 
biando la "amphtud de pulsacion*' se puede obte- 
ner una extensa gama de ondas rectangulares, cada 
una de las cuales con su propia mezcla de armo- 
nicos. 

4) Riiido bianco: es una mezcla aleatoria de fre- 
cuencias que se emplea sobre todo para efectos es- 
peciales. 

El contenido armonico de un st)nido tambien 
puede alterarse filtrandolo. El chip SID presenta 
tres tipos de filtro: paso inferior, paso de banda y 
paso superior. Asi, un filtro de paso inferior dara 
paso a todas las frecuencias que esten por debajo 
de un valor determinado y atenuara todas las fre- 
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cucncias por encima de este. Con eslas facilidades y 
el contro! de la envoltura ADSR pueden producir- 
se casi todos los sonidos. 

Los programas generadores de habia humana 
pueden realizarse de varias maneras. Aqui describi- 
remos un mctodo que promete una calidad razona- 
ble y un vocabulario iliniitado. En esle metodo, las 
unidades fun dam en tales del habla — los fonemas — 
se codifican en una labia de valores ADSR. En in- 
gles (para cuyo idioma estamos pensando cste me- 
todo) se conocen 52 fonemas diferentes; por dio, 
su codificacion no prcsenta mayores problemas. 
Posteriormcnte emplearcmos un programa en codi- 
go maquina para traducir el texto cn ASC (o sea, el 
ASCII dd Commodore) a una corriente de codigos 
de fonemas, que se enviara despues al chip SID 
empleando la tabla ADSR. Eslo no resulta tan fadl 
como se explica, puesto que las reglas de traduc- 
don de un tcxto en fonemas son muy complejas. La 
calidad de los sonidos finales dependera de esta 
parte del programa prccisamente. El esquema es 
perfectamente aplicable al Commodore 64 y se co- 
mercializan diferentes productos que utilizan csta 
tecnica. 

Control de la envoltura 




Envoliurasfinisimas 

La calidad de una nota (el 
CO nj unto de caracteristlcas que 
nos permlten discernirentre una 
nota de psano y otra de violin, 
p. ej.) depende del diseno de la 
envoltura. En laslntetizacion 
electfdnica de los sonidos la 
envoltura se considera integrada 
por cuatro fases distlntas. Son 
conocidas porsubida, bajada, 
retencidn y final o por las siglas 
inglesas ADSR, Lalongltud de 
cada fase de la envoltura ADSR 
puede ser delinida con valores 
colocados (POKE) en ios 
registrosdel SID. Estoas lo que 
nos permite sintettzar los 
sonidos de diferentes 
instrumentos en el 
Commodore 64 



El dibujo de ADSR muestra la forma general de 
una nota musical subrayando aquellos aspectos que 
el chip SID puede controlar, Los cuatro factores de 
la ADSR son: 

1) Subida (attack): tiempo de elevacion dc una 
nota, 

2) Bajada (decay): tiempo de bajada de una nota a 
un nivel establc. 

3) Retencidn (sustain): volumen de un nivel es- 
table. 

4) Final (releme): tiempo empleado en bajar hasta 
cero el volumen dc la nota. 

Las tres prim eras zonas de una nota se contro I an 
una a una par cuarletos o nyiybles (cuatro bits) cn 
los registros del SID. Lo que significa que cada uno 
dc est OS parametros toma valores entre 0 y 15, La 
relacion entre los valorcs que ban dc ser colocados 
(POKE) en los registros del SID y la temporizacion 
real esta ilustrada en el siguiente cuadro: 



Valor 




RDlaninn hniAilsi/finsil 
nc 1 oUIUII Uojalia/ 1 lllnl 

f ti P m nn/r i f^lnl 

^ 1 1 C It 1 pU/ li 1 Ir lUf 


n 

U 


2 ms 


6 ms 


1 


8 ms 


24 ms 


2 


16 ms 


48 ms 


u 


24 rns 


72 ms 


4 


3R 


114 ms 




56 ms 


168 ms 


5 


68 ms 


204 ms 


7 


80 ms 


240 ms 


8 


100 ms 


300 ms 


g 


250 ms 


750 ms 


10 


500 ms 


L5 seg 


11 


800 ms 


2.4 seg 


12 


1 seg 


3 seg 


13 


3 seg 


9 seg 


14 


5 seg 


j 15 seg 


15 


8 seg 


1 24 seg 



La longitud de la zona de retention se calcula me- 
diantc un bucie de retardo. Con el cuadro anterior, 
los vaiorcs ADSR para un sonido dc violm seran: 



ADSR 


Tiempo 


Vator en POKE 


A 


500 ms 


10 


D 
S 


300 ms 


8 


R 


750 ms 





La obtcncion de un sonido cn cl Commodore (>4 ha 
de incluir como minimo los siguientes pasos. A si: 

• Paso 1 : dar volumen mediante: 

POKE SID+24,15 

• Paso 2: seleccionar la ADSR. Por ejemplo: 

POKE SlD+5,9 :REM V0Z#1, SUBIDA/BAJADA 
POKE 510-^6,0 :REM V0Z#1 RETENCION/FlfJAL 

• Paso 3: seleccionar la frecuencia de cada oscila- 
dor. For ejemplo: 

POKE SlD + 1,25 : REM V0Z#1,BVTE SUP. DE 
FRECUENCIA 

POKE SID.O : REM V0Z#13VTE INF. DE FRE- 
CUENCIA 

• Paso 4: seleccionar el tipo deseado de forma de 
onda. Por ejemplo: 

POKE SID+4,33 : REM V0Z#1.0NDA SIERRA 

En este paso se empicza a emitir el sonido (lo 
que se denomina abrir la "puerta"). 

• Paso 5: bucle de retardo mientras se emite el so- 
nido en el nivel de retencion. 

• Paso 6: finalizar la forma de onda. Por ejemplo: 

POKE SID +4,32 : REM FINAL ONDA SIERRA 

El procedimicnto mas sencilio dc programar una 
melodia en un Commodore 64 con sis! e en eslable- 
cer los valores iniciales de la ADSR y construlr un 
bucle FOR... NEXT que lea (READ) los datos (DATA) 
dc los bytes hillo de la frecuencia. Si en DATA inclui- 
mos ceros, podemos variar el ritmo de las diferen- 
tes voces sin cambiar cl retardo. 
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A ■ «l A liitmfio celdillas de Ja cuadri'cula y en el momento de 

U3J3 06 n inlOS situarse en la posicion correcta se activa desactiva un 

El programa emplea una curia IRQ, de modo que, "trozo de tiempo" con la tecia Return obteniendose 

una vez establecidas, las percusiones seguiran el ritmo mediante la tecIa f1 . El menu so bra la 

sonando con independencia de lo que se este pantalla indica las opciones disponibles. Dado que 

realizando en basic. Tiene ademas otro aspecto los sonidos se controlan por intermpciones, se 

interesante en el modo como compmeba desde el puede editar en pantalla el modelo de ritmo mientras 

codigo maquina cuai ha sido la tecla pulsada, este se ejecuta. 

inspecclonando el contenido de la posicion 197 El programa en basic incluye todo el cddigo 

{$O0C5). Se trata de una posicion de la paginacero maquina necesario para ejecutar eJ programa con 

que contiene un valor que indica la ultima tecla sentencias DATA, y puede ser entrado y ejecutado tal 

pulsada. Un programa en cddigo maquina le puede como est! Damos tambien un listado del cddigo 

evitar el problema de una llamada nucleo para fuente. Si desea digitarlo y ensamblarlo, puede omitir 

obtener la pulsacidn de una tecla, siempre que las lineas que van de 1520 a 1540 y las sentencias 

$0[)C5 sea empleado con la suficiente frecuencia. DATA entre 1620 y 1940. 

Notese que a causa del driver del basic, que no En medio de la ejecucidn, intente obtener el 

deja libre el buffer del teclado por medio de GET o modelo que fe presentamos de un ritmo cfasico: 
IMPUT, et programa debe poner a cero el puntero 
contenido en la posicion 198 ($O0C6} en el momento 

delasalida. Esta posicion es de la pagina cero, que ****GENERADOR DE RITMOS DELC64**** 
contiene generalmente el numero de teclas pulsadas 

almacenado en el buffer de teclado. i tMKU- id 

Al utilizar el programa, cadatambor dispone del 6 _ — — — ^ — — — — — — — — — — 

"trozos detiempo" en los que puede sonar, yse 

visualizan en una cuadricula en pantalla. La eleccion x x ill X X T!MBAL 

del16facilitalaobtenddndelritmorockencuatro '*v"y"~7"7~7**'"5"""S""i£ rFNrFRRO 

por cuatro. El cursor de sprites semueve a una de _i___iL_i__^il-.__il ^'='^'^'=""^ 



Programa basic generador de ritmos 

1000 REM " GENERADOR DE RITMOS 

1010 PRINTCHR$(147):REM LIMPIA PANTALLA 

1020 GOSUei5tO:REM ESTABLECE C^M + SPRITE 

1030 GOSUB1270:REMESTABLECE PANTALLA 

1040 SYS{49152):REM 1NSERTAGUNA' 

1 050 REM SYS (491 75) PARA QUITAR CUNA 

1060 REM 'BUCLE PRINCIPAL' 

1070 P=PEEK(197):REM TECLA PULSADA 

1 080 IFP=37THENY= V- 16:SY= SV- 1 :IFY<95THENY-95:SY=0 

1090 lFP=36THENY=Y+l6:SY=SV-H:IFY>1£7THENV-127:Sy-2 

1100 IFP=47THENX=X^16:SX=SX-1:1FX<2BTHENX=28:SX=0 

1110 )FP=44THENX=X-H6:SX=SX + 1:lFX>26eTHENX=268:SX^15 

1120 Z=0:IFP=1 THENZ=1 

1130 PRfNTCHR£(191;SSr'TEMPO = ^';PEEKf679);CHRSf157);" 
1 1 40 POKEVIC + 1 6,X/25B:P0KEVIC,XAND255 
1150 P0KEVIC+1.Y 

1160 REM**CALCULOSITUACION PANTALLAPOR LAPOSX.YDELSPRiTE** 
1 1 70 SC=B+ fHT{ (Y- 50)/3+ 1 ) *40+ INT([X- 1 SyS) 
1 1SO IFSY-0THENROW=50000:REM RITMO DE BAJO 
1190 IFSY=1THENROW-500l6:fiEM RITMO OETIMBAL 
1200 IFSY=2THENROW=50032:REMCENCERR0 

1210 IFZ-1ANDPEEK(SC)=32THEI^P0K£SC,24:P0KEROW + SX.1:GOTO1230 
1220 I FZ = 1 AN D PEE K^SC ) = 24THENP0 KE SC , 32 : PO KERO W + SX ,0 
1230 IFP=51THENGOSUei270:FORNOTO5O;POKE5O0OO+l,O:NEXT 
1240 IFP=57THEMPOKE198.0:POKEV1C+21,0:PRJNTCHRS{147):END 
1250 GOTO107O 

1260 REM 'ESTABLECEPANTALU* 
1270 PRINTCHR3[19): 
1 2B0 SS = CH RS(1 7J + C H RS(1 7) + CH R3 (1 7) 
1290 PRINHABO)" 

1300 PRINTCHR3(ia)TAB(3] ' GENERADOR RITMOS COMM64 ■ 
1310 PRINT:PRINT:PRINT 

1320 PRINT' , 

1330 PRINT' -BAJO" 



1340 PRINT'' 
1350 PRINT" 



1360 PRIHT" 
1370 PRINT" 



-TIMBAL" 



-CENCERRO^' 



13S0 PRINT" 

^390 PRINT: PRINTTAB(8) 
um PRINTTAB(B)-'[F1 
-410 PRINTTABtej^fFS 
:.i20 PRlNTTABtej^lFS 
FR)NTTAB{6)''[F7 

-^2 pmNnAB{e)-'fCLR] 

F=limTAB(B)'^[aTl 
STTAB(e)''[<I 

" \-A3f8r[>] 



"OPCJONES...;- 
DAR RITMO" 
REDUCIR TEMPO" 
ALfMENTAR TEMPO " 
PARAR RITWIO' 
BORRAR DIAGRAMA ' 
f INALIZAR PROGRAMA" 
MOVER CURSOR IZQ" 
MOVER CURSOR DERECHA" 



U90 PRINnAB(8)'-[K] SUBlR CURSOR" 

1490 PRINTTAB[8)"(M] BAJAR CURSOR" 

1500 RETURN 

1510 REM "ESTABLECE COD MAQY SPRITE* 

1520 F0RI-49152T049413 

1530 REAOJ:C = C+J:POKELJ:NEXTI 

1540 READJ:IFC<>JTHENPRlNr ERROR DATOS":END 

1550 F0RI=0T062:REA0J:PDKEa32+l,J:NEXTl 

1 560 VIC = 5324 8 : X = 28: Y = 95: B = 1 024:S1 D = 54272 

1570 FORS=OT024:POKESID+LO:NEXT| 

1580 POKESID+24,15:POKEVIC+21,1:POKE2040,13 

1 590 P0KE254 , 1 5 : PO KE679 , 1 5: POK E VIC +39,1 

1 600 FO Rl = OT050: POKE50000 + 1 . 0: N EXT 

1610 RETURN 

1520 REM'*'DATOSM/C'*' 
1630 DATA120, 173,20,3,133,251,173,21, 3 
1 640 DATA133, 252,1 69,36, 1 41 ,20,3,169 
1650 DATA192, 141, 21 ,3,66,96,120,155,251 
1660 DATA141 ,20,3,165.252,141 ,21,3,36 
1670 0ATA96,32,177, 1 92,165, 1 97,201 ,3 
1680 DATA20e,3.32.1 35, 1 92.165, 1 97.201 .4 
1690 OATA208, 3. 32.140,192. 165, 197, 201 ,5 
1700 DATA208.3,32,155, 192.165, 197,201 ,6 
1710 DATA20B.3,32,166, 1 92,32.37.192 , 1 42 
1 720 DATA1 68,2. 1 40,169,2, 76,49,234,165 
1730 DATA253,208,1, 96.1 98,254.240,1 ,96 
1 740 DATA32,1 49. 1 92,224 , 1 6,208,3,32, 1 44 
1750 DATA192, 185,80,195,240,3,32,184 
1760 0ATA192, 1 85,96,195,240,3 ,32,21 0 
1770 DATA192,185,112,195,240,3,32,235 
1780 OATA192,200,234,232,95,169,0,133 
1 790 D ATA253 ,96 , 1 69 , 1 , 1 33 , 253 , 1 62 .0 , 1 60 
1B00 DATA0,96, 173.167,2, 133,254,96, 173 
1810 DATA1 67,2 .201 ,255,240,3,238, 1 57,2 
1 820 DATA96, 1 73,167,2,201 ,1 ,240.3,206 
1 630 DATA1 67,2,95, 1 74,1 66,2. 1 72, 169,2 
1 840 DATA96, 1 69,14,141 ,6,21 2,1 69,32, 1 41 
1850 DATA2.212,169,66,141 ,4,212,169,3 
1850 DATA141, 1,212, 169, 65, 141, 4, 212,96 
1870 DATA169,7,141,12.212,169,12.141,13 
1880 0ATA21 2, 1 69,128, 1 41 ,1 1 .21 2,1 69,55 
1890 DATA141, 8,212,169,129,141,11, 212 
1900 OATA96, 169,2, 141, 19, 212, 169,13. 141 
1910 DATA20, 212, 169,18, 141, 18, 212, 169 
1920 DATA100,141, 15,212,169,17,141 ,18 
1930 DATA212,96 

1940 DATA32{)38:REM "SUMA DE CONTROL ' 
1950 REM" "OATOS CURSOR SPRITE** 
1960 DATA1 27,254,0,127,254,0, 127,254,0 
1970 DATA1 12,14,0,112,14,0,112,14,0,112 
1980 DATA14, 0,112, 14, 0,112. 14,0, 112, 14 
1990 DATA0,1 12,1 4,0, 127,254,0,127,254.0 
2000 OATA127,254.0,0,0,0,0,0.0,0,0,0,0 
2010 DATA,0,0,0.O,0,0,0,O.0.O 
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Listado assembly 



++ + ++ -t- + + ++ + 4-++ + + + 
+++++++++++++++++ 
++ + + 

+ + CODIGOFUENTE ++ 
++ CAJAfilTMOSCBM + + 

+ + + + 



VOL 


— 


SD418 ; 


vOLUIVIcN DELblLJ 


ATT1 


— 


SD405 ; 


SUBIDA vUZ 1 


SUS1 




SD405 ; 


RETcfvCION VOZ 1 


PULSE 


_ 


SD402 ; 


VELODDAOPLfLSACIONESVOZI 


WAVE1 


= 


SD404 : 


FORMA 0NDAV0Z1 


8ASS 




SD401 


FRECUENCIA BYTE HI VOZ 1 


ATT2 




SD40C ; 


SUBIDA VOZ 2 


SUS2 




SD40D ; 


RETENCi0^iV0Z2 


WAVE2 




SD40B ; 


FORMA 0NDAV0Z2 


SNEARE 




SD408 


FRECUEMCIABYTEHIV0Z2 


ATT3 




SD413 


SUBfDAV0Z3 


SUS3 




SD414 


RETENCI0NV0Z3 


WAVE3 




SD412 


F0RMA0NDAV0Z3 


BELL 




SD40F 


FRECUENCIABYTEHIV0Z3 


R0W1 




SQ50 


ALMACEWAMIEMT0V0Z1 


R0W2 




SC360 


ALMACENAMIENT0VOZ2 


ROWS 




SC370 


ALMACENAMJEN'T0VOZ3 


TEMPO 




S02A7 


ALMACENAM. TEMPORAL DEL RETARDO 


XCOUWT 




S02Aa 


ALMAGENAM. TEMP. DEL REGISTRO X 


VCOUNT 




S02A9 


ALMACENAMIENTO TEMP. DEL REG Y 


LOVEC 




$FB 


ALMACENAM. VECTOR BYTES LO 


HIVEC 




SFC 


ALMACEI^AM VECTOR BYTES Ht 


PLAY 




SFD 


S0NjD0TAMB0R(1=SI) 


DEUY 




SFE 


ALMAGENAM. ESTAOO ACTUAL RETARDO 


KEY 




SC5 


TECLAPULSAOA 






scooo 


:ASSEMBLE DESOE U 49152 (DECIMAL) 



RETURN 



ESTABLECERCUNA 



SEI 




DESAQIVA PETICION INTERRUPCIONES 


LDA 


S0314 


TOMiA VALORES DEL BYTE LO DEL VECTOR 


STA 


LOVEC 


LOSALMACENAEN LOVEC 


LDA 


S0315 


TOMA VALORES DEL BYTE HI DEL VECTOR 


STA 


HIVEC 


LOS ALMACEWA EN HIVEC 


UDA 


#<WEDGE 


TOMA BYTE LOOE DIR IWICIO CUNA 


STA 


S0314 


LO ALMACENA EM BYTE LO DE VEGTOR IRQ 


LDA 


#>WED6E 


TOMA BYTE HI DEDIRINICIOGUNA 


STA 


S0315 


LO ALMACENA EN BYTE HI DE VEGTOR IRQ 


CLI 




REANUDA PETICION INTERRUPGION 


RTS 




RETURN 



QUFTARCUNA 



SEI 

LDA LOVEC 

STA S0314 

LDA HIVEC 

STA S0315 

cu 

RTS 



DESACTIVA PETICION INTERRUPCIONES 

TOMA VALOR ORIGINAL DE LOVEC 

LO ALMACENA EN BYTE LO DE VEaOR IRQ 

TOMA VALOR ORIGINAL DE HIVEC 

LO ALMACENA EN BYTE HI DE VECTOR IRQ 

REANUDA PETICION INTERRUPClON 

RETURN 



BUCLE PRINCIPAL 



WEDGE 



OOKTI 



C0HT2 



com 



iSR 
LDA 
CMP 
SHE 
JSR 
LDA 
CMP 
BNE 
JSH 
LJ}A 
CMP 
BNE 
JSR 
LDA 
GMP 
Bi€ 

m 

SIX 
STY 



REG 

KEY 

#S03 

C0NT1 

FLAGO 

KEY 

#S04 

C0tJT2 

FLAG1 

KEY 

#SC5 

C0MT3 

ADD 

KEY 

com 

MINUS 

REST 

XCOUNT 

VCOUNT 

SEA31 



;G0SUB REG 

QUETECLA FUEPLILSAOA? 
FUELATECLA FUNClON#1? 
SI NO, BIFURGAR 
GOSUB FLAGO 
QUETECLA FUE PULSADA? 
FUELATECLA FUNCtON #7? 
SI NO, BIFURGAR 
;G0SU8FLAG1 
:QUE TECLA FUE PULSADA? 
;FUELATECLAFUNCI0N #3? 
;SI NO, BIFURCAR 
iGOSUBADO 

QUE TECU FUE PULSADA? 
FUE LA TECLA #5? 
S] NO, BIFURCAR 
GOSUB MINUS 
GOSUB REST 

;ALMACENA VALOR REGISTRO X 
;ALMACENA VALOR REGISTRO Y 
VUELVEAINTERR 



BUIBMPfttOA 



REST 



IBA PU^Y 
eNE BEGIN 



;TOMA EL VALOR DEL TOGGLE 
:SI ES 1 BIFURCAR 



BEGIN 


DEC 


DELAY 


;DECREMENTA EL RETARDO 




BEQ 


START 


; BIFURCAR SI ES GERO 




RTS 




: RETURN 


START 


JSR 


COUNT 


;C0NTADOR GOSUB 




CPX 


#S10 


;FIN DEL BUGLE? 




BNE 


CHECK 


;SI NOESO, BIFURCAR 




JSR 


RESET 


;RESTAURA GOSUB 


, 

CHECK 


LDA 


R0W1,Y 


TOMA VALOR DE DESP. FILA 1 POR Y 




BEQ 


NEXT1 


;SI ES GERO, BIFURCAR 




JSR 


DRHM1 




NE>ai 


LDA 


R0W2,Y 


;TOMA VALOR DE DESP. FILA 2 POR Y 




BEQ 


NEXT2 


;SI ES GERO, BIFURGAR 




JSR 


DRUM2 


;GOSUB DRUM2 


NEXT2 


LDA 


R0W3,Y 


;TOMA VALOR DE DESP. FILA 3 POR Y 




BEQ 


NEXT3 


;Si ES GERO, BIFURGAR 




JSR 


DRUM3 


;60SUB DRUM3 


NE)CT3 


INY 




;INCREMENTADESPLAZAMIENTO 




INX 




:INCREMENTACONTAD0RBUCLE 




RTS 




;RETURN 


ISUBRUTINAS 


FLAGO 


LDA 


#soo 


lALMACENACERO" 




STA 


PLAY 


itNTRODUCE PLAY 




RTS 




IRETURN 


FLAGl 


LDA 


#$01 


;ALMAGENA1- 




STA 


PLAY 


;INTRODUGE PLAY 


RESET 


LDX 


#soo 


;RESTAURARE6X 




LDY 


#$00 


;RESTAURAR£6Y 




RTS 




[RETURN 


COUNT 


LDA 


TEMPO 


;TOMA VALOR TEMPO 




STA 


DELAY 


;ALMACENA RETARDO 




RTS 




;RETURN 


ADD 


LDA 


TEMPO 


TOMA VALOR TEMPO 




CMP 


#SFF 


;C0MPARARESULTAD0G0N255 




BEQ 


C0NT5 


;SI NO ES 255. BIFURCAR 




INC 


TEMPO 


;iNCREMENTA TEMPO 


C0NT5 


RTS 




;RETURN 


MINUS 


LDA 


TEMPO 


TOMA VALOR TEMPO 




CMP 


#$01 


;COMPARA RESULTADO CON 1 




BEQ 


C0NT6 


;SI NO ES1, BIFURCAR 




DEC 


TEMPO 


:DECREMENTA TEMPO 


C0NT6 


RTS 




[RETURN 


REG 


LDX 


XCOUNT 


[ALMACENA VALOR CONT X EN REG X 




LDY 


YCOUNT 


;ALMACEfiA VALOR CONT Y EN REG Y 




RTS 




[RETURN 


[rLTTINAS TOQUE DETAMBOR 


DRUMI 


LDA 


#$0£ 


[ESTA- 




STA 


SUS1 






LDA 


#$20 


[BLECER 




STA 


PULSE 






LDA 


#$42 


TAMBOR 




STA 


WAVE1 






LDA 


#$03 


;BAJO 




STA 


BASS 






LDA 


#$41 


[YTOCAR 




STA 


WAVE1 






RTS 




[VOLVER 


bRUM2 


LDA 


#$07 


[ESTA- 




STA 


An2 






LDA 


#$0C 


[6LECER 




STA 


SUS2 






LDA 


#S80 


[TIMBAL 




STA 


WAVE2 






LDA 


#$41 


[Y 




STA 


SNARE 






LDA 


#sai 


[TOCAR 




STA 


WAVE2 






RTS 




[VOLVER 


DRUMS 


LDA 


#$02 


;ESTA- 




STA 


ATT3 






LDA 


#$0D 


[BLECER 




STA 


SUS3 






LDA 


#$12 


[CENCERRO 




STA 


WAVE3 






LDA 


#S64 


:Y 




STA 


BELL 






LDA 


#S11 


;TOCAR 




STA 


WAVES 






RTS 




[VOLVER 



.END 
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Busqueda inteligente 

El desarrollo de tecnicas de busqueda constituye un importante 
area en la investigacion de la inteligencia artificial 



La carmra de las ratas 
Eldiagrama iljstratres rutas 
posibles a traves del laberinto 
utilizando tnes est rate gias de 
busqueda diferentes: aleatoria. 
sistematicay heuristica. En este 
ejempio, el m^todo heuristico 
encuentra el objetivo antes que 
los otros dos metodos, si bier 
seria posible disenarun 
laberinto en el cual no fueraasi. 
Enlapractica,amenudolos 
laberintos se resuelven mejor 
mediante una comblnacibn de 
m^todos de busqueda heuristico 
y exhausttvo (en el cual se 
considerantodas (as 
poslbilldades) 



Heuristico 



SI stem at! CO 



Aleatorlo 



Imaginemos que se sueltan tres ratas en un laberin- 
to en cuyo interior hay, en aigun lugar, un cuenco 
lleno de apetitosas t>oiiias para ratas. Una de ellas 
deambula por el laberinto durante algunos minutos 
y despues se queda dormida (el insensible experi- 
mcntador ha est ado echando ginebra en el agua de 
la que bebia cl animal). La segunda rata es mas 
met6dica: coloca so pata delanrera izquierda contra 
un pared y prosigue efectuando giros a la izquierda 
ante cada bifurcacion, retrocediendo cuando detec- 
ts una calle sin saiida. Finaimente alcanza su objeti- 
vo, pero para entonces la tercera rata ya se ha oo- 
mido todo ei alimento. 

La tercera rata posee un delicado sentido del ol- 
fato. En varios puntos durante la biisqueda se de- 
tiene a olfatear el aire y sigue el camino que, segi^n 
percibe, la conducira mas cerca del delicioso 
aroma. Es posible idear un laberinto que despiste a 
esta rata (asi como es posible idear uno que confun- 
da a la seguidara de paredcs)^ pero casi todos esta- 
riamos de acuerdo en que este tipo de estrategia de 
busqueda es la mas inteligente de las tres. 

El concepto de busqueda es clave en el campo de 
la intehgencia artificial. Tan to si se halla a 70 m de 
profundidad en las aguas del Caribe con una esca- 
faodra autonoma de submarinista buscando un te- 



soro sumergido, como sentado a una mesa, concen- 
trado en la reso!uci6n de un crucigrama, usted va 
en busca de a!go. El solucionador de problemas de 
ecuaciones metaforicas mediante biisqueda ha de- 
mostrado ser muy provechoso en la Al, porque se 
pueden tratar muchos problemas diferentes me- 
diante el empleo de tecnicas de busqueda. Nuestras 
tres ratas ilustrao diferentes clases de estrategia: 

• Btasqueda aleatoria (el "recorrido de borracho") 
t Biisqueda exhaust iv a (enumeracion sistematica) 

• Biisqueda heuristica (exploracion guiada) 

Se considera que el tercero es un enfoque mas inte- 
ligente al problema que los otros dos, porque nor- 
malmente requiere menos esfuerzo para llegar a la 
solucion. Pero todos los metodos heurlsticos de- 
penden de alguna forma de saber cuando la bus- 
queda se esta aproximando a su objetivo (el sentido 
del oifato de la rata, p. ej,). Sin conochiiientos no 
se puede ser inteligente: uno tiene que depender dc 
la enumeracion sistematica. 

Hallar una ruta a traves de un laberinto es un 
problema de busqueda tipico. (Sin embargo, es im- 
portante comprender que muchos problemas que 
no son espaciales, como la integracion de una ex- 
presion matematica simbolica, se pueden tratar uti- 
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Cuestiones 
de busqueda 



^ imio ^ 



Recorrecfor 
grafico 



Sefialar nu£!o(s) de partida 




Salir con fracaso 



Seleccionar el siguiente 
nudo (N) a examinar de 
entre los oudos abiertos 




Salir con exito 



Genera r sucesores de N, 
enlazarios hacia atr^is con N, 

senalarlos como nudos 
abiertos y cerrar el nudo N 



SAUDA 



Un laberinto 
sencillo 















1.--- 




m 








1 


2 


3 


— , 

4 



Arbol de 
busqueda 




lizando el mismo marco de btisqueda.) Existen dos 
fornias de juzgar la calidad de un metodo dc bus- 
queda: 

• ^Cuanto tiempo se necesita para hallar una ruta? 

• ^Es la hallada la ruta mas econdmica? 

Lo ideal es contar con un metodo que encuentre la 
solucion 6ptima en el menor tiempo posible. En la 
pr^ctica, no obstante, podemos vemos obligados a 
optar ya sea por aceptar una solucion r^pida por 
debajo del nivcl 6ptimo o bien tomarnos mucho 
tiempo para la mejor solucion posible. 

La mayor parte de las estrategias de busqueda en 
inteiigencia artificial se crean segun un plan comun, 
que permite dar mayor o menor enfasis a uno u 
otro de estos criterios de actuacion. El diagrama de 
algaritmos de recorrido que vemos csboza una fa- 
milia de metodos de busqucda a partir de los cuales 
se puede seicccionar un miembro determinado me- 
diante la deccion de como rellenar el casillero cen- 
tral, o de como decidir que nudo examinar a conti- 
nuacion. Los terminos "abierto" y "cerrado" alu- 
den al estado de cualquier nudo del camino desde 
el principio al punto de destino. Los nudos abiertos 
necesitan ser examinados; los nudos ccrrados ya se 
han examinado. Los nudos abiertos se hallan en 
una especie de lista de espera, y la clave para la 
eficacia es el orden por el cual se procesar^ esta 
Hsta. 

La busqueda avanza configurando un arbol. El 
sencillo laberinto de 4x4 (izquierda) muestra a la 
rata-robot en la casilla superior izquierda y el afi- 
mento en la inferior derecha. En cada casiHa la rata 
tiene una opcion de hasta cuatro movimientos 
(norte, sur, este u oeste), si bien algunos pueden 
estar bloqueados. Si dibujamos las opciones abier- 
tas a la rata al principio, podra ver la estructura 
arborescente del proceso de busqueda, 

Desde el cuadrado inicial de (4,1), la rata solo 
puede avanzar hasta el este a (4,2) o hacia el sur a 
(3,1). Desde (4,2) puede avanzar hasta el este o el 
oeste y desde (3,1) puede ir hacia el norte o hacia ei 
sur. Si el roedor se mueve hacia el este y iuego 
hacia el oeste (o al sur y despues al norte) vol vera a 
llegar al punto de partida, lo que no es muy inteli- 
gente pero rcflcja c6mo la misma casilla puede apa- 
recer en diferentes nudos del arbol, correspondien- 
do a las diversas for mas dc Ucgar a el los. 

Un metodo sistematico para cxplorar el ^rbol es 
el llamado biksqueda por niveles. Investiga los 
nudos por orden de proximidad al punto de partida 
o raiz. Por taoto, considera cada secuencia de N 
movimientos (a nivel N en el arbol) antes de cual- 
quier secuencia de N+1 movimientos. Esta destina- 
do a hallar una ruta que exija la menor cantidad 
posible de pasos y, dado que cada paso es igual- 
mente costoso, result ara ser la solucion de minimo 
costo, Pero hallar la podria llevar mucho tiempo. A 
medida que el arbol se vuelve m^s ancho y mas 
prof undo, el tiempo requerido para hallar el objeti- 
vo aumenta de forma exponencial. 

Para mejorar una busqueda por niveles se re- 
quiere una fuente de informacidn heuristica acerca 
de la distancia a la que se halla el objetivo. Como 
dicha medida podnamos utilizar la Manhattan dis- 
tance (distancia de Manhattan). En la isla de Man- 
hattan (estado de Nueva York), la mayoria de las 
calles se intersectan en ^ngulo recto. Para llegar de 
A a B uno debe avanzar tantas manzanas hacia el 
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norte o el sur y tantas otras hacia el este o el oeste. 
Del mismo modo, en el laberintOj una rata inteli- 
gente puede calcular a cuantas casillas de distancia 
se halla cl objetivo. 

Si se sabe que una busqueda se esta aproximan- 
do a la solucion, puede ser acelerada. La rata de 
nuestro ejemplo inicial seguia una regla sencilla: 
acercarse cada vez mas al objetivo. Esta es la estra- 
tegia de escalar montanm, asi llamada porque se la 
puede comparar con hallar la cima de una montana 
cuando uno esta desorientado avanzando siempre 
hacia arriba, Puede ser miicho mas rapida que una 
busqueda por niveleSj pero no ofrece garanti'as de 
hallar ia ruta opdma. Podria quedarse varada en un 
pico local (porque la busqueda esta orientada hacia 
cualquier cima). 

Si se realiza una sintesis entre la estrategia de 
blisqueda por niveies y la de escalar montanas 



surge un metodo mejor: el 11am ado aigoritmo A- 
Star (A*). Este selecciona el nudo a examinar a 
continuacloo sobre la base de: HD+SF, dundc HD 
es el calculo heuristico de la distancia que qiieda y 
SF es ia distancia cubierta hasta el momento. Cuan- 
to mejor sea la estimacion de HD, mas eficaz es la 
blisqueda. Si el HD falla, estara evaluado en menos 
en vez de en mas. 

En nuestro programa de ejemplo, utilizamos una 
estructuia de programa para implementar estos tres 
metodoSj solo con modificacioncs mcnores. Las 
unicas diferencias se hacen evidcntcs cn la elecci6n 
del nudo a examinar a continuacion: 



Busqueda por niveies 
Escalar montanas 
Aigoritmo A"* 



' tomar SF m^s bajo 
tomar HD mas bajo 
tomar HD+SF mas 
bajo . 



Programa de busqueda 
para el laberinto 



1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
10S0 
1090 
1tOO 
1110 
1120 
1130 
1140 
1150 
1160 
1170 

iiao 

1190 
1200 
1210 
122D 
1230 

Mm 

^250 



REM ^ ' 

REM"Lisiado2.1: 

REM PROGRAMA BUSOOEDA LABERINTO 

REM ** 

M0DE7 

mh=17jMW=25:REM Alium y anchura del laberinto 

Sl=256: REM He$cf«larbol. 

WA-1: RR= 2 :F0=3 ;DN=4 :BL=5 

W1-1:REMpBSDd&SF 

W2=3: REM PESO dEHD 

DIM M[MH + 1 ,MW+ 1 ):ftEM el labarinto 

DIM CS(5) : REM caracteresdel laberinto 

DIMP(SI),S[SI),N(SI),H(SI) 

REM Zmm, Pasos.Nudo^DLstancia-heuristica. 

REM — Rata en &] Eadertnto: 
30SUB 1360 : REM bacerel laberinto 
NC=0 : REM n. de nudos ^amlnados 
K=0 ; REM conradof 

GQSU8 1660 : REM borrartodos los caminos 

N[1)^2*MW+2; REM l&r. nudo abierto 

S(1)=0' Ht1)=FR-l+(FC-1l 

P(1}=0: REM ningun pfedecesor 

REM — Bucle principal: 

REM * BUGLE PRINCIPAL * 

GOSUB 1770 : REM lomar sigulento nudoS 

.4C=NC+1 

3RIKTTAB {0.22}:WC,SR.SC,H(S): " 

30SUB IflSO : REM gerrerar sucesores 

f l^o&R OH FCoSC) AND NC<3O0 THEN 1240 

-'^ v'AB tO,22i;"Cortcluida la busqueda!" 

- AND FQ-SC THEN GOSUB 2290 : REM raslrear pasos 
IvC THEN PRINT 'Tfacascr 
-Z ' ^udos examinados." 



lira crear laberifito: 



'!P,R)=WA ELSEM(P,R)-BL 
R)=BL 
-■■ Ri-WA 
: ■ MfP,R)=WA 

- ' iREMtilaalEmento 
'. REM columna alimento 



1690 P(Q)-0 
17D0 S{Q)=OD 
1710 N(QJ=0 
1720 H(OJ-DD 
1730 NEXT 

1740 NN=2 : REM siguienle nudo libre 
1750 RETURN 
1760 : 

1770 REM — Tomar mejor nudo S: 

17B0 S=1:BN=DD 

1790 F0RE=1 TOSf 

1S00 V=S[l}*W1+ABS[H{l)}*m 

laiO JF V<BN AND H(l)>-0 THEN S=I:BN-V 

1820 NEXT 

1 830 1 F S = 1 TH EN PR INT TAB [0. 20) ; EKplorand-o . . . . 
ie40 SR=INT(N(SVMW) 
1850 SC=PI(S)-MW*SR 
1860 RETURN 
1870 : 

1880 REM — Rutina para generar sucesores: 
1890 IF H[S)=OTHEN RETURN: REM hecbo. 
1900 REM— Norte: 

1910 y=sfl-i!X^sc 

1920 IFY>1 THEN GOSUB 2090 

1930 REM— EsIb: 

1940 Y=SR:X=SC+1 

1350 If X< - MW THEN GOSUB 2090 

1960 REM— Sur: 

1970 y=SR+1"X=SC 

1980 IF Y< = MH THEN GOSUB 2090 

1990 REM— Oesle: 

2600 y=SR:X=SC-1 

2010 IF X>1 THEN GOSUB 2090 

2020 REM — tambtencerrarnudoS: 

2030 H[S)=-H(S} 

2M0 IF H{S)>OTHEN PRINT "Ugh!" 

2050 PRINT TAB (SCSR);" 

2060 M(SR,SC)=DN 

2070 REM celdas vacias en la panlial^. 

2080 : 

2090 REM — Rutina paraabrlrl nudo: 
2100 IF M(y,XHON THEN RETURN 
2110 IF M[Y,X)=WA THEN RETURN 
2120 REM — pfimero ballar posicjion libre: 
2130 «X=0 

2140 REM fiUCLE HALLAR POSICION 

21 50 I F S(N N)< > DD THE N NX - NX + 1 : N« = NN + 1 

2160 IF NN>SI THEN NN-1 

21 70 IF NX>SI THEN PRINT "Completo! " :STOP 

2180 IF S{NN)<>DO THEN 2140 

2190 REM — Alioraabrirlo: 

2200 XY-X+Y'MW 

2210 N(NN)=XY 

2220 P(NNj=S 

2230 S(NN)=S(S}-H 

22^0 H(NN)=A6S(y"FR)+ABS{X-FC) 

2250 PRINT TAB[X,Y)r + ^ 

2280 REM lo mifestra en pafrtalla 

2270 RETURN 

2280 : 

2290 REM — Ruiina para (tesandar el camino: 
2360 ST-S{S) 

2310 FOR Q=1 TO 10000:N£)aQ;60SUB 1560 
2320 PRINT TAB|FC,FR};C$[FO); 
2330 REM**IMPRIMIRCAMINO"' 
2340 S-P(S): REM nudo padr« 
2350 XY=NtS) : REM coords. 
2360 y=]NT(XV/MW) 

2370 x=xy-y"MW 

23@0 M[Y.XJ-RR : REM hueHa de la rata! 

2390 PRINT TAB(X,V);''*"' 

2400 [FS>0 THEN 2330 

24tO PRINT TAB(2,2);CS(FtR) 

2420 PRINT TAB(0 . 22) :"Caminod6 ";ST;" pasos." 

2430 PRJNTNCi" nudos cerr^dos. " 

3440 RETURN 



Lfneas laberifiticas 
El laberinto esta contenido en 
una matriz bidimensionaL M(,), 
y las estruGturas de datos para el 
^Fbol de busqueda estan 
retenidas en las matrices P(), 
SO, NQyHO.EI programa 
corrbina factores de costo en 
curso y costo estimado hasta el 
objetivo, quese pueden regular 
altera ndo Ids vaiores W1 y W2 
en las iineasl 080 y 1090. Tal 
como est^n listados ios vaiores, 
el programa seguira una 
estrategia de escalar montailas, 
pero quiz^ usted quiera 
experimentar. Et m^todo 
heuristfco utiiizado en este 
programa se basa en la 
ManhBttm distance, que es de 
gran precisiDn en este eiempfo, 
Porconsiguiente, inclinandola 
balanza hacia el metodo 
heyn'stico, liadendo que 
W2>W1, la busqueda se 
aceierara 



Complementos 

al BASIC 

E\ programa esta escrito para eJ 
BBC Micro. Para el C64yel 
Spedruno, introducir estos 
cambios: 

ConmiEidore 64: 

Reempiazar todos los PRINT 
TAB{X,Y)/'MEMSAJE\por 
P=X:Q-Y; GOSUB 3000 

3000 :PRfNrMEMSAJE'" 
3000 REM*' RUTiNATAB** 
30t0 PRINTCHRSdS); 
3020 PRINT LEFIS(DWIQ); 

TAB(P); 
3030 RETURN 

1040 FOR 1=1 TO 25: 

DWS-DW$+CHRE(17): 
NEXT I 

1490 CS[WA)=CHRS(102) 
1570 PRINT CHRS(1 47) 

Spectrum; 

Sustituirtodos Eos 

TAB(X,Y):porATX,Y; 
1490 LETC$(WA) = CHRSi:i43) 
Syprimirlalmea1040 
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Programacion/Juego de simulacion 





(1) 


(2) 


(3) 


T$() 




1 (SlS^ JE^ 
[ m"^^ 




1 — ■ ■ 




Perlas 


Figurillas 


Especias 


Vl() 


O *^ 

Z p.O. 


2 p.O. 


1 p.u. 


V2() 


? 


? 


? 


1 saco de sal 


0.5 


0.5 


1 


1 bala de tela 


5 


5 
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Descripciones de las 
mercancfas que ofrece 
el jefe. 



Precios de mercancias 
al zarpar ei barco, 

Precios de mercancias 
al regresar el barco. 



Proporciones de truequ 
de las mercancias a 
intercambiar. 




El Nuevo Mundo 




Al desembarcar er> el nuevo 
pontinente se producira nuestro 
primer encuentro con los 
nativos 

\. ^\ \ "^x, \ 



Al alcanzaf la etapa final del juego, el viaje propia- 
mente dicho concluye cuando el jugador consigue 
desembarcar en el Nuevo Mundo y comerciar con 
as mercancfas que hahia adquirido a I comenzar el 
juego. Cabc cspcrar que las mismas le reporten be- 
neficios cuando rcgrcse a puerto y venda las mer- 
cancias recicntcmente adquiridas. Peru el peligro 
no ha pasado aun: todavia hay que conocer a los 
habitantes de estas nuevas derras, que puedcn ser 
amistosos u hosdles, Por lo tanto, dcbe cuidarse el 
imped ir cualquicr accidn que pueda provocar anta- 
gonismo entre el los y su tripulacion, 

Cuando termina el bucle principal del viaje, la 
Imea 891 llama a la subrutina 10000, que se ocupa 
de su llegada ai Nuevo Mundo. A medida que el 
barco se acerca a la cost a, varios grupos de nativos 
armados se haccn a la mar en canoas para investi- 
gar. listed debe decidir ahora si airre el riesgo de 
que el barco sea atacado, negandose a disparar, o 



bien si abre fuego y desencadena, tal vez, una guena. 

La linea 10015 comprueba el segundo elemento 
de la matriz de suminisixos, 0A(2), que indica la 
cantidad de armas que hay a bordo. De haber 
armas, debe decidir el cur so do acci6n a seguir. La 
linea 10022 espera una respuesta; si digit a un *'si" y 
emplea sus armas, moriran muchos de los nativos. 
Sm embargo, es probable que tal curso de accion 
impulse a los supervivientcs a regresar al barco du- 
rante la noche y prcndcrle fuego, con lo cual termi- 
nana el juego. Es obvio que no tiene sentido una 
agresidn sin que medie provocacidn aiguna. (Se ha 
insertado la line a 10044 para impedir la con tin ua- 
cion del juego tras est a imprudente decision,) 

Si decide no disparar no habra, por supuesto, 
ninguna necesidad de que los nativos devuelvan el 
goipe, y la linea 10026 enviara cl programa a la 
Iinea 10050. En esta seccion, los nativos abordan la 
nave de forma pacffica y dan la bienvenida a los 
viajeros, qiiienes son lie v ados al pobiado, donde 
los recibc cl jcfe. Este resulta ser bastante amistoso 
y en an te no res ocasiones ya ha real iz ad o trueques 
con otros visit antes provenientes del Vie jo Mundo. 
Despuds de comer y descansar, el intercambio co- 
me rcial puede comenzar al dia siguiente (de ello se 
ocupa un modulo separado). Pero, antes de que 
pueda iniciarse el intercambio, hemes de haeer al- 
gunos arreglos previos. 



Juego de simulacion/Programacion 



Las matrices de rntercambio 

Los precios de las perlas, las especias y las figurillas 
se determinaron cuando el barco abandono el puer- 
tOj pero desde entonces han experimentado modifi- 
caciones. 

Para facilitar el intercambio comerdal, se crean 
varias matrices one v as. La lioea 60 Dimensiona !a 
matriz T$()j que contiene descripciones de los tres 
tipbs de mercancias que ofrece el jefe: perlas, figu- 
rillas y especias. La Imea 61 DIMensiona una matriz, 
V1(), que cx^ntiene los precios de mercado de estas 
mercandas cuando el barco se hizo a la mar. 

Las perias y las figurillas se estaban vendiendo a 
dos piezas de oro cada una, y se podian comprar 
especias a una pieza de oro el gramo. La linea 62 
DIMensiona la matriz V2{), que contiene los precios 
de las mercandas cuando el barco regrese a poerto. 
Pero como los valores de mercado de las mercan- 
cias fluctoan, uu elemento aleatorio incide en la es- 
tipulacidn de! precio final. El precio de V2(1), que 
representa las perias, se establece en dos o 2 Vi pie- 
zas de oro mediante la expresion de la linea 62. En 
la misma Imea, expresiones similares fijan el precio 
de las figurillas en una, dos o tres piezas de oro 
cada una; las especias valdrdn dos o 2 V2 piezas el 
gramo. 

Cuando se produce el mtercambio comercial, las 
mercancias no se compran ni se venden por oro, 
sino que se realizan trueques segun un valor de in- 
tercambio acordado eiitre las dos partes: un lote de 
mercandas a cambio de otro. El jefe ofrece al capi- 
tkn del barco una cantidad de perias, figurillas y 
especias por cada lote de mercancias que le ofrece 
ei capitdn. Por razones de simplkidad, daremos por 
sent ado que los comerd antes del Nuevo Mundo 
poseen cantidades ilimitadas de las mercancias con 
que comerciar^n. La cantidad de cada una se deter- 
mina en funcion de las cantidades de cada mercan- 
da que haya en el barco. 

En las Imeas 64-6S se DIMensiona una matriz bi- 
tfimensional a ia que se asignan valores, con las 
rroporciones de trueque para cada producto. El 
jsimer subindice corresponde a los cuatro articulos 
oon los que usted comerciara; sal, tela, cuchillos y 
jcyas. El segundo subindice representa los tres ar- 
'acnlos con los que comerciaran los nativos: perias, 
3Erflas y especias, e specif ic^ndose las proporcio- 
wss Ml trueque en tres lineas del programa. 
Liln^a 64 establece las proporciones de trueque 
de sai, el primer elemento del primer 
Las perias son el primer elemento del 
subindice y a EQ(1 ,1} se le asigna an valor 
^&da la proporcion de perias para sacos de sal. El 
1 itJi limirntn de EQ(1,1) en 0.5 fija la proporcion 
^neqce en media perla por cada saco de saL Del 
modo, a EQ(1,2) se le asigna un valor que 
a la intersecci6n del primer elemento 
552bnjdice con el segundo elemento del 
sal y figurillas. Cuando EQ{1,2) 
^ 0 5, k proporci6n de trueque es una 
" I dos sacos de sal EQ(1,3)=1 esta- 
o de especiaSj el ter- 
mbindice, por cada saco 



de tmeqiie para el segundo ele- 
sobrndiGe (balas de tela) se deter- 
66; tma bala vale 5 perias, 5 figuri- 
de espedas. La linea 67 se ocupa 





del tercer elemento del primer subindice, cuchillos, 
cada uno de los cuales vale tres perias, tres figurillas 
o seis gramos de especias. La linea 68 se ocupa de 
las joyas, el cuarto elemento, y se pueden intercam- 
biar por dos perias, dos figurillas o cuatro gramos 
de especias. 

En la linea 69 se DIMensiona una matriz, A0(3), 
para almacenar las cantidades de perias, figurillas y 
especias adquiridas durante el intercambio. Esta no 
debe confundirse con la matriz OA, que almacenaba 
!a cantidad de cada mercancia adquirlda al comien- 
zo del viaje. 



M6dufo11:Lallegada 

Dlmensionamiento de las matrices del intercambio 

mm JS{2}:11{ ^=" P£RLAS'- :TS{2}= FiGUfli LLAS'^ :TS{3) = " ESPECIAS " 

61 DIMV1(3):Vta)=2:V1K=2-Vn3)=1 

62 m W(33:V2n)=2+0NT{RNDf1)MV2KV2(2}-2+ar^r[RNDar3)-^^ 

63 V2(3)=2+(IHT(RND{iri>2) 

64 DIMEQ[4,3} 

65 EQ(1 ,1)-0.S:EQ(1 =0.5:EQ(1 .3)=1 

66 EQ(2, 1 ) = S:EQ{2,2) =5:EQ[2 , 3)= 1 0 

67 EQ(3,1)=3:EQ{3,2)=3:EQ[3,3)=6 
66 EQ(4.1)=2;EQ(4,2)=2:EQ[4,3}=4 
69 DIM A0{3) 

Adicion al cuerpo principal del programa 

890 REM LLEGADA AL .NUEVO .yUNDO 
691 GOSUB 10000 



Subrutina de fa flegada 

1 0OOD REM lLESADA AL .NUEVO MUN'DO 
10001 PRINTCHRS(147):G0SU 89200 

10005 SS=-LLEOAS AL NUEVO MUND0*^":GOSUB910C 

10006 PRINT iGOSUB 9200 

10007 S$=" MIENTRAS TE APROXIMAS A U COSTA'" :GOSUB 9100 

10009 SS-'-SALEN NAWOS EN CANOAS PARA RECtBIRTE*" :GOSUB9100 

10010 PRINT;GOSUB9300 
10015 IF0A<2)=0 THEN 10050 

10017 ASPECTO ESFIERO YESTAN AfiMA[}OS!r":G0SUB9l00 

10018 PRlNTiGOSUB 9200 

1 0OeO SS= ABRES FU EGO? fS/N) ' " rGOSUB 91 00 

10022 INPUT IS; II=LEFSflS,1) 

10O24 IF ISo-W* AND IS<>"S" THEN 10022 

1CHJ2§ IF IS="N'' THEN 10050 

lOOaa PRINT:G0SUB9200 

10030 SI = "HAN MUERTO MLICHOS NATIVOS "':GOSUB 9100 

10032 S$="PERO DURANTE LA NOCHE'^iGOSUB 9100 

10034 SS="0TROSREGRFSAN'^G0SUB91O0 

1 0036 S$ = " Y LE PfiENDEN FUEGO A TU BARCO! ! I r " : SOSUB 91 00 

10036 PRINT:PRINT:GOSU89200 

10040 SS=" JUEGO TERMINADO"';GOSUB 9100 

10042 END 

10044 GOT0 10042 

1 0050 SS= "'TE LLEVAN A CONOCER A SU* " :GOSUB 91 00 
1 0052 SS= JEFE. VA HA CONOCI DO ANTES A GENTE DE* " iGOSUB 91O0 
1 0054 SS= TU RAZA V SE MUESTRA MUY AMAfiLE. " " ;60SUB 91 00 
10056 GOSUB9200 

1 0(^ £S= ^ L> TRIPULACION HA COMIDO Y ESTA DESCANSANDO" " : SOSUB 
9100 

10060 PR]NT:GOSUB9200 

1 0062 SS = " MANAMA COMENZARA U ACTIVIDAD COMERCI AL * " :GOSUB 91 00 
10064 PRINT:G0SUB9200 
10066 S$=ICS:GOSUB9100 
10066 6ETIS:IF 15='"' THEN 10068 
10069 RETURN 





Complementos al basic 

Spectrum: 

SustituirVIQ porB(}, V2() porD(), EQ(,) porQ(,)y 
A0() por E{) en todo el listado e introducir las 
siguientes modificaciones: 

60 DIMT$(3,9) 

10001 CLS:GO SUB 9200 

10022 INPUT l$:LETI$=l$(T01) 

10068 LET I$=1NKEY$:!FIS=""THEN GO TO 

10068 

BBC Micro: 

Introducir las siguientes modilicaciones: 

10001 CLS:GOSUB 9200 
10068 l$=GETS 
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GOTO END 



En este ultimo capitulo 
destacaremos la necesidad de 
describir adecuadamente los 
datos en pascal 



El disenador del rascal, Niklaus Wirth, titulo uno 
de sus libros Data structures ^algorithms^progr am 
(Estructuras de datos + algoritmos = programas), 
que refleja la importancia que posee la descripcioo 
de los datos para formular los algoritmos que pro- 
cesa esa informaci6n. Si utilizamos una matriz de 
chars para representar una serie de caracteres, por 
ejemplo, las funciones y procedimientos necesarios 
para procesarlos (hallar su longitude concatenarlos, 
etcetera) seran sumamente diferentes de los que se 



requeririan si se decidiera emplear en su lugar una 
lista enlazada. 

Tomemos a modo de ejemplo la sencilla tarea de 
hallar la longitud de una serie, siendo la misma des- 
conocida. Recuerde que hemos Uenado todos los 
elementos de matriz 'libres" de la representacion 
de matriz con caracteres ASCII NUL, chr(O), o ter- 
minado la iista dinamica con el valor de puntero 
NIL. La version de matriz parece algo simple: 

FUNCTION Longitud (S:serie):Cardinal; 
VAR 

M :O..LongituciSene; 
hallada :boDJean; 
BEGIN 
N:-0; 

hallada: =fa[se; 
REPEAT 
N:=N+1; 

hallada:=S[N]=chrCO) 
UNTIL hallada OR (!M=LongitudSene); 
IF haltada 
, THEN 

Longitud:=N-1 
ELSE 

Longitud: -LongitudSerie 
END; {Longitud} 



Programa 
Arbol 
Clasificador 



Este programa utiliza algunos procedimientos del 
anterior programa ListaCirc, siendo estos llamados en 
el momento adecuado. Los datos de nombres, 
cantidades adeudadas y cualquier otro campo que 
quiera anadir se entran desde teclado y se insertan por 
orden alfab^tico ascendents en un "^rbol binario" . 
Cada nudo del arbol tiene dos punteros que lo unen a 
elementos "menores" o ^'mayores^' . El recorrido del 
^rbol se realiza comparando los datos nuevos con el 
campo Nombre de cada nudo y tomando el campo de 
enlace adecuado (Ramitinf o RamifSup). Cuando 
haliamos un nudo vacfo (es decir, uno que tenga una 
rama de valor NIL), se inserta el elemento. La escntura 
de los datos en el archivo se consigue entonces de 
forma sencilla y natural mediante un procedimiento 
' recursivo. Usted podrfa utilizar estos ejemplos como 
base para un potente administrador de datos: un juego 
de programas, quiza, diseiiado a medida para su 
propio uso. Unaadvertencia; si lee un archivo ya 
clasificado sobre un arbol binario, cada inserci(5n se 
producira en la misma rama y el arbol se convertir^ en 
una iista de enlace simple. Para aplicaciones mas 
simples, probablemente lo mas vers^tii sea la Iista 
circular. En ella no hay punteros NIL en absoluto, 
ahorrandose, portanto, unacomprobaciondoble en 
cada comparaci6n, mientras que e! arbol binario 
tendra (Cantidad de Nudos+1) NILs. 



PROGRAM Arbol Clasificador (in put , output, ArctiivoDatos) ; 



CONST 



NombreArctiivo 
Longitud Serie 



^Arboidatos'; 
25- 



TYPE 
Cardinal 
Tamano Serie 
serie 
cosa 
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= O.^Maxliit; 

= 1..Longitud.Serie; 

= PACKED ARRAY [TamanoSerie] OF ciiar; 
= RECORD 

l^ombre :serie: 

{otros campos,.) 

deuda ;Cardinal 
EMD; {cosa} 



TipoArchivo = FILE OF cosa; 
arbol = trama; 

{**referencia adelantada a:} 
rama - RECORD 

item ;cosa; 

Ramifinf, 

RamifSup :arbol 
END; {rama} 



: cosa; 

: TipoArchivo; 
: arboi: 



VAR 
dates 

Archivo Datos 
tronco 

INCLUDE Utils.src' {'**arct3ivo fuente que contiene :Sa!tarBlancos, 

LeerFicha y LeerLinea - ver programa ListaCirc* * ] 
{1111111111111111111111111111111111111111} 

PROCEDURE Leer Cantidad (VAR cantidad : Cardinal); 
*Validar un valor=Cardinai legai " * } 

VAR 

OK : boolean; 

BEGIN 
REPEAT 
REPEAT 
write {'Cantidad?': 20); 

IF EoLn( input) THEN 
ReadLn( input); 



SaltarBlancos [ input ) 
{ * * volver a solicitarla si final linea ** } 
UNTIL NOT EoLn{ input); 



LeerFicha ( input, cantidad. OK ); ^ 



IF NOT OK THEN 

WriteLn ( -ERROR-' : 20. 

'por favorvueivaaentrar' ) 
UNTIL OK {* *insistir en un numero valido* * } 



PROCEDURE Crecer (VAR hoja 
{**anadiratarl]o)"} datos 
BEGIN 
naw ( hoja ); 

WITH hoja t DO 
BEGIN 
Item datos; 



: arbol; 
:cosa); 



PASCAiyCiencia informatica 



Este algoritmo puede dar lugar a errores o a confu- Rpnyrsinil 
sion. ^Para que necesitamos la variable booleana msUiilalUll 

local hallada? Y ^por gue debemos asignarle a Lon- 
gitud el valor N-1? Estas son molestias mmimas; 
pero si recurrimos a dispositivos artificiales como 
este, la formulacion de algorittnos mas complejos 
puede voWerse muy coofusa y sujeta a errores. 

La utili^acion de "banderas de bits" (que conoce- 
mos como tipos booieanos) es el ardid mas antiguo 
del libro del programador, pero a menudo sc intro- 
ducen simplemente por el bien del ordenador y no 
como parte natural del algoritmo, Debe utilizarse 
la variable local N, no LonQitud, dado que esta es un 
identificador de funci6n y no una variable, Los 
identificadores de funcion en el lado derecho de 



Muchos de los ejemplos triviales que se emplean 
para ilustrar la recursion se podrian expresar igual- 
mente bien (si no mejor) como algoritmos iterati- 
vos; pero veamos la funci6n Longitud para el tipo de 
serie recursiva". 

:Cardinal; 



una sentencia como: 

Longitud:=Longitud+1 

intentarian realizar una llamada recursiva a la pro- 
pia funcidn Longitud. 

Compare esto con la funcion Longitud necesaria 
para series que utilicen una lista enlazada. Con la 
representaci6n din^mica, recuerde que la defini- 
ci6n TYPE de serie es muy diferente, permitiendo la 
creaci6n de una longitud de serie cualquiera. Con 
frecuencia, las descripciones de datos como estas se 
definirdn de forma recursiva- 



FUNCTION Longitud (S;serie) 
BEGIN 
IFS=NIL 
THEN 

Longitud: =0 
ELSE 

Longitud: =succ(longitud(S t .siguiente)) 
END; {Longitud} 



La cabeza de la lista es S y la expresion 
St 'Siguiente selecciona el carapo puntero del si- 
guiente registro de la lista, Por otra parte^ se puede 
pensar que se trata de una lista que comienza por el 
siguiente registro (ButFirst). Siempre que no encon- 
tremos un NIL, llamamos a una evaluacion de la 
longitud de ButFlrst y la incrementamos con SUGG. 

Existen muchos problemas m^s que solo se pue- 
den resolver de forma eficaz mediante el empleo 
natural de la recursion. El ejemplo anterior es mas 
bien trivial y le permitir^ escribir Longitud con rela- 



Ramiftnf : = N IL; { ' * No mas datos aun, } 
RamifStjp := NIL {mas alia de esta rama**} 
END 



END; {Grecer} 

{1111111111111111111111111111111111111111} 

PROCEDURE Trepar (brote : arbol; 

[ * * hal lar I ugar pa ra tnse rtar* * } datos ; cosa ) ■ 

VAR 

tallo : arbol; 

masgrande : bcolean; 

BEGIN 
WHILE broteoNIL DO 
BE6 I N { * * hallar u na rama vacia* * } 

telle := brote; 

masgrande;= datos . Nombre> 

tallo t ^^tem . Nombre; 

IF masgrande 
THEN {^Mreparhaciaarrlba**} 

brote ;= brote f .RamlfSup 
ELSE {**treparhaciaaba)o**} 

brote := brote t ^ Ramifinf 

END; 

C^^Gs-f brote, datos ): 

Fssspinde 

1^ {**irisertararrlba**} 

tA) t . RamitS u p ; = b rote 
BM {**tnsertarabajo**} 

^t.Ramiflnf:- brote 

nill1 11111 1111 11111 1111 1111 11111 1111 1111} 




bi^mlr (VAR F 
arch]vo**}ralz 



: TipoArchlvo; 
: arbol); 



5IC 



>:**fecufSion:} 
rofden:} 

■laf ): {•*primero abajo,} 
t^Oifaiimisma,) 

] (por ultimo abajo**} 



'Tniiitttiniiiiiiiiiiiiiiiii} 



IFraizoNILTHEN {^^recursion^*} 
BEGIN ( * " reclamar p ri mero ram If load ones-) 

Red a mar { raiz t . Bamlfinf ); 

Reel a mar ( raiz f . Ram If Su p ) ; 

dispose ( raiz ) {-despues la raiz''*} 
END 



END; {Reclamar} 

{1111111111111111111111111111111111111111} 

BEGIN {A rbo I Clasif icado r - Progra ma p ri n cipal } 

asignar ( ArcbiwDatos, NombreArchivo ); 
pagina (output); 

WriteLn {'=== Glasificaclon en arbol ===' : 25 ); 
WriteLn; 

WriteLn ( 'Entre algunos datos ( apellido primero)' ); 

write ( 'Nombre ? ' ); 

LeerUnea { datos , Nombre ); 

LeerCantidatJ ( datos . deuda ); 

Grecer ( tranco, datos ) ; { ^ plantar el tronco del arbor } 

write ( Nomftre ?' ); 

LeerLinea ( datos. Nombre ); 

WHILE datos . Nombre [ 1 ]<>chr ( 0 ) DO 
BEGIN 

LeerGantldad ( datos . deuda }; 

Trepar [ troncOp datos ); 

WriteLn ( 'RETURN cuando bepho' : 40 ); 

write ( 'Nombre ? ' ); 

LeerLinea! datos. Nomdre) 

END; 

{**otro proceso, lue^o escribir el archivo ;} 
WriteLn { 'Escribir los datos en : '.Nombre Archivo ); 
rewrite [ Archivo Datos ); 
I m prim I r { ArchivoDatos, tronco ); 
WriteLn; 

WriteLn ( 'Deuda' : 8. 'Nombre : LongltudSerla }; 
WriteLn; 

re set ( A rc h I vo Datos ) : {" ' lea r el arcbi vo , } 

{e imprlmir Ids datos ordenados :} 
WHILE NOT EOF (ArchivoDatos) DO 
BEGIN {"leercadaraglstro*'} 
read ( ArchivoDatos, datos ); 

{* 'escribir los campos en la VDU : } 
WITH datos DO 

* WriteLn { deuda ; fl, ' : \ l^ombre ) 

ENO; 



: aftid): 



Reciamar (tronco ); {**disponer de la rnemoria} 
{para posterlores procesos. etc, ' • } 

END. 
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Ramifinf I RamifSup 



,<^p\>'a\>'c' 



Ram if I 



RamifSup 



NIL 




Ramifinf | RamifSup 



Mil 




Ramifinf ! RamifSup 



newChoja); 
WITH hoja t DO 
BEGIN 
lett:=character' 
Ramif1nf^=NIL 
RamifSup;=NIL 
END 



lett<'p' 

I— ^ 

] RamifSup 



lett>^p' 



Ramittnf 



^1 



NUDO RAIZ 



tiva fadlidad sio utilizar la recursion. El codigo es 
m^s extenso y se debe e m pi ear an contador loc al 
(al igual que en la version de matriz) espedfica- 
mente para evitar la recursion. 

FUNCTION Longitud (S:serie) iCardinal; 
VAR 

N :Cardlnal; 
BEGIN 

N:=0; 

WHILE SoNIL DO 
BEGIN 
N:=N+1; 
S:=St -siguienta 
END; 
Longitud:=N 
END; {Longitud} 

Incluso en este algoritmo iterativo la claridad y la 
precision son evidentes y obedecen a la simple na- 
turaleza recursiva de la estnictura de datos. 

Muchos compiladores de pascal soportan direc- 
tivas, que son mstmcciones para el compilador, no 
declaraciones ni sentencias. En realidad la unica di- 
rectiva exigida por el ISO Standard es Forward (mas 
adelante). En el caso de que dos procedimientos o 
fundones necesiten llamarse entre si, se dice que 
son mutuamente recursivos. Esto se produce muy 
raramente, pero plantea un problema: no se puede 
utilizar ningun objeto del pascal hasta que hay a 
sido declarado o defmido. 

La solucion estriba en declarar solo el encabeza- 
miento de un subprograma, sustituyendo su bloque 
por la directiva del compilador FORWARD. Tras la 
defmicion completa del otro modulo, se consigna el 
encabezamiento de forma abreviada (omitiendo la 
lista de par^metros) y es entonces cuando se define 
el bloque. A menudo se soele disponer de otras di- 



rectivas para controlar las opciones de compilacion, 
pero no deben emplearse de forma liberal si se 
desea conservar la poitabilidad. Esto significa que, 
ademas de que como primer car^cter del comenta- 
rio debe aparecer un simbolo especial (por lo gene- 
ral $), las opciones no portables podran no ser 
aceptadas por un compilador diferente. 

Mas complementos 

Algunas implementaciones no estandaiizadas (en 
particular HiSoft) exigen una sintaxis ligeramente 
distinta para adelanlar declaraciones de puntero. 
En este caso^ usied debera remitirse a su manuaL 
Hay muy pocos "complementos" de esta clase, y 
ninguno en absoluto para los compiladores de pas- 
cal que se ajusten a la definicion ISO del lenguaje. 

Otra diferencia que quiza encuentre en las ver- 
siones UCSD, TCL/RML/Oxford y HiSoft es la 
falta de un procedimiento dispose. En lugar del 
mismo, se proporcionan los procedimientos no es- 
tandarizados mark y release. 

Existe aun otra importante descripcion avanzada 
de datos en pascal que aun no hemos mencionado: 
la "variante''. Cuando hemos querido almacenar 
elementos de tipos diferentes, hemos utilizado un 
registro con campos de tipos adecuados, Pero su- 
pongamos que es necesario que la descripcion de 
una parte, o incluso de todo el registro, sea flexible, 
TTpicamente, puede que se desee almacenar infor- 
manon personal diferente sobre los llamados "suje- 
tos de datos", que dependa, por ejemplo, de si el 
individuo esta casado o no. En un registro variante 
se define primero su "parte fija", despues se especi- 
fica la parte variante me di ante la introduccion de 
un selector de variante (de coalquier tipo simple) y 
utilizando las palabras reservadas CASE y OR: 

TYPE 

genero=(varon,muier): 
variante = RECORD 

{cualquier campo comuri} 

CASE casado: boolean OF 
false:{); 

true :(FechaCasamiento:serie; 
CASE sexo:genero OF 
varon:0; 

miiier:(NombreSoltera:serie)) 
END:{variante} 

Observe que las listas de campos vados deben 
tener parentesis. El espacio en un archivo sera fijo 
(para la variante mas larga), pero se puede guardar 
memoria con punteros de variantes tales como 
new{p,true,varon). 

Lx)s escasos puntos debiles del pascal en gran 
parte han sido eliminados median te los esfuerzos 
de los especialistas en pascal (y por Wirth en el 
MODULA-2). El lenguaje es formidablemente poten- 
te y, aun asi, pequeno, eficaz, para fines generates 
y facil de aprender. Por supuesto, si usted se cine a 
ia defmici6n ISO habri algunas operaciones a nivei 
de sistema que no podra implement ar. Una posible 
solucion es escribir estas rutinas en ensamblador o 
BCPL y unirlas a un program a en pascal. Las ven- 
tajas de que todo su c6digo fuente en pascal sea 
portable a cualquier micro, mini u ordenador cen- 
tral del mundo son indiscotibles. El pascal es el 
enfoque mas proximo que tenemos a una lingua 
franca informatica. 
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Un compatible competitivo 




. rriefcado que 

* - : i^fy? per \z 

■ - :5Ttesca 

. : : irdad, el 
; : ■ ■ =do en el 
. . . , ■ ■: ;:55 y utilEza 
. . : iir; ;e Jisco estendar 
It : - :_ :i:as. En la 

vmos el modelo de 
ciaes de disco gemelas^ qoe 
posee 1 28 K adiclonales de 
memoria. Ei ordenador esti 
visualizando el Flight simulator 
(simuladorde vuelo) de 
Microsoft, escfito para el IBM- 
PC. La capacidad para ejecutar 
este programs as una pmeba de 
su compatibllidad 



Con la introduccion del modelo 
1 000 la empresa Tandy espera 
ofrecer una alternativa 
relativamente economica al 
IBM-PC 



Aunque Tanch' Corporatioii foe uno de los prime- 
ros fabricantes que se mtrodnio en el mercado del 
microordenador, con el TKS-^, la empresa no 
consiguio ganar el interes masi^o que obtuvo el 
Commodore en el mercado personal o el Apple en 
ei mercado de gestion. Ahora Tandy parece haber 
modificado sus planteamientos comerciales y se dis- 
pone a un ataque bilateral sobre el mercado de ges- 
ti6n. Por una parte ^ asociandose con ACT (fabri- 



cantes del Apricot), Tandy ha puesto al dia su 
gama de maquinas en la cadena de centros de infor- 
matica de toda Europa, que estan ahora vcndiendo 
la gama Apricot. La otra punta de lanza dc ia ofen- 
siva de la empresa es la que representa su propio 
departamento de fabricacion. 

A muchas personas de ia industria durante cierto 
tiempo les ha parecido obvio que quienquiera que 
pudiera ofrecer una maquina verdaderamente com- 
patible con el IBM-PC a un precio reducido, estaria 
llamado a ser on ganador, tanto en ei mercado de 
gestion come cn ei mercado del ordenador perso- 
nal de Estados Unidos, donde los consumidores 
tienden a adquirir maquinas para uso personal que 
en Europa se consideran demasiado caras para 
cualquier aplicacion que no sea de gestion. 

Se afirma que el Tandy 1000 es una maquina to- 
talmente compatible y, con una tinica unidad de 
disco y 12S K cuesta poco mas de £1 100 (unas 
240 000 ptas) en el mercado britanico. Sin duda al- 
guna, Tandy confia en que, al rebajar drasticamen- 
te su precio frente al de la competencia, podra revi- 
talizar su departamento de productos de informi- 
tica. 

El ordenador que vamos a examinar aqui es la 
version del Tandy 1000 de 256 K con unidades de 
disco gemelas, A primera vista, guarda un parecido 
mas que casual con el IBM-PC. La maquina se 
compone de una caja grande que eontiene el orde- 
nador propiamente dicho, las interfaces y las unida- 
des de disco. Encima se apoya la pan tall a y hay un 
teclado mdvii que se pucde colocar del modo mas 
conveniente. 

La maquina Tandy posee el mismo aspecto so li- 
do y fiable que el IBM-PC. Al igual que la maquina 
IBM, el Tandy 1000 incorpora un teclado que se 
enchufa al ordenador y que tiene teclas esculpidas y 
una superficie eurvada para facilitar la digitacion. 
Ademas, para contribuir a un posicionamiento 6p- 
timo, hay debajo dos patas que inclinan el teclado 
hasta un angulo de 15**, 

Si bien el Tandy posee las teclas necesarias para 
lograr la compatibilidad, dstas estan dispuestas de 
un modo distinto al del teclado del IBM-PC. Esta 
estrategia tiene sus ventajas y sus inconvenientes. 
En el la do positivo, el teclado del IBM, aunque ala- 
bado por su disenOj ha sido categ6ricamente criti- 
cado en muchos sectores por una cierta inconve- 
niencia en la eolocacion de algunas teclas vitales, 
como las teclas Shift y Alternate. El tamano relati- 
vamente pequeno de las teclas Return y Control 
tambien ha suscitado criticas. 

Es obvio que Tandy ha tomado not a de estas cri- 
ticas en el mom en to de disenar el teclado. La tecla 
'T, que causaba muchisimos problemas al utilizar 
la tecla Shift del lado izquierdo, ahora se ha supri- 
mido por completo, asumiendo sus funciones las te- 
clas de SHIFT 4 y 7 del teclado numerico. Del mismo 
modo, las teclas Alternate y Caps Lock se ban tras- 
ladado desde sus posiciones a los lados de la barra 
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espaciadora hasta la zona del teclado nonierko y 
abajo y a la izquierda de las teclas Control, respec- 
tivamente. Estos cambios han tenido como efecto 
global que la digitacion normal resulte mucho mas 
sencilla que en el teclado IBM. 

La desventaja de estos cambios formales es, por 
supuesto, que una vez que uno se ha tomado la 
molestia de familiarizarse con el idiosincrasico tra- 
zado del IBM-PC, tendra que volvcr a aprenderse 
el teclado. No obstante, a los recien iniciados les 
resultara mucho m^s facil habituarse al mismo. Las 
teclas son de recorrido total y su calidad "tactil" es 
una de las mas estimables del mercado. 

Asimismo, Tandy ha introducido otros cambios 
en el teciado. Las teclas Insert y Delete se han in- 
corporado con las funciones + y y ahora se ha- 
Han encima del teclado, no debajo. Entre las adi- 
cionales se incluycn teclas individuales del cursor 
para edici6n, asj como teclas Hold, Print y Break, 
todas las cuales se han situado entre las de maquina 
de escribir y las de teclado de calculadora. La adi- 
cion de estas tecias ha supuesto la reubicaci6n de 
las teclas Function, desde el extreme izquierdo del 
teclado en el IBM-PC, hasta justo encima de las de 
maquina de escribir. Aunque probablcmente haya 
sido inevitable^ ahora las teclas estan situadas de 
forma menos conveniente que lo que lo estaban 
antes, pero, a mode de compensacion, Tandy ha 
proporcionado dos teclas Function adieiooales. 

Retomando al ordenador propiamente dicho, 
Tandy ha optado por la forma de caja grande pro- 
piciada por IBM. En la parte frontal, en el lado 
izquierdo, hay un par de unidades de disco flexible 
de 5 ^4 pulgadasj si bien el modelo estandar posee 
una sola unidad pero con facilidad para albergar 



Bottin de reset" 

Este boton, en la parte fronial 
del ordenador, produce un 
arranqueen friodel sistema 



La parte trasera 

Aderriits de contar con una 
hterfaceparaimpresora 
Centronics, el Tandy 1000 posi 
los dos tipos de conector para 
pantalla: RGB y video 
compuesto. Con el fin de 
aprovechar al max! mo las 
capacidades de sonido del 
Tandy hay, asimismo, un 
enchufe de audio que se 
proporclona para amplificar el 
sonido a trav^s de un sistema 
al!a fidelidad convencional 




RAM extra _ 

La maquina fotognalfada esT^ 
equipada con 128 K de RAM 
adicionales, instalados en una 
de las ranuras para ampllacldn 
existentes 



Conector del 
teclado, 

El teclado se enchufa en este 
conector DIN 




Piiertas 
paddle 

En este par de conectores DIM 
se enchufan paddfes y 
palancas de mando 



Altavoi 

Para poder utilizar las 
capacidades de sonido 
proporcionadasporel MS- 
BASic, el ordenador cuenta 
con un altavoz Incorporado 



otra. Aunqoe en lineas generales son algo mas si- 
lenciosas que sus equivalentes IBM, las unidades 
mostraron pequenas diferencias en cuanto a veloci- 
dad de acceso. Una molestia minima es que los dis- 
cos no se cargan a resorte. Esto significa que no 
saltan fuera de las unidades cuando estas se destra- 
ban y que hay que sacarlos con los dedos. 

Debajo de la proyeceion frontal, junto a una reji- 
Ila de ventilacidn, hay un par de enchufes DIN de 
270° y seis patillas para palancas de mando o otros 
disposittvos de control exteroo, A la izquierda de 
dstos hay un boton grande de color naranja, la rei- 
nicializaci^n del sistema, que proporciona el arran- 
que en frio. A pesar del hecho de estar tan a la 
vista, existen muy pocas probabilidades de pulsarlo 



1730 



randy 1000 / Hardware 




Chips de RAM 

El Tandy 1000 SB proporciorta 
con 1 23 K de RAM como 
est^ndac, pero pueden ser 
ampliados Eiasta 640 K 



Translormador de potencia 

ElordenadorpDseesu propio 
transformador de potencia^ A1 
costado puede ver el 
interruptor de on/off 



I 



Hies de disco 
ii^radaestl equipada 
ic5 -"'ra!?? de disco 
' " rsdas, 
: : :- Titandar 



, poesio que se halla en la carca- 
L la mejor posici<3n posible, 
oo penniten que 
opmlTiu sin pulsar antes 
lesBlta utii mi reset 
i ea una ma- 




~ J. da como ooDKlDr wx^bA. A ^ 

■ : : : _ " ay un conector D de siete paiillas para tm 
:r:i CO y una puerta paia la conesion de ini 
ijXMsnor RGB. Mas hacia la derecha, debajo del 



ventilador de refrigeracion, hay uo par de coneclo- l j mnj • 

res microjack, uno de Ids cuales proporciona un co- TANDY 1 uOO 

neclor de video compuesto para pantallas mono- 
cromaticas o a color de video compuesto; el otro es 
un conector de audio que puede amplificar el soni- 
do del ordenador a traves de un sistema de aita fi- 
delidad convencional. En el extremo derecho hay 
tres conectores de ampliacion en los que se pueden 
instalar interfaces para perifericos adicionales o 
placas de memoria. 



DIMENSIONES 



420x335x150 mm 



BOaa, operando a 4 J7 MHz 



Meritos comparativos 

Tandy ha hecho hincapie en el hecho de que so 
maquina proporciona muchas facilidades de inter- 
face de las que no dispone el IBM-PC estandar. 
Aunque esto es verdad, la empresa parece haber 
proporcionado apenas el minimo necesario para 
una maquioa de gesti6n utilizable- For ejemplo^ la 
maquina de precio minimo est a dotada de 128 K de 
RAM, lo que no es suficiente para ejecutar algunos 
de los paquetes de software integrado mas nuevos, 
Y, si bien el Tandy 1000 es una maquina completa- 
mente autosuficiente, una puerta RS232 (que es 
opcionai) es esencial para cualquier clase de comu- 
nicaciones que pueda requerir el usuario de ges- 
tion. For otra parte , ciertamente ofrece, conside- 
rando su precio, mas prestaciones que el IBM-FC, 
el cualj con las mismas facilidades, costaria mucho 
mas. Siempre y cuando, por supuesto, el Tandy sea 
autenticamente compatible con el software IBM. 

El problema de intentar la compatibilidad con el 
IBM-PC no estriba ni en la CPU 8088 y ni siquiera 
en el sistema operativo MS-DOS, dado que ambos 
se pueden adquirir contactando con los fabricantes 
adecuados. La dificultad estriba en el BIOS (Basic 
Input/Output System: sistema basico de entrada'sa- 
lida), cuyo copyright pertenece a IBM, Muchos 
programas em pie an saltos directos a las rutin as 
BIOS y, a menos que una maquina compatible 
tenga las rutin as relevantes en las mismas direccio- 
nes, el programa no funcionara correct amente. 

En este sentido, el BIOS del Tandy 1000, escrito 
por Phoenix Compatibility Corporation, es excep- 
cional. En la maquina no solo se ejecuta el Lotus 
2-2-3, cuyas dificultades son ootorias (aunque aun 
con 256 K de espacio de memoria estaba bastante 
justo), sino que el ordenador tambi^n ejecuta el 
Wordstar 2000 y el dBase II. 

A pesar de ello, el Tandy 1000, al igual que el 
IBM-PC, es sumamente lento para c^lcolos mate- 
m^ticos en basic, Completar un contador de 0 a 
lOOOj utilizado como sencillo programa comparati- 
vo, llevo seis segundos completos, mas que muchos 
micros de ocho bits. 

El Tandy 1000 es, indudablementCj una alterna- 
tiva viable para el usuario de gestion que desee 
sacar partido de la gran cantidad de software de 
calidad que se ha escrito para el IBM-PC. Sin em- 
bargo, debido a las limitaciones de hardware que 
impone la companbilidad con IBM y a la necesidad 
de mantener ei predo lo mas bajo posible, Tandy 
liapresentado una maqmna que, desde el punto de 
\isXB. de la mfoniiatica de gestion, es esencialmente 
gmfictiada Asi y todo, siempre y cuando IBM no 
ledoaca ei predo de su maquina a modo de repre- 
lafia (lo que parece improbable), la Tandy Corpo- 
Tatjofi b^im producido una maquina que obtendrd 
un enorme exiEo. 



1 26 K de RAM como esUndar; 
ampliables a 640 K 



80x25 caracterea fin modal jdad 
detexto, 640x200 pixels en alta 
resoludon. La maquina puede 
visuaSizar hasta ocho colores entre 
una gama de16 



INTERFACES 



Conectores para monitor 
compuesto y RGB, puerta para 
impresora, enchufe de audio y tres 
Interfaces paraampliacidn 



LENGUAJES DISPONtBLES 



BASfc, mas una sefeccion 
disponible bajo IVIS-^DOS 
incluyendo cobol, Fortran, etc. 



90 teclas en total, incfuyendo un 
teclado nunn^rico y 12 teclas de 
tunci6n 



La documentacion incluye 
explicaciones del MS-DOS, MS- 
BASIC y el paquete integrado 
Deskmate que se entrega junto 
con la maquina 



VENTAJAS 



Tota'mente compatible con el 
IBM-PC, proporctonando una 
cantidad de interfaces de las que 
no dispone el modelo IBM basico 



DESVEHTAJAS 



Con el diseno de Ea m^qyma, 
Tandy no ha avanzado mas alls del 
disefio del 18M-FC original. La 
utiti2aci6n de m procesador 80&B 
en lugar def 8086, mSs avanzado, 
ssgnlfica que fa operacibn del 
Tandy 1 000 es m^s Senta de lo que 
cabiaesperar 
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Robots en el M05 



Usted se encuentra solo, abandonado sobre un planeta defendido 
por robots aseslnos. El suelo esta sembrado de minas... Ya 
conoce el problema. Pero tal vez no en el M05 de Thomson 



Las minas estan representadas en la pantalla por 
rombos rojos. Al comenzar el juego, hay cinco ro- 
bots preparados sobre el teneno. Sin perder un 
solo segundo, se precipitan sobre usted siguiendo 
siempre el camino mas corto. Afortunadamente, 
son ciegos y no pueden ver las minas situadas entre 
usted y ellos, lo cual le permitira, siempre que se 
desplace de forma adecuada, eliminarlos. Para ello 
utilice la palanca de mando o las teclas A, Z, E, Q, D, 
W, X, Cj segun la direcci6n elegida por usted. Una 
vez eliminados todos los robots, el juego prosigue 
con un robot suplementario. Si salta sobre una 
mina o un robot le mata, aon no esta todo perdido. 
Usted dispone de cinco vidas. Si desea cambiar el 
numero de minas, modifique el valor de la variable 
NM en la Imea 80. 



10 REM'**^-******" 
20 REM ' ROBOTS * 
30 REM'**" "* 
40 DEFJWTA-Z 
50 CLEAR ..3 
60 NH=5 
70 N1=5 
m NM=40 

100 DIMR(30,1) 

110 GOSLJB1580 

120 GOSJS1470 

130 GDSUROtO 

140 DI^JS GOSUB 710.810 

150 C-P0INT[HX"8+4,HY*e+4) 

160 IFC<>'-13ANDC<>4THEN470 

170 COLOR 4 

180 LOCATEX,¥ 

19D PRfNTMl; 

200 LOCATE HX.HV 

210 PRIWTHS; 

220 X=HX 

230 Y=HY 

240 1=0 

250 FORJ=1T0NR 
260 IFR(I.O)=OfflEN400 

270 T=1 

280 RX=R(l,D)+SGN[HX-Rn.O)) 
290 RY=RiLlS+SGN[HY-RiM)i 
3O0 C=P0(NT{RX^8+4,RY*6+4) 
31 0 IF 0^1 OR C=0 THEN S=S-t- 1 :LOCATE R(l, 

0).R[MV:PRlNr NS;;R(L0)-O:6OTO 400 
320 IF C=4 THEN 470 
330 COLOR 0 
340 LOCATE R{l,0),R [1,1) 
350 PRINTMS; 
360 LOCATE RX.RY 
370 PRINT RS- 
380 Rfl,0)=RX 
390 R(M =RY 
400 WEXT I 
410 IFT=OTHEW430 
420 GOT0 140 
436 S^S+10 

440 IFINKEYS<>^'"THEN440 

450 IFNR<30THENWR=NR+1 

460 GOT0 130 

470 NH=WH-1 

480 COLOR? 

490 LOCATE X,Y 

500 PRINT NS; 

510 LOCATE HX.HY 

520 PRINT H£- 

530 PLAY ' 195REL72REL24 REL%REL72FAL24M I 

L72ft1 IL24REL72REL2400#L96RE'' 
MO IF!NKEY$<>'""THEN540 



550 IFNH>0THENNR-N1:60TO13O 
560 CLS 

570 SCREEN 1.6, 6 
5B0 ATTRB1,1 
590 LOCATE 9,10 
600 PRINT TUWTOS :^S: 
610 LOCATE 9,20 
6^0 PRINT "OTRA 
630 COLOR 4 
640 AHRB 0,0 

650 IFINKEY3<>'"'TT^EN650 

660 DI=INKEYS 

670 IF DS-'"* THEN 660 

6S0 IFDSo'N'^THENRLN 

630 CLS 

700 END 

710 DS=FNKm 

720 [F D$= " A"* THEN HX=HX^1:HY=RY-1 

730 IF[>I='7''TH£NHY=HV-1 

740 IF = " r THEN HY =H¥- r HX = HX-H 

750 IFD$="0"THENHX-HX^1 

760 IFDJ="D"THENHX=HX+1 

770 IFDI-"W^THENHX=HX-1:HY=HY+1 

780 IF DS = "X" THEN HY=RY+T 

790 IF D$= " 0'' THEN HY=HY+1:HX=HX+1 

SOO RETURN 

S10 J=STIGK{0) 

820 IFJ=1TWENHY-HY-1 

830 (FJ=2THENHY=RY-1rHX=HX+1 

640 iFJ=3T>iENHX^HX+1 

050 IF J - 4 TH EN HX- HX4 1 :H Y= H Y+ 1 

S60 IFJ=5THENHY=HY4l 

370 IF J - 6 TW EN HY= H Y+ 1 :HX= HX - 1 

BSO IFJ=7TKENHX=HX-1 

890 IF J = 8 THEN HX= HX- 1 :HY= H Y- 1 

900 RETURN 

910 CLS 

920 COLOR 4 

930 LOCATE 0,24 

940 PRINT-piJNTOS :";S; 

950 If NH-1 THEN 100O 

960 FOR HX-1 TO NH-1 

970 LOCATE 19+HX,24 

9S0 PRINT HI: 

990 NEXTHX 
1000 COLOR 1 
1010 FORHX=OT039 
1020 LOCATE HX,0 
103O PRINT JVIS; 
1040 LOCATE KX,23 
1050 PRINTMS; 
1060 NEXT HX 
1070 F0RHY-1T022 
1080 LOCATE 0,HY 
1090 PRINTMS; 
1100 LOCATE 39, HY 



1110 PRINTMS; 
1120 NEXT HY 
1130 F0RI = 1T0NM 
1140 HX=ltJTfRND*38|+1 
1150 HY=INT(RNO'22)+1 
1 1 60 I F S C REE N(HX.H Y)<>32 THEN 1 1 40 
1170 LOCATE HX, BY 
1180 PRINTMS; 
1190 NEXT! 
1200 COLOR 0 
1210 FOR J=1 TO NR 
1220 R[I,0)-INT(RND*3B)+1 
1230 R[l,lj=tNTiRMD'22j+1 
1240 IF SCREEN{R(t,0).R(l.1 ))<>32 THEN 
1220 

1250 LOCATE R(l,0),Rt[,1) 
1260 PRINT RS; 
1270 NEXT I 

1280 HX=INT(RND*381+"f 

1290 HY=INTjRND'22l+1 

1300 IF SCREEN[HX,HY1<>32 THEN 1280 

1310 X-HX 

1320 Y-HY 

1330 FOR 1=1 TO 5 

1340 LOCATE HX.HY 

1350 COLOR 5 

1360 PRINT CHRS(1 27); 

1370 BEEP 

1380 FORJ=1TO50 

1390 NEXTJ 

1400 LOCATE HX.HY 

1410 COLOR 4 

1420 PRINT H$: 

1430 FORJ=1TO50 

1440 NEXTJ 

1450 NEXT I 

1460 RETURN 

1470 CLS 

1480 SCREEN 4, 12.0 

1490 ATTRB1J 

1500 LOCATE 10.10,0 

1510 PRINT "PAL MAMDO 

1520 ATTRBO.O 

1530 DS=INKEYS 

1540 C=RND 

1550 IF 0$='^" THEN 1530 

1560 I F DS = " 0" THEN JS - 2 ELSE JS- 1 

1570 RETURN 

1 580 DEFG RS m) = 28 ,28.73 , 62 A 28 ,20.20 

1590 DEFGR$il)=60, 126.219,255,255,1 26,36 .60 

1 600 0 EFGRS(2) = 0.0, 24 .60, 1 26. 126,60 .24 

1610 HS=GRS(0) 

1620 RS=GRSt1 

1630 MS=GRS[2) 

1640 NS-CHRS{32} 

1650 RETURN 
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Trazador digital/Bricolaje 




Nuevo proyecto 

Iniciamos la construccion de un trazador digital para utilizar con el 
BBC Micro. En primer lugar, esbozamos las etapas del proyecto y 
proporclonamos la lista de componentes 



Un trazador digital es, simplemente, iin dispositive 
mediante el cual se pueden trazar formas y figoras 
reales sobre un tablero y visualizarlas en una panta- 
Ua de ordenador. Una vez en forma digital, ona 
imagen se puede ya sea editar o bien giiardar en 
disco o cinta. El componente basico del dispositive 
es on brazo metalico, dividido en dos partes y con 
unos goznes para conformar una juntura de hom- 
bro y codo. Sobre estos goznes hay montados dos 
potenciometros que se pueden usar para proporcio- 
nar datos sobre ios angulos de cada juntura. Me- 
diante el empleo del oonvertidor AID que Ueva in- 



corporado el BBC MicrOj la salida anal6gica de 
cada potenci6metro se puede convertir a forma di- 
gital y, tras el calibrado, Ios datos entrantes se pue- 
den maoipular luego matem^ticamente para dar la 
posicion del exlremo del segundo brazo en relacion 
a la juntura del hombro. Las figuras de las ilustra- 
ciones muestran cdmo encajan entre si Ios elenien- 
tos basicos de construcci6n. La unidad se asienta 
sobre un tablero cuadrado de 46 cm en el cual se 
puede colocar la figura a trazar, Los brazos de 
metal se montan sobre ona pequeiia caja piastica, 
en la cual va montado, asimismo, un conector DIN 



PERILLASTIPO "VOLUMES" 



PERNOYTUERCAS 
PARAMOMTARLAMIRA 




Q CONECTORES DIM A PUERTA A^fAL^5GlCA 



ABLERO BASE 



ERBUPTOR 
ARRI8W 
lAPIZ ABAJO 




El trazador digital de BrtcolBjB 
ytiliza dos potenclomelros para 
proporcionar informacldn que se 
pueda convertir mediante 
soft\vaTe, merced a la puerla 
anai6gica det BBC fVlicro, para 
dar la posicion de lamirasohre 
et tablero 
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de 5 patillas que acepta un cable conector a la puer- 
ta analdgica del ordenador, asi como un intermptor 
de presioo que le proporciona al trazador una op- 
cion incorporada de lapiz aniba/lapiz abajo. En la 
punta del trazador se fija un pequeno trozo de plas- 



tico transparente, en cuya superficie hay grabadas 
senales en cruz para conformar una mira. El siste- 
ma de montaje esta disenado de modo tal que la 
mira se pueda subir o bajar para facilitar el trazado 
exacto sobre materiales de espesor variable. 



Lista de componentes 

Cant. ArticulQ 


Varios 


Fleje de aluminio de 600x25x2,5 mm* 


1 


2 Potencidmetro lineal de 100 K-ohmios 


1 


Tablero recubierlo de melamina de 


2 Perilfade40mm 




46x46 mm** 


1 Interruptordepresidn 


1 


Trozo pequeiio de pl^istico 


1 Caja del 14x76x38 mm 




transparente*** 


1 Encliufe DIN de 5 patillas 






1 Conector DIN de 5 patillas 


Observacifines 


1 m Cable piano de 10 vias 




A adquirlr en la mayoria de ferreterfas 


1 Caja pernos M5 




Se podrfan usartambi^n tiras de madera 


1 Caja pernos M3 




Tambien llamado "Contiplas", se puede 


1 Cajatuercas M3 




aslmismo adquirir en ferreterias en 


1 Caja tornillQs sin tuerca 




diversas anchuras y longitudes 


1 EnchtJteDdelSvias 




Se puede utilizar la seccion transparente 


1 Cubiei1aDde15v[as 




de un estuche de cassette 



Paso1:Talaclrado 
de fa caja 

La primera etapa en la construccibn del trazador es, 
si fuera necesario, corlar el tablero de base al 
tamano adecuado. Luego se habr^n de perforaren 
la pequena caja pl^stica una serie de agujeros en 
los que se instalaran, como se aprecia en la 
llustracidn, el brazo del trazador, el interrupter y el 
conector DIN. Tras haber perforado todos estos 
agujeros, se puede montar la caja en la esqulna 
superior izqulerda del tablero base, dejando un 
margen libre de 10 mm desde los bordes 




20 mm 



I (3^12 mm 

AGUJERO PARA 

MOMTAR EL 
POTENCIOMETRO 



10 mm 



0=12 mm (^^^ 

AGUJERO PARA 
MONTAR EL 
INTERRUPTOR 
LAPIZ ARRIBA/ 
LAPIZ ABAJO 
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Paso 2: Cortado del brazo 

A continuaci6n, corte el fleje metatico formando las 
dos longitudes cfe la ilustracl6n y taladre los 
agujeros requeridos. Observe, sin embargo, que si 
bien no son imprescindibles las longitudes exactas, 
s( deben ser precisas las distancias entre los 



agyjeros taladractos en cada extremo de los brazes. 
EJfo se debe a que estas distancias las utilizara el 
software para lievar a cabo los diversos c^lculos 
geometricos necesarios para determlnar la posicion 
de ta mira del trazador cuando se use la unidad. Per 
consiguiente, es importante medir cuidadosamente 
estas distancias antes de comenzar a perlorar 



0=3 mm, 

^==8 mm 



BRAZO 1 




20 mm- 



260 mm 



20 mm 



0=10 mm 



290 mm 
BRAZO 2 



0=5 mm 



222 mm 



245 mm 



Paso 3: Colocacidn 
de las perillas 

La ultima tarea de este capftulo conslste en montar 
la perilla de "volumen " en cada uno de los 
extrennos del brazo 1 , Estas perillas se utillzaran 
para lijar los potenc[6metros que impiementaremos 
enei proximo capftuio. Observe que el tiusillo del 



potenciometro se sujetarS mediante un pequeno 
tornillo empotrado en el costado de la perilla, Se ha 
de tener cuidado al montar las perillas, de modo 
que los tornillos empotrados queden orientados en 
direccion opuesta. Las perillas se fijan en el brazo 
perforando dos agujeros de 3 mm de diametro en la 
base de cada perilla, atravesandolas casi 
totalmente. Luego se deben Instalar las perillas en 
e! brazo 1 con la orlentacion correcta, utilizando 
tornillos sin tuerca, como se indica 



PERILLA 
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Entramados 



Estudiaremos en dos capitulos algunas rutinas de coma flotante 
del interprete de basic en el Commodore 64 



Las rutinas de coma flotante del interprete de basic 
no estan muy bien docomentadas (no hay, por 
ejemplo, una tabla de saltos como la hay para el 
nucleo), por lo que la busqueda de las llamadas 
puede ser ona tarea lenta a base de mtentos. Para 
dar a nuestra investigacido una meta vamos a tratar 
de crear una rutina de graficos en codigo maquina 
que nos permita obtener un dibujo en tres dimen- 
siones por medio de lineas y sobre pantalla en alta 
resolucion. 

Las ideas matematicas que aqui exponemos pue- 
den emplearse como base de otras rutinas aritmeti- 
cas mas rapidas, como seria e! producto de matri- 
ces. Se ha de recordar, desde luego, que los calcu- 
los aritm^ticos en tiempo real para crear im^genes 
visuales sucesivas no constituyen necesariamente ei 
mejor enfoque. A menudo es preferible cakuiar 
previamente los datos a partir de los cuales se cons- 
truir^n las figuras, antes de comenzar la secuencia 
del movimienio, Aun asi, la tecnica en tiempo real 
encaja con nuestros propositos mejor que otra. 

Las variables del basic se almacenan en la me- 
moria encima del programa en basic. Estas varia- 
bles se contienen en una tabla de variables, a cuyo 
inicio apunta el contenido de las posiciones 45 y 46 
(decimal). Como todo puntero del Commodore 64, 
ambos estan almacenados en la forma lo-hi. Por 
ello la direccion de inicio de la tabla de variables 
queda apuntada por la formula: 

PEEK(45)+256*PEEK(46) 

En el siguiente cuadro damos los distintos punteros 
asociados con las variables y su contenido normal: 



Puntero 


Funcidn 


Contenido normal 


43 4- 


Inicio del BASIC 


2049 


45/46 


inicio de las variables 


Depends de la iongitud del prog. 


47;48 


Inicio de tastablas 


Depende del num. de variabfes 


49/50 


Fin de lastabla&+1 


Depende del niim./tamano tablas 


51/52 


Vars, serie act. parte inf. 


Depende del num./long. variables 


55/56 


Parte sup. de lannem. 


40960 



Observese que las variables dinamicas en serie se 
disponen a partir de la parte superior de la memo- 
ria segtin se van definiendo. Pero las tablas se alma- 
cenan por encima de las demas variables en la tabla 
de variables, y cuando en el curso de la ejecudon 
del programa se encuentra una nueva variable , el 
OS desplaza toda el ^rea de almacenamiento de ta- 
blas hacia arriba en el numero de bytes necesario 
para aimacenar la nueva variable. 

El almacenamiento de variables en serie es por 
fuerza mas complejo que el del resto de las varia- 
bles. Las variables enteras (no ligadas en una tabla) 
y las variables de coma flotante solo necesitan 7 



b3rtes cada una, pero una variable en serie puede 
necesitar hasta 255 bytes. Para eludir esta compli- 
cacidUy el OS solo almacena la longitud de la varia- 
ble y un puntero que apunte a su direccion de inicio 
dentro de la tabla de variables. Si se define una va- 
riable literal en un programa basic (p. ej., 
A$="AMOR"), ^sta apuntara al primer byte de la 
variable alfanumerica dentro del area para el pro- 
grama BASIC. Tal variable se denomina estddca. En 
el momento en que el programa altera su valor pasa 
a ilamarse dindmica, Los valores de las variables 
alfanum^ricas dinamicas se construyen a partir de 
la parte superior de la memoria cambi^ndose el 
valor del puntero en la tabla de variables. De esta 
manera toda entrada se mantiene en 7 bytes cons- 
tantes. 

En una tabla de variables podemos encontrar fa- 
cilmente la direccion de una variable desde el basic 
mediante un ligero trabajo de rastreo. El quid de la 
cuestidn radica en que cada vez que el interprete 
BASIC Uame a una variable^ su direccion vendrd 
apuntada por un puntero de la pagina cero situado 
en las direcciones decimales 71 y 72, que puede ser 
examinado para descubrir la direcci6n buscada. 
Pero hemos de apresuramos en recabar esta infor- 
maci6n dado que la posicion 71 tambien la emplea 
elvsistema operative cuando debe evaluar expresio- 
nes numericas. 

El programa que sigue ilustra el formato de va- 
riables ordin arias segun son alniacenadas en la me- 
moria. La primera rutin a recupera una variable al- 
fanumerica de la memoria. Aqui empleamos la tu- 
nica que acabamos de describir para inspeccionar el 
contenido de las posiciones 71 y 72, almacenando 
inmediatamente estos valores en dos posiciones de 
reserva dentro del buffer para cassette. Seran em- 
pleadas posteriormente para calcular la direccion 
de la variable en serie y recuperarla. 

1000 REM"BUSQlEDAOEVARSERIEENMEMQRIA*^ 
1010 X$-''ABCDEf" 

1 020 REM ■ ■ HACE XS VARt ABLE ACTUAL* * 
1030 XS=XS-l-" " 

1 040 REM ^ ' GUARD A PU NTEftO OE TABLA VAR* ' 

1 050 P0KEe2a. PEEK{71 ) : PO KE829 , PEE Kt72) 

1060 REM ' *OlRECCfON'EN TABLA VAR* ' 

1 070 AOR = PEEK(82a ) + 250* PEEK(S29) 

lOeO REM' "MrRA ENTRADA EM TABLA VAR " 

1 090 LS = PEEK( AD R)- RE M LO I T U D D E VAR SERI E 

1 100 SA= PEEK[ADR-H)+256TEEKtADR-H2) 

1110 REM SA ES m DIR JNICJO DE VAR SERIE 

1120 REM-AHORA LEE LA VAR SERIE** 

1130 FORI=SATO£A+LS 

1140 VARS=VARS+CHR$(PEEK[I)) 

1150 NEXT 

1160 PR»NTVAR$ 

Puede que se !e ocurra pensar que si empleamos 
variables enteras (indicadas coo como X%) aho- 
rraremos memoria y aceleraremos las operaciones 
aritm^ticas. Pero no es asi en el Commodore 64, 
Cuando esta maquina tiene que realizar operacio- 
nes aritmeticas con numeros enteros, los convierte 
a coma flotante y llama a las rutinas de coma flo- 
tante. Por eso, aunque las variables enteras se pue- 
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den almacenar en s6lo dos bytes, se les reserva siete 
bytes de memoria si no estan almacenadas en una 
tabla, Estos bytes extra seran ignorados en el curso 
del proceso. 

La siguiente nitina localiza en la memoria una 
variable entera. 

1000 REM* *L0CALIZACI0N EN MEM, OE VAR ENTERA** 
1010 X%=345 B 

1020 REM* *HACE X% VARIABLE ACTUAL" 
1030 X%=X% 

10^0 RENr^GUAROA PUNTERODE TABLA VAR'* 
1050 P0KEfl23.PE£K(71):P0KEB29.PE£K(7a) 
1060 flEM**DIRECCIOJy ENTABU^ VAR'* 
1O70 AOR= PEEKf82a) +256* PEEKt829) 
lOeO REM'*MiRAENTRADA EN TABLA VAR** 
1O90 L0=PEEKtADR+1):H1-PEEK(ADR) 
110O REM**CALCULARESULTADO" 
1110 $[GNB!T-(HIAND12Syi2a 
1120 VAR=L0+25«*(HIAND127J-3276S'SIGNBIT 
1130 PRINT VAR 

Esta misma tecnica es v^lida para una variable de 
coma flotaote. Hay, sin embargo, un metodo mas 
econ6mico. Se basa en que al servimos de DEF FN 
para definir una funci6n de la variable X, se emplea 
X (sm que cambie s\i valor) siempie que se Uama 

a FN. 

Este otro programa emplea DEF FN para calcular 
la direcci6n de la variable basic actualmente conte- 
nida en las posiciones 71 y 72. Como X sirve de 
variable de la fuocion, estamos seguros de generar 
la direcci6n que pertenece al primer byte de X con- 
tenido en la tabla de variables del basic. Despues se 
Uama a FN para asignar esta direccion a la variable 
ADD. Obs6r\'ese que el poner a cero (u otro valor) 
por medio de ia instniccion FN no cambia el valor 
de X contenido en la tabla de variables, ni la direc- 
cion calculada por la funcidn, 

1000 REM "PARA HAILAR UN VAR DE CF EN MEMORIA" 
101 0 DEF FNA DR (X) = PE EK[ 71 ) + 256 " PEE K{72) 
1020 AOD=FNADR[0}:FIEWI DA StEMPRE LA DIRECCION OEX 
1030 X= -3.14159 

1040 REWt* ^CONVERSION BIN A DECIMAL* * 
1050 P0WERTW0=2'fPEEK(AD0}-125) 
1 060 S I G N = [ - 1 }1(PE£ K (A DD + 1 )AN01 28)/1 28] 
1070 REM-LAFRACCI0NESDE31SITS' 
1 080 D 1 = PEEK(ADD+ 1 ) A N D 1 27: R EM 7 BITS 
1090 D2=PEEK(ADD+2);REM 6 BITS 
1 1 00 D3= PEEK(APO + 3) : D4 = PEEK(AD D + 4] 
11 ID REM"GLUP*' 

1130 raA£T=2'("7)-D1 +r(~15)*D2+2"(^23rD3+r 

(-^i*D4 
11 30 MWiT^i-FRACT 
1140 VAR-SS«-POWERTWO*MAIiT 
1150 PROfTf'AJi 

Tablas en la memoria 

La ejecucion de la instniceion DIM hace que se re- 
serve espacio de memoria para una tabla. Se corn- 
pone de un byte de cabecera mas todos los demas 
bytes necesarios para almacenar el elemento. El 
formato de los elementos aim acen ados en una tabla 
difiere segun el tipo de variable que acabamos de 
ver. El cuadro adjuoto resume estas van antes. Hay 
que comprender bien estas diferencias si se desea 
acceder a los elementos de una tabla desde c6digo 
m^quioa. 

Pero antes veamos algunos aspectos de las opera- 
ciones aritm6ticas con coma flotante. Cuando el in- 
terprete del basic est^ realizando algon calculo en 
coma flotante almacena los resultados intermedios 
en dos acumuludores de coma flotante . Se los deno- 
mina, respectivamente, FAC y ARG, y el formato 
que se emplea es el mismo que para el almacena* 
miento de variables en la memoria. FAC se encuen- 
tra en las direcciones S61 hasta la $65 (97 v 101 en 
decimal) y ARG ocupa de la $69 a la $6D (1 05 y 1 09). 
Para mayor sencillez continuaremos usando las ru- 



Variables en memoria 



Variables enteras 



Byte hi ontero 


Byte lo entero 




- 




ByteO 


Byte 1 








Variables de coma flotante 








Exponente binario 
mas 128 


Bit de! signo And. 
Mantisa 1 (7 bits) 


Mantisa I 


(vrantisa o 


Mantisa 4 


ByteO 


Byte1 


Byte 2 


Bytes 


Byte 4 


Variables en sfif ie 










Numero de 
caracteres 


Direccion inicio 
vaf Sable byte to 


Oireoctt^n inicio 
variable byte hi 






ByteO 


Byte 1 


Byte 2 







tinas del interprete que s61o intercambian ni3imeros 
entre FAC y la memoria. 

Las rutinas del interprete con las que trabajare- 
mos en este apartado son: 

. MOVFM (llamada en direccion $8BA2): 
Esta nitina sirve para cargar el contenido de FAC 
desde una variable en coma flotante a la memoria, 
Se representa simboiicamente asi; F^M. Para lla- 
marla se cargara el acumulador con el byte lo de la 
direccion de'inicio de la variable en memoria, y el 
registro Y con el byte hi, 

• MOVMF (Uamada en direccion SBBD4): 

Esta rutina coloca el contenido de FAC en siete 
bytes de la memoria: M^F. Para llamarla se carga- 
ra el registro X con el byte lo y el registro Y con el 
byte hi del byte de inicio del destino de la variable 
en memoria. 

• FMULT (llamada en direcci6n $BA28): 

Es la rutina de la multiplicacidn, por la cual se mul- 
tiplica el contenido de FAC por el valor de una se- 
gunda variable en memoria^ y se almacena el resul- 
tado en FAC. La primera variable se coloca en FAC 
por medio de MOVFM y se apunta a la segunda va- 
riable cargando el acumulador con el byte lo y el 
registro Y con e! byte hi del byte de inicio ^ antes de 
llamar a esta rutina. Finalmente, si es necesario, 
podemos devolver el resultado a la memoria em- 
pleando MOVMF. 

O FADD (llamada en direcc!6n $B867): 

Esta rutina de suma realiza esto: FAC=MEM-FAC. 

Para llamarla, hay que cargar el acumulador con el 

byte lo de MEM y el registro Y con el byte hi de 

MEM. 

^ FSUB (llamada en direccion $B850): 
Esta rutina de resta realiza esto: FAC = MEM -FAC. 
Para llamarla cargamos el acumulador con el byte 
lo de MEM y colocamos el b>1e hi de MEM en el 
registro Y. 

Estas son las rutinas de interprete que incorporare- 
mos en la primera f ase de nuestro programa de gra- 
ficos. Examinemos otros componentes de dicho 
programa. 

La idea subyacente de este proyecto de graficos 
es que la figura reticular de lineas puede especifi- 



Tlpos de varittjles 

Existen tres tipos de variables de 
tablas en el Commodore 64, 
cadauna con un formato 
distinto en memoria. Las 
variables enteras se guard an en 
dos bytes como numeros en 
complemento a dos. Los 
nOmerosen comallotante 
necesitan cinco bytes para 
guardar la mantisa, un bit de 
signoyel exponente. Las 
variabies alfaniim§riGas se 
guardan en un ^irea diferente de 
ka memoria, tomandoun byte 
por cada caracter de la serie. Sin 
embargo este dato no se guarda 
en la labia; en su iugar, se usan 
tres bytes para dar el nOmero de 
caracteres de la serie y la 
direcci6n de 16 bits que apunta 
al inicio del drea de datos de la 
serie 
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Bien ataii<> 

El programa Rotsut hace dar 
vu&ltasa la figura de lineas 
SDbre lapantallaenalta 
nesoluclon. Esta figura se define 
per medio de cuatro tab las, tr&s 
de las cuaiesseempiean para 
contener las coordenadas X,Y,Z 
de cada nodo. Una cuarta tabia, 

se emplea para definir 
cu^ndo dos rrodos determinados 
deben unirse con una En 
el ejempfo, las cuatro tab I as 
estan Intcializadas paraprodtjcir 
una figura en forma de cubo 



Conexiones 



E%(1,2)=1 Indicauna 
Knea que une el p unto 1 
con el punto 2 



2 










¥ 

E%{1,3)=0 
ndlcaquenohay 
ninguna linea 
que una el punto 









1(X1.YrZ1) 



carse por medio de un ntimero de puntos (o nodos) 
y una matriz de conexiones de los extremos. Los 
nodos tienen las coordenadas X(l),Y(l),Z(l)j donde 1 
vale desde 1 hasta NP (el nuniero de puntos). La 
matriz de conexiones de esquinas es E%(l J), donde 
I y J van desde 1 hasta NP. Si el punto I se conecta 
con el punto J,E%(I,J) valdra uno, De lo contrario, 
sera igual a cero. Este procedimiento no es, desde 
luegOj ei mis economico en memoria, dado que 
empleamos dos bytes cuando bastaria con uno. 
Pero se facilita al usuario la tarea de especificar los 
puntos que ban de conectarse. En aplicaciones 



practicas, NP tampoco sera muy grande. 

Para comunicamos desde e! basic con la rutina 
de rotaci6n en codigo maquina, colocaremos 
(POKE) las direcciones de base de las tablas comen- 
zando por el elemento L Asi, las direcciones 
X(1),Y(1),Z(1) y E%(1J) no es necesario hallarlas. 
Ademas, suministraremos al c6digo maquina el nu- 
mero de puntos, NP, y el coseno (COS) y seno (SIN) 
del angulo de rotaci6n deseado alrededor del eje Z. 

Todo proyecto ambicioso en c6digo maquina 
debe proceder por pequenos pasos si no se desea 
caer en errores desastrosos mas adelante. Por ello 
hemos planificado el proyecto en tres fases. En la 
primera definimos los algoritmos y escribimos el 
texto del programa en basic. Esto se realiza en el 
programa Cubo giratorio en basic (pagina conti- 
gua), que hace dar vueltas a un cubo de tres dimen- 
siones alrededor del eje Z y proyecta el resultado 
en el piano X,Y. 

Nuestro otro objetivo es convertir el listado basic 
en codigo maquina. Pero comenzamos con una 
tarea menos ambiciosa consistente en dar ia subru- 
tina de la Hnea 1800 en su version de codigo maqui- 
na. Esto es lo que hace el programa l-Rotsub, 
dando ademas un programa de comprobacion de 
esta nitina. 

En el pr6ximo capitulo completaremos el 
proyecto y anadiremos el resto de la codificacion al 
listado assembly, asi como daremos un "Cargador 
en basic'' del programa completo. 



H'rograma l-Rotsub 64 

El siguiente listado en assembly sera 
ensamblado y cargado y el cddigo resuftante 
cargado como l-ROT.HEX 



PHA 

PHA 
TYA 
PHA 

;+++-hlNlCIALIZAVARJABLES-i 



++++++++ ++++ + + 
+ + l-R0TSJBi4 ++ 

+■+-1- + + -I- +++ + + +++ + + + + + 
+ + EMPLEA TABLAS DEFtW IDAS + + 
+ + DESDE BASIC S£ DEBEW COLOCAR + + 
+ + LAS DIRECCIOMES PRIMERO + + 

+-1- 4- ++++ +++ + + +-3-I- + 

iPLTSUB = SC183 

;XLO - SC103 

;XH( = SC104 

;VLO - SC105 

= IC544 

+ + VARIABLES ROTSUG -H ++ + 

VARfABLES LLAMADAS DESDE BASIC 

XBASLO '=*-h1 - POKE50500,X(0)LO 

XBASHl ^ = *+1 ; P0KE505O1,X(a)HI 

XBASLO *="+1 ; POKE50&D2,Y(a)LO 

YBASHI * = ^^^ ; P0KE5O5O3,Yja)HI 

NP * = ^+\ ; P0KE5O5D4,WP 
; VARIABLES EM PLEAD AS POR C/M 

XILO ^ = *+1 

XiHI * = ^+t 

YILO * = 

YIHI ' = '+1 

CSLO " = '+1 
CSHI 

SNLO *=*+1 
SNHI 

M£M1 * - * +5 ; VAR COMA FLOTANTE 

mm ' - * + 5 ; VAR COMA FLOTANTE 

FAC -S0061 
ARG 

LLAMADAS ARUM ETICASAL INTERPflETE 



FMULT 

FADOT 

FSUB 

FADD 

MOVfM 

MOVMF 



=IBA28 
=iBS6A 
=SB850 
=$BS67 
-SBBA2 
=SBB[>4 



FAC = FAC* ARG 
FAC=FAC+ARG 
FAC = MEM -FAG 
FAC- FAC + MEM 
FAC= MEMORY 
MEMORY- FAC 



GUARDA LOS REGISTROS 



START 



LDA 


XBASLO 




STA 


XILO 




LDA 


XBASHI 




STA 


XIHI 




LDA 


YBASLO 




STA 


YILO 




LDA 


YBASHI 




STA 


YIHI 




REALiZA MEMt=X(l)XS-Y(l)'SN 


LDA 


XILO 




LDY 


XIHI 




JSR 


MOVFM 


- FAC=X(I) 


LDA 


CSLO 


LDV 


CSHI 




JSR 


FMULT 


: fAC=Xt!J*CS 


LDX 


#<MEM1 


LOY 


#>MEM1 




JSR 


MOVMF 


; MEM1-Xfl)'CS 


LDA 


YILO 


LDY 


YlHi 




JSR 


MOVFM 


; FAC-Y[I) 


LDA 


SNLO 


LDY 


SNHI 




JSR 


FMULT 


; FAC=Y{I)*SN 


LDA 


#<MEM1 


LDY 


#>MEM1 




JSR 


FSDB 


\ FAC=MEM1-FAC 


LDX 


#<MEM1 




LDY 


#>MEM1 




JSR 


MOVMF 


; MEM1-FAC 


F EALIZA M EM2= Y(l) *C N +X(I)'' SN 


LDA 


YILO 




LDY 


YIHI 




JSR 


MOVFM 


; FAC-Y[P) 


LOA 


CSLO 


LOY 


CSHI 




JSR 


FMULT 


FAC=Y(I)^CS 


LDX 


#<MEM2 


LDY 


#>MEM2 




JSR 


MOVMF 


MEM2=Y(0TS 


LDA 


XILO 


LDY 


XIHF 




JSR 


MOVFM 


FAC-X(I) 


LOA 


SMO 



LDY SNHI 

JSR FMULT 

LDA #<MEM2 

LDV #>MEM2 

JSR FADD 

LOX #<MEIVf2 

LDV #>MEM2 

JSR MOVMF 



FAC-XtD'SN 



FAC-MEM3+FAC 



MEM2-FAC 



:++++ REALIZAX(l)=MEM1;Ytl)-MEM2 



LDA #<MEMT 
LDY #>MEMT 
JSR MOVFM 
LDX XILO 
LDY XIHI 
JSR MOVMF 
LDA #<MEM2 
LDY #>MEM2 
JSR MOVFM 
LDX YILO 
IDY YIHI 
JSR MOVMF 



FAC=MEM1 



X(I)=FAC 



FAC-MEM2 



Y(I)-FAC 
:++++ BUCLE COMPROBACION FIN 

DEC NP 

BEQ EXIT 

; + H- + I NCR EMENTA PUNTEROS TABLA 

LDA #$05 
CLC 

ADC XILO 

STA XILO 

6CC XNOHI 

INC XIHI 



XNOHI 



YNOHI 



LDA #S05 
CLC 

ADC YILO 

STA YILO 

eCC YNOHI 

INC YIHI 



J MP START 
; + + + SACA R EG ISTROS OE LA PILA + + + + 



EXIT 



.END 



PLA 
TAY 
PLA 
TAX 

PLA 

HTS 
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Sistemas operativos/Lenguaje maquina 



Cubo giratorio en basic 



lOOO flEM'*CU&0 GIRATORIO EN BASIC" 
1010 IFA=0THENA=1:LOAD''PL0TSUB.HEXM1 
1020 IFA=1THENA=2:L0AD^LINESUB.HEX\e,1 
1 030 REM * ' DIMENS I O N TABLAS * * 
1040 WP=a:REMNUMERODEPUNTOS 
1050 OIMX(NP),Y[NP),Z[NP) 
1060 DIM EOfNP,MP):RElVt CONEXlQN ESQUIKAS 
1070 REM"INICIALIZACIONTAGU\S 
lOeO REM --DATOSCOORDEMADAS CUBO 

1090 DATA 75, 75, 75:REM n 

1100 DATA -75, 75, 75:REM CUATROPTS 12 
1110 DATA -75,-75, 75:REM SIPERIORES /3 

1120 DATA 75,-75, 75:REM /4 

1130 DATA 75, 75. -75- REM ^^^/5 

1140 DATA -75. 75, -75: REM CJATROPTS /fi 
115Q DATA -75 -75, -75:REM INFERIORES 

1160 DATA 75,-75, -75:REM — /8 

1 1 70 REM-CUBO GIRA PUA SOBRE EJE ' 

1180 F0RI-1T0NP 

1190 REAOX(l),Y[l),Zfl) 

1200 Y(l)=Y(l)-COS(ii/4)-Z(l)*SIK(n/4) 

1210 Z(l)-Z(irC0S[jt/4}+Y{l}-SI«(Ti/i|) 

1220 NEXT 

1230 REM*XUBO GIRA PI/4 SOBRE EJEZ 
1240 F0RI-1T0NP 

1250 X(l)=X(l)^COS(n/4)-Y(l)-SIN(jt/4} 
1260 Ytl)=Ytl)*COS(ny4)+X[l)*SIN[jt/4} 
1270 NEXT 

1280 REM— DATOS COfJEXlON ESQUINAS- - 

1290 E(1,2)=1:REM1 C0WECTAC0W2 

1300 E(2,3)-1:E(3,4)=1:E(4,1)=1 

1310 E(5,6) = 1:REMCUADRO DEBASE 

1320 E(6,7) = 1:E(7,&J=1:E(8,5)=5 

1330 E(5,1) = 1:REMESQUINASDE ARRIBA ABAJO 

1340 E(6,2}=1:E(7,3)=1:E(8,4)-1 

1350 REM"SIMETRIAE(I.J)** 

1360 F0RI=1 T0NP:F0RJ=1 TOWP 

1370 IFE(I,J)=1 THENE[J,])^1 

1380 NEXTiNEXT 

1390 REM###Jit################## 
1400 REM##TRAZAO0CUBQGIRAT0RlO#^i^ 



1410 SA=2*:t/45 

1420 FOR A=ji/4 TO jr/4+2*rt STEP SA 

1430 G0SUBie00:REMGIRAPORSA 

1440 GOSLB1590:REM INIC/BORR PANTALLA 

1450 REM--TRAZADOCUBO-- 

1460 F0RI=1 TOWP 

1470 F0ftJ=1T0l 

14ao IFE(I,J]=OTHEN1510:REMNOUNIDO 
1400 60SUB1630:REM CALCILA PROYECCION 
15O0 G0SUBT670:REM UNE PUNTOS 
151 D NEXT: NEXT 

1520 REM ■ 

1530 NEXTA:REMANGULOStGUlENTE 

1540 REM###################### 

1550 REM-BPERA" 

1560 GETAS:IFAS=""THEN1560 

1570 GOSJ61750:REM RESTAUR A PANTALLA 

1580 END 

1590 REM**ESTABLECEALT.RES" 
1600 POKE49408,1:POKE49400.1 
1610 POKE40410J:SYS49422 
1620 RETURN 

1630 REM-CALCDLA PROYECCION EN ALT. RES." 
1 640 XI % -X(IJ + 1 50: Yl % - 1 09- {!{ \) + 1 00) 
1 650 X2%=X(J)+1 59:Y2"^= 199-(ZJ)+ 100) 
1660 RETURN 
1670 REM-LINESUB" 

1680 IF(X1%=X2%)AND{Y1%-Y2%1THENRETURN 
1690 MHI=]NTfXl%256):ML0=X1%-256*MHI 
1700 NHI-INT[X2%i256}:NL0=X2%~256*NHI 
1710 P0KE49920.MLO:POKE49921 ,MHI 
1720 P0KE49922.NLO:POKE49923,NHI 
1730P0KE49924,Y1%:POKE49925,Y2% 
1740 SYS499341REMLINESUB 
1750 RETURN 

1760 REM-RESTAURA PANTALLA" 
1770 POKE49408.0:SYS49422 
1760 PRINTCHRS(147) 
1790 RETURN 

igOO REM- *CUeO GIRA SOBRE EJE ZVSA 
1610 F0RI=1 TONP 
1620 X(l)=X(l}XOS{SA)-Y[l)*SIN(SA) 
1 830 Y(J J = Y( I } ^ COS(SA) +X ( f ) *S I N jSA) 
1640 NEXT 

f\mm — 



Programa prueba l-Rotsub 

Debe entrarse y guardarse con el nombre PRUEBA 
l-ROT. No pueden definirse variables mientras se 
ejecuta el codigo entre 1 880 y 2000 yse llama al 
SYS50523. De lo contrario la direccion de base de 
las tablas se pasaria IncorrDctamente al cPd. maq. 
ye! programa searminarfa 

1000 REM" PRUEBA l-ROT" 

1Q1® IFA=0TH EN A= 1 iLOAD " PLOTS UB. H EX^ 8 , 1 

Hm lfiA=1TRENA-2:L0AD" L!NESUB.REX\e,1 

Hm Wk=m ENA=3:L0AD " I - ROT. HD(^ ,6 , 1 

mm nai-DIMENSION TABLAS' ' 

Wm m=^Bk HUMERO DE PDNTOS 

1M Ml W).VCN}J(KP) 

tm Mewjr^itEM conexion esquinas 

ion ROr^MCIMlZACION TABLES" 
IQSO 1^ — lATUSCOCMlOENADASCDBO 

1100 DATA 75, 75, 75:REM 

1110 DATA -75. 75 . 75:REM CUATRO PTS /2 
1120 DATA -75. -75, TSiREM SUPERIORES /3 

1130 DATA 75, -75, 75:REM /4 

1140 DATA 75. 75, -TSiREM ^- /5 

1150 DATA-75. 75. -75:REM CUATROPTS /6 
1150 DATA-75, "75,-75:REM INFERIORES fj 

1170 DATA 75, -75, -75:REM ^ - /B 

1 180 REM - *GiRO SOBRE EJE X EN PL'4 

fORJ=1TONP 
1200 READXfl),Y[l),Z{l) 
121 0 Y{ I ) = Y( I ) ■ COS i^A) - 'S I N(;e/41 
1220 Zf I) =Z(I) ' C0S(:i/4) + Y(l) ' SIN [jt/A) 
1230 NEXT 

1240 REM-GIRO SOBRE EJE2ENFI/4 
125Q rofll=lTONP 

laSi Xti)=Xil)"COS[;i/4)-Y0)*SlN(jiy4) 
tZ^ Yfl>=YtJ)-COS[.-i/4}+X(irSlN(ji/4) 

mi «r 

» — DATOS CONEXION ESQUINAS' — 
e?^- 5ei 1 DONECTADO A 2 

wm ggji='^* ^i-£i4,i)=i 

9#=2» O^m^O INFERIOR 
tSi Qm^^£E7 J|=1^S,5}=5 
tm mi^mSMHS DE ARRIBA ABAJO 

130 nm airmftQi ji 
tm HH=i -am^m^t wf 
im ■ipjNiiifiBgtiNi 
tm lecraqr _ 

1410 IBI##nUZNXJmQ€iWIim## 

*44e 605UB16l7a^KEM6nOPORSA 



1450 GOSUB1600:REM IN IC'-BORR ADO PANTALLA 
1460 REM— TRAZADO CUBO— 
1470 FORNITONP 
1460 FORJ=1TOI 

1490 IF E(I,J)=0™EN1620 REM NO UNIDO 
1500 GOSUB1640:REMCALCULO PROYECCION 
1510 GOSUBieSO REM UNION PUNTOS 
1S2D NEXT:NEXT 

1530 REM 

1 540 N EXT A: R EM ANGU LO S I G U IE N TE 

1550 REM ################ ####### 

1560 REM-ESPERA" 

1570 GETAi:IFAS=""TREN1570 

1560 eOSUB1770:REMRESTAURAPAWTALU 

1590 ENU 

16O0 REM"*ESTABLECEALT, RES/* 
1610 FOKE4940e,1;POKE4™,1 
1620 POKE49410,1:SYS40422 
1630 R^^URN 

1640 REM**CALCULA PfiOYECClON EN ALT. RES.*" 
1650 X1%=X(IH159:Y1%=199-(Z(1J+100) 
1 660 X2% = X( J )+ 1 59:Y2% = 1 99 - (Z( J ) + 1 OO) 
1670 RFTURN 
1660 REM LINES UB" 

1 690 IF[X1 % = X2%) AN0{Y1 % = Y2%)T>1EN RETU RN 
1 700 MH I = INT[X1 %/256) : M LO - XI % - 256 * M H I 
1710 NH I = INT(X2%256) : f^LO = X2% -256 ^ NH \ 
1720 POKE4&920,ML0:P0KE49921.MHI 
1 730 POKE49922 , N LO : PO KE49923 , NH I 
1 740 POKE4»924 , Y1 % :P0 KE49925. Y2% 
1750 SYS49934:REM LINESUB 
1760 RETURN 

1770 R£M*'RESTABLECE PANTALLA'* 
1780 POKE49408,0:SYS49422 
1790 PRINTCHRS[147) 
1600 RETURN 

1 B1 0 REM * 'G I RO Clf BO SO BRE E J E Z/S A 

1B20 FORNITONP 

1S30 XfO^XfD^CS'-YtO^SN 

1840 Y(I)=Y(I)-CS+X[[)"SK 

1850 NEXT 

1660 RETURN 

1870 REM-'GIROSOBREEJEZ/SA 

1 880 X(1 )-X(1}:REM VAR Xfl } ACTUAL 

1 890 PO KESD500 . PEEK(71 ) : REM BYTE LO DE X[1 ) 

190O POKE5D50l,PEEKf72);REM BYTE HI DE X(1) 

1910 Y(1 )-Y[1 ):REM VAR Y[1 }ACTUAL 

1920 POKE50502,PEEK(71):REM BYTE LO DEYO) 

1930 POKE50503.PEEK(72):REM BYTE HI DEY(1J 

1940 POKE60504.NP:REM NUMERO DE PUNTOS 

1950 C3=CS:nEM RACE A CS VAR ACTUAL 

1960 POKE5D509.PEEK(71J 

1970 POKE50510,PEEK(72J 

1980 SN=SN:R£MHACEASNVARACTUAL 

1990 P0KE5D511,PEEK(71) 

200O POKE50612,PEEK{72) 

2010 SYS5062a 

2020 RETURN 
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Software/Archori 



Luz y sombra 




GOBLIH CGROUHD 3> 



En guardia 

La forma mas apropiada cJe 
detinir Archon es decir que se 
trata de un juego de ajedrez 
aninnado. Cuando se le pide a 
una pieza que se desplace a otro 
cuadfado del table ro, marchara, 
se escabulJira o volara, segtin el 
tipo de personaje que 
represente. Una vezalli, si la 
casllla est^ ocupada por una 
pieza del bands oponente, la 
pantalla pasar^ a un primer 
piano del cuadrado y comenzara 
la batalla. El resultado de esta se 
decide en funcidn de la destreza 
delfugadorydela fortaleza 
relativa de las piezas contrarias 



El juego ''Archon'' comblna, con 
gran originalidad, elementos 
propios del ajedrez con graf icos 
de nfiovimiento rapido 



Arckon es un juego que puede resultarle fascinante 
al usuario aficionado a I ajedrez y que. a I mismo 
tiempo> puede satisfacer al mas apasionado entu- 
siasta de los juegos recreativos. La etema batalla 
entre fuerzas de la Luz y la Oscuridad constitute el 
nudo de la trama. El juego coniienza con una visua- 
lizacion de un tablero de estrategia en el cual los 
dos bandos contcndientes estan dispuestos en filas 
y column as, de forma muy similar a las piezas del 
ajedrez. Las piezas poseen nombre tales como 
"fcnix" y "caballero" en el lado de Luz, mientras 
que *'espiritus", "gnomos" y "dragones" distinguen 
a las fuerzas de la Oscuridad. Los iconos que lepre- 
sentan las piezas de ambos bandos poseen diferen- 
tes fuerzas y capacidades de movimiento. Algunas 
piezas, por ejemplo, pueden volar" j !o que signifi- 
ca que pueden saltar por encima de las piezas que 
tienen por dclante, mientras que otras tienen solo 
un movimiento a nivel de "tierra". 

El tablero propiamente dicho esta dividido en 
una cuadricula de nucve por nucvc. A prime ra 
vista, parece muy similar a un tablero de ajedrez, 
con muchos de los cuadrados coloreados altcmada- 
mente en bianco y negro. Sin embargo, otras casi- 
Ilas cambian de bianco a negro y otra vez a bianco a 
medida que va transcurriendo el juego. El motivo 
de ello es que las fuerzas de la Luz son mas fuertes 
en los cuadrados blancos y las fuerzas de la Oscuri- 
dad son mas fuertes en los negros. 



iEl objetivo de Arckon consiste en ocupar ios 
cinco "puntos de poder"; cuatro estan situados en 
cruz sobre los bordes del tablero. con ei punto cru- 
cial en el cuadrado del centro. Cuando comienza el 
juego, la estrategia de apertura determina que 
usted mueva sus iconos desde su color opuesto, 
donde son vulnerables al ataque, a colores en los 
cuales son mas fuertes. Al hacer esto, tambi^n 
puede abrir la fila trasera de modo que las piezas de 
"tierra" queden libres para moverse, permitiendole 
construir una barrera eficaz para impedir que las 
fuerzas de tierra contrarias desbaraten la defensa. 

En este punto, el juego parece tener transferidos 
al ordenador la mayoria de !os elementos del aje- 
drez. No obstante, la verdadera diferencia de! 
juego se hace evidente al intentar ocupar on cua- 
drado que ya este en poder de un icono contrario. 
Cuando se mueve un icono a un cuadrado ocupado 
por el enemigo, mediante la palanca de mando, la 
pantalla revela un primer piano del cuadrado, en 
vez de capturar automaticamente la pieza. Las pie- 
zas del enemigo estan posicionadas a los lados del 
cuadrado J en el cual hay un barra que representa la 
fuerza del icono, y comienza una contienda estilo 
recreativo. Cuando la barra es golpeada por la 
pieza contraria, esta fuerza disminrira, y cuando 
desaparezca por completo, el enemigo gana y 
ocupa el cuadrado. Dado que las fortalczas y los 
melodos de ataque difieren radicalmente de un 
icono a otro. Algunas de estas batallas estan mas 
niveladas que otras. Por ejemplo, un dragon puede 
lanzar su llama a traves del cuadrado a un contrin- 
cante, mientras que un caballcro ha de estar muy 
cerca de un enemigo para poder hacer uso de su 
espada. Las batallas se complicao aun mas en fun- 
cidn de barreras diseminadas a traves del cuadrado, 
que cambian a medida que transcurre la accion. 

Cada bando cuenta con un icono que puede rca- 
lizar un encantamiento: un hechicero para la Luz y 
una hechicera para la Oscuridad. Los encaotamicn- 
tos son idcnticos, pero el icono solo los puede utili- 
zar una vez. Los hechizos incluyen poderes tales 
como 'Yesucitar" una pieza en un cuadrado ale j ado 
de su capacidad de movimiento, o invocar a una 
criatura conocida como un "elemental". A estas se 
las puede convocar para que ataque n a una pieza 
enemiga y son utiles cuando una pieza enemiga 
amenaza atacar a una de las suyas mucho mas 
debilj o si usted dcsea debilitar a su oponente. Sin 
embargo, incluso si cl elemental destruye al icono 
enemigo, al fmal de la batalla desaparece. Un ele- 
mental no puede ocupar un cuadrado. 

Arckon se puede jugar contra el ordenador o 
bien contra otra persona. Aunque el ordenador es 
solo un estratega mediano, en la seccidn recreativa 
resulta ser un oponente formidable, y puede que en 
las primeras partidas el principiante se encuentre 
demasiado desbordado para ganar siquiera una sola 
batalla. 
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Impresoras para el Spectrum/Hardware 




Ciatro diseiies 
Durante los liltimos anos han 
salido el mercado numemsas 
impresofas t^rmrcas. Aynque 
algunas maquinas, como la 
Royd 40 y la Alphacom 32, 
est^n destinadas 
especificanneiite a &u empleo 
con el Sinclair Spectrum, liay 
otras maquinas, como b 
Epson P40 y la Brother HR-5, 
que est^n disefiadas para 
trabajar con una amplia 
gama de micros personales 



Hot meta\ 



Analizaremos cuatro 
impresoras para el Spectrum y 
enunciaremos los criterios que 
deben gular at usuarlo al hacer 
su eleccion 



Uno de los primeros perifericos cuya compra consi- 
deran los usuarios de un oidenador personal es la 
impresora, que les permite producir copias de los 
listados de sus programas. Al elegir una impresora 
los usuarios del Spectrum se encoentran con una 
serie de problemas. For una parte, este ordenador 
carece de las interlaces conveocionales que por lo 
general utilizan las impresoras y, por otra, la impre- 
sora de Sinclair Research, la ZX Printer, cuya pro- 
ducci6n se ha suspendido, se caracterizaba por su 
confusa impresion y la tendencia de las copias a 
perder nitidez con el paso del tiempo. Debido a 
que Sinclair Research ha decidido no inejorar su 
impresora, otros fabricantes han producido por su 
propia coenfa impresoras termicas de costo reduci- 
do. En este capitulo vamos a examinar algunas de 
estas altemativas. 



A la hora de comprar una impresora se han de 
tener presentes varias consideraciones basicas. La 
principal es, por supuesto, el precio, consideraci6n 
que con frecuencia implica mucho mas que limitar- 
se a coraparar etiquetas de precio. Puede haber, 
por ejemplo, costos ocultos que no se incluyen en 
el prccio de la maquina. El fabricante de una im- 
presora puede afirmar que esta esta discnada para 
un Spectrum, cuando en realidad requierc un co- 
nector de interface RS232C. Por consiguiente, 
antes de poder utilizar la impresora, tambien habra 
de adquirirse una ampliacion Interface 1 (que co- 
necta al Spectrum un conector RS232C). 

Costos ocultos 

Otro costo oculto es ei papel para la impresora. 
Muchas impresoras solo utilizan papel disenado es- 
pecificamente para ellas. Por ejemplo, las impreso- 
ras de tipo termico como la propia ZX Printer re- 
quieren un papel especial sensible al calor. Por lo 
tanto, tras pagar por su impresora. usted se vera de 
hecho ligado a los caprichos del fabricante, y el 
papel puede ser dificil de conseguir o bien tcner un 
precio excesivo, 

Al adquirir una impresora cs esencial^ en conse- 
cuencia, asegurarse de que la tieuda que vende el 
dispositi%"o posea siempre existencias regulares de 
papel y otros servicios, y que usted sepa cuanto es 
probable que le cuesten. Tambien ha de recabar 
informacion sobre el servicio tecnico. La maquina- 
ria que posee partes moviles mecanicas, como el 
cabezal de impresion, es mas susceptible de sufrir 
desperfectos que los componentes electronicos y, 
por tanto, es preferibie comprar la impresora en 
una empresa que posea un eficiente servicio tec- 
nico. 

Por ultimo hay que considerar el probfema de la 
compatibilidad de software, Todas las impresoras 



Hardware/] mpresorasiraTfe ei ^>peciru 







iitjframadas para responder a codigos (per 
k: caiacteres ASCII) que les mdican que 

de le*^ a cabo ciertas funciones, tales como 
^sxBD de carro, la cantidad de caracteres por 
T k dCTsidad de impresion, Aunque muchos 
a3cfigos son identicos a los que utiliza el 
. qoiza no sea asi para todas las maquinas. 
Research, como muchos olros fabiican- 
personales, ha adaptado muchos de 
^ ASCII para su propio uso y, aunque el 
de la impresora indique que un codigo 
ideKrmmado significado, bien podria tener 
para el Spectrum, Aqm la solucion 
B ver las facilidades de la impresora ope- 
i este ordenador antes de comprarla. 
T m ■■'III I jiii I Mil ji nil son validas para el soft- 
wMR^cpkme utilizar. No hay nada mas frustran- 
ije <pe™oso6digos de instrucciones que funcionen 
bien desoe basic pero que no se 
cnplear desde un determinado paquete 
bmieiito de textos. En este case, usted se 
veam. ©■ li oada envidiable sitoacion de tener que 
gtiadM SBCopia en cinta o disco, desconectar y vol- 
a lea' la copia como arehivo secuenciai para 

H^bkado enumerado varies criterios para la ad- 
I de una impresora para el Spectrum ^ exa- 
► abora algunas de las impresoras termicas 
disponibles cn el mercado. De las im- 
pr^sooB que vemos a la derecha, la mas barata es 
la A|piBC3om 32. Es, asimismo, la maquina que 
guaiA at Ena}'or parecido con la ZX Printer. Las 
fufsies dc lipos utilizadas son como las de esta y , al 
igaalqae ea el caso de la maquina de Sinclair, solo 
purfe D^iriinir un maximo dc 32 column as. 

Fora^Dna raz6n, los fabricantcs ban optado por 
eqiiqar a la .Alphacom con su propia fuentc de ali- 
memxioa. La adicion dc esta caja extra y los ca- 
bles oofxespondientes es innecesaria, en especial 
ponji^ d bus de ampliaci6n del Spectrum posee 
una foeote de 9 V, que seria suficiente para operar 
una inqniesora termica. 

La eajucTura de la Floyd 40, de Shiva Market- 
ing, paieoe mas bien endeble. La carcasa se dobla 
coil bastanie facilidad y el rodillo que retiene el 
roUo del papel no es mas que un dclgado tarugo de 
madera. A pesar de csto, la maquina constituye 
una not^le mejora respecto a la Alphacom. 

La poteDda se toma del bus de ampliacion del 
Specmim y per eOo no hay ninguna caja extra que 
instalar. La Royd 40 tambien utiliza pape! bianco, 
con lo cuai la impresion en negro resulta mucho 
mas legible. Sin embargo, lo que real men te dife- 
rencia a esta maquina de la Alphacom y la ZX Prin- 
ter es el hecho de que acepta ciertos caracteres de 
control que pueden alterar la salida a la impresora. 

Estos caracteres se envian a la impresora a traves 
de una instruccion LPRINT normal seguida de comi- 
Mas. El caracter de control se encierra cntre signos 
dc cxclamacion, indicando a la impresora que no lo 
imprima porque se trata de una instruccion. Por 
ejemplo, la linea LPRINT" iHl" ie ordenaria a ia 
Floyd 40 que imprimiera en caracteres de doble al- 
tura. El formateado se anula impartiendo la misma 
instruccion una segunda vez. 

Otras facilidades disponibles incluyen caracteres 
para graficos, cursiva, anchura doble y formate in- 
vertido. El cabezal de impresion de cinco por siete 
agujas produce atractivas imagenes en modal idad 
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MODELO 


Alpfiacom 32 


Floyd 40 


Epson P40 


Brother HB-5 


DDE Pin* 




PRO 




£149 95 


COSTO PAPEL 


£10,95 


£2,50 


£8,65 


£4,75 




(3 rollos) 


(c/rol]o;10 
mllos £12 50) 


{5 rollos) 


(c/rollo) 


INTERFACE 
EMPLEADA 

* En el mercado brit^nico 


Bus de 
ampliacion 


Bus de 
ampliacidn 


RS232 0 
en paralelo 
Centronics 


RS232 0 
en paralelo 
Centronics 






KnterfaDG ICenipstc»n 

Para poder utilizar algunas de las tmpresoras mas sofisticadas 
(equipadas con interfaces Centronics o RS232C), el usuario de 
un Spectrum debera invertir en un dispositive perif^rico 
adecuado que proper cione estas conexiones: Sin ninguna 
duda, de las inteilaces de est& tipo que existen en ei mercado 
la mas popular es Ja interface Kempston, qua proporciona 
acceso a una ampiia gama d& impresoras compatibies con 
Centronics 



lifefalmpresoFa 

&^^pvtE superior de la. 

iliay un botonLine 
Fsal que realiza un saito de 
■Kyjtn botdnOn Line, 
salaimpresora 
3 senates 
Bsdelordenador 



Rotfflfo 

AquiseinstalaniosToliosde 
papei, que luego se 
alimentan en el ciiindro 
portapapel del carro 




Intemiptores DIP 

Perm I ten ai osuarb alterar 
manualmente atgunos de ios 
ajustes de ia impresora, 
como retorno automatico 
dei carro 



cie fiascos y el formato del tipo de impresion es tan 
I como el de muchas otras maquinas que 
; d doUe. Aimque bastante lenta, el onico 
J del sistema es que esta limitado 
MM fcpi|iei de 80 mm de ancho. 

lannaH^Ha ipe vemos es la Epson P40, 
4pe vofc a dm msiODes basicas que com- 
fftoda ks fiMT^pa i cs t^ios de interface para im- 
pRsua. La PCK m mm v^i^od en sene con un 
coaectDT RS^2C, iaeatras qoe la P40P posee en la 
parte posterior mia puexta en paialdo Centronics, 
Sin embargo, puesto que e! ^ectnim no posee ins- 
taiada^j como estandar nijigona de las dos. es nece- 
sario adquirir una Interface 1 o bien una de las 
otras muchas disponibles en el mercado. 

Surge el problema de que el conector RS232 que 
ofrecje Sinclair en la Interface 1 es un conector D de 
siete patillas no estandar. Los manuales del P40 y la 
Interface 1 le indicaran de qu^ forma se han de po- 
sicionar las patillas y luego fi61o rest a una simple 
labor de soldadura. Sin embargo , si no siente espe- 
cial inclinacidn por el uso de soldadores, quiza sea 
preferibie comprar una de las interfaces producidas 
por empresas independientes de las que hay a la 



venta. Kempston, por ejemplo, proporciona inter- 
faces que se enchufan en la parte trasera del Spec- 
trum, asi como conexiones estandares tanto para 
dispositivos RS232 como Centronics, 

La Epson F4Q, a pesar de su tamano relativa- 
mente pequeno, puede imprimir tanto en modali- 
dad de 80 como de 40 columnas, Asimismo, la m^- 
quina puede hacer uso de una gran cantidad de c6- 
digos de escape de los que disponen los dispositivos 
mas grandes de la gama, Por supuesto^ el Spectrum 
no posee una tecla Escape per se^ de modo que los 
c^digos se deben enviar como c6digos ASCII en el 
formato CHR$(27];"E"; {donde CHR${27) representa 
el cardcter Escape ASCII) que indica a la P40 que 
se ponga en modalidad enfatizada. 

La P40 tambien puede llevar a cabo otras nume- 
rosas operaciones, tales como alterar el juego de 
caracteres, entrar en modalidad de imagen de bits 
(que permite que Listed cree sus propios caracteres) 
y en modalidad condensada. Aparte de estas altera- 
cioneSj que se pueden realizar desde software, tam- 
bien hay interruptores DIP, que permiten estable- 
cer la paridad y la cantidad estandar de columnas 
de tipos a imprimir. 

El hecho de que la P40 este amparada bajo la 
prestigiosa marca comercial Epson hace que uno 
pueda sentirse bastante seguro de que contara con 
suficiente apoyo durante algun tiempo, 

A diferencia de las otras impresoras que describi- 
mos en este capitulo, la Brother HR-5 puede usar 
papel termico o bien, de estar equipada con una 
cinta, papel normal. Otra ventaja de esta maquina 
respecto a las otras es que el carro puede aceptar 
papel de tamano A4 y, por tanto, se la puede utili- 
zar para cartas y otras aplicaciones comunes de tra- 
tamiento de textos. La anchura adicional le permite 
imprimir hast a 132 caracteres por line a. 

Al igual que la maquina Epson, la HR-5 hace un 
uso exhaustivo de codigos Escape para form ate ar 
su impresi6n y, por tanto, puede producir una am- 
plia gama de caracteres, fuentes intern acionales y 
otros formatos. Asimismo, es muy silenciosa en 
funcionamiento. Otra similitud que comparte la 
Brother HR-5 con la Epson es que, lamentable- 
mente, la maquina viene con una interface en para- 
lelo Centronics o bien con un conector RS232C. 
Nuevamenle usted habra, en consecuencia, de ad- 
quirir una interface adecuada para poder hacer fun- 
cionar la impresora desde un Spectrum. Aparte de 
esta salved ad, la calidad de la salida impresa puede 
calificarse de excelente. 

Al escoger una impresora se plantean problemas 
s61o si usted decide adquirir una maquina cuyas ca- 
pacidades est6n m£s all4 de las de las maquinas 
construidas a la medida para el Spectrum, La Alp- 
hacom y la Floyd 40 ofrecen la ventaja de que sen- 
cillamente se enchufan en ei ordenador y que acep- 
tan instrucciones normales del Spectrum, tales 
como COPY, pero sus capacidades en realidad se li- 
mitan a los listados dc programas. 

Las impresoras situadas en el tramo superior de 
la escala de precios, con una gama mas ampha de 
ampliaciones, esMn disenadas para tr aba jar con 
maquinas muy diversas; por consiguiente. no estan 
hechas a la medida para funcionar con cl Spectrum. 
Sin embargo, hasta que alguien produzca una im- 
presora dc gran calidad disenada especificamente 
para el Spectrum, el usuario habra, lamentable- 
menle, de adaptar la impresora al ordenador. 
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patible. una unidad de disco flexible y al menos 48 K de 
memoria disponibie. Esta gran cantidad de RAM es ne- 
cesaria porque con frecuencia se requerir^ la me- 
moria para retener el programa CP/M pro- 
piamente dicho y cualquiera de 
los archives de instruccio- 
nes (que pueden 





Cuando a comienzos de la decada de los setenta se inven- 
taron los sistemas de atmacenamiento en disco flexible, 
obviamente existis una apremiante necesidad de desarro- 
llar un sistema operatvo que fuera capaz de organizar la 
informacion retenida en esos dfspositivos sin que los 
usuarlos tuvteran que hacerlo manualmente. Aproxima- 
damente en la misma epoca. la ffrma norteamencana de 
microchips Intel decidio desarroHar un sistema de disco 
flexible para su serle 8000 de microprocesadores, que 
habia mtroducfdo recientemente. El equipo de desarrollo 
de la empresa esta dlrlgldo por un joven ingeniero ase- 
sor. Gary Klldall. El proprama resultartte se dio a conocer 
como CP/M (originalmente. siglas de Controi Program 
Monitor, que posterlormente se cambiaria por Control 
Program for Microprocessors: programa de control para 
microprocesadores), 

Cuando se lanzd el paquete, en 1975, se convlrtio en- 
seguida en un exito rotundo, De hecho, su aceptacion 
fue tal que cuando un grupo de disehadores abandono 
Intel para formar su propia empresa, Zilog Inc., decidle- 
ron que su nuevo chip (el Z80) fuera compatible con el 
8008 de modo que pudiera ejectuar CP'^'M. El propio Kil- 
dall tambien se marcho de Intel para crear su propia em- 
presa, Digital Research, que actualmente es una de las 
mayores empresas de sottware del mundo. 

El exito del CP/M se puede medir por ef hecho de que, 
aunque durante los anos setenta aparecieron muchos sis- 
temas operativos rivales para micros de ocho bits, en 
especial para aquelfos basados en el procesador 6502, 
no compatible con CP/M, ahora el sistema es el est^ndar 
industrial de facto para los micros de gesti6n de octio 
bits. Esto resulta particularmente asombroso si se con- 
sidera que el CP/M ya tiene m^s de un decenio de anti- 
giiedad, lo que, desde el punto de vista de la microin- 
formatica, es un extraordinarlo periodo de vida util. 

Para poder ejecutar CP/M se necesita un sistema de 
ordenador con un micropfocesador 8008 o un chip corn- 



par hasta 8 K) y 
archives en disco con los 
cuales puede estar operando. Con el ad- 
venimiento de los ordenadores de 16 bits, 
parece que la epoca dorada del CP/M en el mercado de^ 
gestidn ha pasado ya, Pero el sistema ha sido adoptado 
por muchos fabricantes de ordenadores personales y 
educativos, posibllitando que sus micros 280 se aparten 
del mercado de juegos y pasen a aplicaciones mas '^se^ 
rias". La adiciori de una unidad de disco compatible con 
CP/M le proporciona instantaneament? al consumidor 
una inmensa cantidad de software que se desarrollo en 
los anos setenta para micros de gestion basados en el 
8008 y el Z80, Ello les permtte a los fabricantes obviar 
el problema del apoyo de software, que ha perjudtcado 
enormemente a muchos micros. Efitre los fabricantes 
que en los Oltimos anos han seguido este camino se In- 
cluyen Memotech, Research Machines y Amstrad. 

A diierencia de la mayoria de ordenadores personales, 
que poseen sus sistemas operativos instalados "a 
bordo" (y que se activan con el encendido}, el CP/M casi 
siempre restde en un disco flexible (denominado disco 
de sistema) que se carga desde una unidad de disco con 
ei encendido- No existe ninguna razon especial por la cual 
el CP/M haya de estar retenido en un disco de sistema, 
puesto que algunas empresas ban suministrado sistemas 
sfmllares en ROM. Las causas son basicamente histdri- 
cas. En los primeros ordenadores, la memoria era dificil 
de conseguir; de estar ei CPM instalado, cuando no se 
lo necesitara no hublera hecho mas que ocupar una pre- 
ciosa memoria que se podrfa haber utiitzado para otros 
fines, De este modo, se conservd en disco y se lo car- 
gaba (LOAD) solo cuando era necesario, 

Tipicamente, un disco de sistema CP/M contiene el 
programa CP/M propiamente dicho y varies programas 
mas corlos a los que se puede llamar mediante el CP/M 
para que Iteven a cabo funciones espectflcas de mani- 
putacion de disco. El CP'M es, sin embargo, mas que un 
simple sistema de gestion: es un sistema operative. 
Cuando se carga el CP/M es un ordenador con su propio 
sistema operative residente en ROIVl, ■'anula" el sistema 
de la maqujna y asume totafmente la operacion del orde- 
nador. Por to tanto, cuando la maqutna esta operando 
bajo CP/M, este no reconoce las instrucciones en basic 
que normafmente ejectua el ordenador, generando un 
mensaje de error. De hecho, un programa en basic no se 
ejecutara en absofuto bajo ei CP.^'M a menos que el siste- 
ma operative posea un interprete o compilador de basic 
anadido al sistema. 





CP/M/Software 





lesrstertias 

CP/M se ejecuta automaticaniente y se visual iza (como 
podemas apreciar) un directorio con algunas de las ins- 
trucctones disponibles. Un atento examen del directorio 
del disco nos dree numerosas cosas sobre la forma en 
que est^ estructurado el CP/M. La serie de instrucciones 
(como todos los archivos en CP/M) consta de dos partes, 
empezando por el nombre "pnmario". Cuando se desea 
cargar cuaiquier archrvo de instrucciones, simplemente 
se digita esta parte del nombre completo det archivo 
junto con el nombre del archivo en el cuai deseamos ope- 
rar, y se carga y ejecuta automaticafnente. 

La segunda parte dei nombre de archivo completo (a 
la derecha del ponto) se conoce como ta extension, que 
tndica al CP/M (y al operador) que ctase de archivo es. 
Dado Que todos los archivos de un disco de sistema 
CP/''M son archives de instrucciones. todos ellos ffevan 
como sufijo la extension COM. Mas adeiante en esta serie 
verenios otras clases de extension de archivo. 

Otra cosa que destaca cuando se examina el directorio 
del disco es que el programs CP/M propiamente diclio 
no se lista. A primera vista, entonces, puede parecer que 
e[ QPM es meramente la suma de sus partes y un con- 
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Psle sistema aparentemente arbitrario de ejecutar las 
instrucciones se debe, en parte, a limitaciones de hard- 
ware, y en parte tambien a que ello le contiere flextbilidad 
al sistema. Puesto que el CP/M se basa en procesadores 
de ocho bits, la maxima memoria que el procesador 
puede direccionar directamente son 64 K. Si en el en- 
cendido se cargaran en la memoria todas las instruccio- 
nes necesarias para ejecutar CP/M, quedarfa muy poca 
RAM para programas del usuario y archivos de texto. Por 
consfguiente, se decidi6 que para optimi^ar el uso de la 
memoria central, esta sOlo contendria tas instrucciones 
mas habituales, mientras que el resto se cargar fan al ser 
requeridas y se desechanan luego de ser utilizadas. 

Sin embargo, tal sistema posee sus ventajas. Slgnitica 
que se pueden anadir con bastante facilidad instrucciones 
transitorias extras con solo anadirlas al directorio con 
una extension .COM. Esta flextbilidad en cuanto 
.,a .la posibilidad de anadir instrucciones 



Consulta al directario 

DiQitandD DIR se visual^za una 
iista de los arcnivos retenictos epuJ 
ef sisiema CP/M . A menos que ' ' ^"^ 
usted ya liaya anadido algunos 
archives en eE disco, lodas las 
entrad as seran arch 1 vo s de 
i n St ryccio n es {CO M ma nd ) , 
identjfEcab^es en funcidn del 
sufijo -COM del final de cada . 
nombre de archivo. El directorio 
visualiza, aslmfsmo, otras j 
informaciones. como la cantidaii 
de memoria que ocupa cada 'r 
arclijvo y eE nomUre del archivo 
desdeei cualse accedio al 
directorio 
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Provechoso 
intercambio 



Ya en tierra, puede iniciar una 
interesante actividad de 
intercambio que, al regresar a 
casa, le reportara saneados 




4)eneficios 
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La linea 892 de la seccion principal del programa 
llama a la rutrna de intercambio, cuya primera 
tarea consiste en comprobar si usted ha traido algu- 
nas armas para comerciar. Aunque las armas pue- 
den ser utiles (para defenderse de los piratas, etc.), 
al jefe de los natives no k agradan las armas, por- 
que sabe que estas podrian ser fuente de probiemas 
entre su pueblo. Esto significa, lamentablemente, 
que si ha traido armas para comerciar con ellas, el 
jefe rechazara la oferta y se visualizara un mensaje 
en ese sentido. No obstante, el resto de las mercan- 
cias se comerciara en lotes. 

La rotina continiia y le informa cual era el precio 
en su pais, antes de que usted se hiciera a la mar, 
para cada una de las mercancias que ofrece el jefe. 
Primero se comercia la sal y usted puede mtercam- 
biarla per perlas, figurillas o especias. Tras comer- 
dar con la sal, puede continuar con la tela de la 
misma manera, y luego con los cuchillos y las joyas. 
Si no hay armas en el barco, no sera necesario 
que el jefe le diga al capitan que no quiere armas, 
de modo que la linea 10072 examina el segundo ele- 
mento de la matriz de provisioned ^ 0A(2), que regis- 
tra la cantidad de armas, e ignora el mensaje del 
jefe si este element o est a estabiecido en cero. 

La Imea 10080 examina los cuatro uitimos ele- 
mentos de la matriz de provisiones (de 0A{3) a 
0A{6)) en busca de mercancias aptas para el comer- 
c^o. Los dos primer OS elementos representan medi- 



cinas y armas, que no son aptas y , por consiguientej 
no se verifican. En caso de que qoedaran cochillos, 
sal, tela o joyas, se le dira que el jefe esta deseoso 
de ofrecer a cambio perlas, figurillas y especias. 
Pero si todos los elemeotos de la malriz estuvieran 
establecidos en cero, el juego terminaria porque, 
como es obvio, no habria ninguna mercancia con la 
cual comerciar. 

Tras informarle sobre el valor de cada una de las 
mercaucfas cuando el barco zarp6, y advirtiendole 
que desde entonces los precios podrian haber expe- 
rimentado variaciones, entre las lineas 10130 y 
10200 el programa entra en uo buck para tratar la 
mecanica del intercambio. El cddigo de este bucle 
calcula las cantidades de perlas, figurillas y especias 
ofrecidas por el jefe para cada lote de mercancias 
que usted desea comerciar, y ie pregunta que mer- 
cancias desea. Luego almacena las mercancias ele- 
gidas en el barco. 

El bucle cuenta de 3 a 6, omitiendo, por consi- 
guiente, las armas y los frascos de medicina (que 
estan retenidos en ei primer y segundo elemento de 
0A()) y se ocupa de cada articulo por separado. La 
Imea 10135 comproeba si el valor del elemento de 
la matriz que se est^ examinando en cada momento 
es 0, lo que significa que el jugador no posee ningu- 
na mercancia de este tipo y, de ser asi, pasa al si- 
guiente elemento de 0A() saltando a la iustruccidn 
NEXT de la Imea 10200. En caso contrario, se infor- 
mara al jugador la cantidad de cada mercancia, que 
se imprime mediante la iinea 10145. Las lineas 
10150-10153 imprimen e) tipo de mercancia, corres- 
pondiente al valor actual de T. 

Despues de que el jefe ofrezca algunas perlas, 
figurillas y especias, el programa calcula las canti- 
dades que recibira usted de estos articulos por cada 
una de las mercancias que ofrezca. Para este c^lcu- 
lo se utiliza la matriz bidimensional EQ(,) creada en 
la Imea 63 y que contiene las proporciones de 
trueque. 

La expresidn de la Imea 10165 calcula la cantidad 
de perlas ofrecidas para cada elemento del bucle, 
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moltiplicando la cantidad de sus mercancias a inter- 
cambiar, OA(T), por la proporcion de tmeque esta- 
blecida en la matriz EQ(,). Puesto que el buck esta 
establecido de 3 a 6^ se le debe restar 2 a T para 
equipararlo con la cantidad de eiementos de las 
provisiones de EQ(,), que son de 1 a 4. Si el bucle se 
esta ocupando de la sal, eJ contador del bucle T sera 
iguat a 3; EQ(T— 2,1) correspoode, por consiguiente, 
a la interseccion entre el primer elemento del pri- 
mer subindice, sal, con el primer elemento del se- 
gundo subindice, perlas. En EQ(J, este esta estable- 
cido en .5; por lo tanto, para ia sal, la Hnea 10165 
multiplicara la cantidad de sal por ,5 para calcular 
la cantidad de perlas que se ofrece para el trueque. 

La linea 10166 Ueva a cabo una funcion similar 
para la cantidad de fjgurillas que ofrece el jefe a 
cambio. La proporcion de trueque para estas esta 
registrada en e! segundo elemento del segundo 
submdice de la matriz EQ{,). Cada valor sucesivo 
del contador del bucle T dirige el programa, por 
consiguiente, a la seccion adecuada de la segunda 
columna de la matriz. Del mismo modo, la linea 
10167 determina la cantidad de especias que ofrece 
el jefe por cada una de las mercancias de usted, 
utilizando la tercera columna de la matriz de pro- 
porciones de trueque. 

Tras informarsele de lo que ha ofrecido el jefe, 
usted debe decidir que mercancias desea comer- 
ciar, Se debe entrai 1 , 2 o 3 para el tipo de mercan- 
cias requeridOj y la linea 10176 determina si la en- 
trada fue correcta asegurandose de que la entrada 
este comprendida en la escala de 1 a 3. Las mercan- 
cias intercambiadas se deben luego transportar 
hasta el barco; la Imea 10180 almacena la cantidad 
en la matriz A0(), DIMensionada en la imea 68. 

Los tres eiementos de est a matriz representan las 
tees mercancias que ticne el jefe para ofrecer. La 
cantidad de articulos transportadas al barco se 
vuelve a caJcular utilizando la matriz de proporcio- 
oes de tmeque EQ(,)j multiplicando el elemento en 
coestioo por la cantidad de mercancias comercia- 
. (M(T)« L el numero que usted debe digitar para 
- la cssegoda de mercancias deseada, se 
1 «fecdoBar el elemento correcto de 
[ de ^inacenar las perlas, figu- 
Asiniismo. se emplea 1 

:ti CB H pi^iw AercaiBbio se 






- It ^^r Qeoesano, al pciK%m/Ds Uber r , : 

:.^biado todas las mercaiKlas ieoiiHiala.^r 

oxnerdal y se le informa respecto a las cset . 

de perlas, figurillas y especias que se ban adqumdo 
y cargado a bordo de su barco. Las Hneas 10220 y 
l*3S-?4 imprimen la cantidad de cada articulo, alma^ 
cCTadas ahora en la matriz A0(), El qpntr^I re1;oma,> 
&^moes al programa principal. ^-^' ^"^^^"..---^^ 

En el proximo capitulo concluiremos el juego 
mercantii Nu£vo Mundo con la adicion de las sec- 
ciones finales, en las que usted se vera implicado en 
u&a insurreccion local antes de que emprenda la di- 
latada travesia de regreso al Vie jo Continente y 
vend a las mercancias recientemente adquiridas, es- 
perando obtener suficientes beneficios como para 
josdficar tan largo viaje y los avatar es pasados du- 
ranie la expedicion. 



Modulo 12: Intercambio 

Adician al ciierpo prtnoipal del programa 

892 GOSUB 10070 

Rutina de intercambio 

10070 PRIWTCHRS(147);GOSUB9200:REM INTERCAMBIO 
10072 IFOAf2)=OTHENtOOaO 

10074 SS=^EL JEFF WO QLfERE JUS ARMAS' " :GOSUfl SI 00 
10076 SS^-PORQUEPODRIANACARREARLE PROBLEMAS^ ':GOSUB 
9100 

10078 PRIMT:GOSUB9200 

10080 IF OA(3)<>0 OR OA(4K>0 OR OA(5)<>0 OR OA[6)<>0 THEN 
1010O 

1008& SS= " NO TE QIEDA NIWeUNA MERCANCIA' ^GOSUB 91 00 
1 0090 SJ = " CON U QU E COMERCl AR " " -.G OSU B 91 00 
10095 GOTO1003S 

1 01 OO Si = EN TRU EQ JE FOR LOS CU CH I LLOS' " :GOS UB 91 00 
1 0102 SJ = 'm TELA 0 JOYAS QUE POSEAS* '\GOSUB 91 00 

10104 SS-^TE OFRECE PERLAS, FIGURILLAS^ ":GOSUB9100 
10106 SS- ESPECIAS^ ":SOSJB 9100 

10105 PRINT;6OSJB920O 

10110 SS=^XUANDO SALISTE OE PUERTO ESTAS' " GOSUB 9100 
10112 SS= " VALI AH: * " iGOSUB 91 00 
101 1 4 SS="PERLAS-2 P D£ ORO CADA UNA' " :GOSUB 9100 
101 1 6 S5= ■RGURILLAS-2 P DE ORO CADA UNA" :GOSUB 910O 
101 IS S$=^'ESPECiAS-l PDEOROELGRAMO*":eOSUB9lOD 
10120 PR1NT:GOSUB9200 

10122 S5="PEROCliANDOVUELVASACASA"':GOSUB9lO0 

10124 £S='^OLJIZA ESTOS VALORES HAYAN CAMB[ADO"*:GQSUB 

9100 

10125 PRINTiGOSUB 9200!SS=K$:GOSL]B 9100 

10126 GETISiFIS="''THENlD126 
10130 FORT=3T0 6 

10135 IFOAm=OTHEN102DO 

10H0 PRINT CHRS[147):G0SUB 9200 

10145 PRENT-TlENES-lOAtl): 

1D150 IFT=3THENaS:="SAC0S 0ESAL"' 

10151 IF T=4 THEN SS="BALASDE TELA*" 

10152 IFT-5TRENSS--CUCHILL0S'" 

10153 IFT=6TH£N&S="J0YAS^" 

10155 GOSJB9100 

10156 PRINT :G0SJ6 9200 

101 60 SS=" A CAMBIO EL JEFE TE OFRECE* -"iGOSUB 910O 

10165 PRINT "YA SEA'';0A(T)'EQ(T-2,1)r'PERLAS" 

10166 PRINT "0 BIEN''-OA(T)*EQtT-2.2K"FlGURILUS'' 

10167 PRINT"^ 0";0A{T)'EQ[T-2.3}:"GRAMOSDE ESPECIAS" 

10168 PRINTiGOSUB 9200 

1 01 70 SS = " QU I EflES PER LAS . FIGU Rl LUS* " : GOSUB 91 00 
1 01 72 SS = " 0 ESPECIAS? ' " :GOS U S 91 00 

1 01 74 SI = " [ENTRA 1 ,2 0 3) * ^' :G0 SUB 91 00 

10175 INPUT IS 

10176 1=VAL(IS):IFI<1 OR I>3 THEN 10174 
10ieO AO(l)=AO{l) + (0A(T)*EQtT-2 J)) 

10190 PRINT!PRINT"LAS ' ;TS(I);'' SE CARGAN EN EL BARCO" 
101 92 SS=KS;60SJB9100 
10194 6ETIS:IFIS="" THEN 10194 
10200 NEXT 

10210 PRI NT: PRI NT: GOSU B 920D 

1 021 5 SS- " El N DEL I NTERC AMBIO ' " : G0SU8 9 1 00 

10216 PRINTiGOSUB 9200 

10218 SS- "HAS OBTEHIDO: * " GOSUB 9100 
10220 PRINT A0[1);"PERLAS- 
1 0222 PR I NT A0(2) ; " Fl G URILUS " 

1 0224 PR I NT AO (3) ; " G R AM OS DE ESPECIAS " 

10225 PRINTiGOSUB 9200 

10228 SS=KS: GOSUB 5100 

10229 GET !S:IF II="" THEN 10229 

10230 RETURN 




Complementos al basic 




t^esBfiazatBH,) porQ(,) y AOQ por E() en todo el listado e 
Mnxtacir esfcis tanbios: 

10070 CLS 

1 01 26 LET IS=INKEYS: IF (S= THEN GO T0 1 01 26 
10140 CLS:GO SUB 9200 

10229 LET I$=1NKEYI:IF THEN GOT0 10299 
BBC Micra: 

Introducir las siguientes modificaciones: 

10070 CLS 
10126 l$=GET$ 
10140 CLS:60SUB9200 
10229 IS=GET$ 
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Alta 
estrategia 

Profundicemos en la mecanica 
de programas capaces de 
determinar los mejores 
movimientos en juegos de 
estrategia 



La frase "juego por ordenador" suele traer a la 
niente una imagen de alienigenas a los que hay que 
capturar en la mmensidad del espacio o tntentar 
atraer en cavernas subterraneas; pero no siempre 
es asi. En los priraems dias de la informatica, algu- 
nos pioncros (entre ellos celebridades tales como 
Qaude Shannon, John von Neumann y Alan Tu- 
ring) dedicaron sus esfuerzos a programar un orde- 
nador para que jugara al ajedrez. 

El ajedrez se consideraba como el juego intelec- 
tuai por excelencia, y un programa que jugara al 
ajedrez con exito representaba la maxima prueba 
de la ifiteligencia de una maquina. En la actualidad 
hay sistemas de ordenador, como el Belle y el Cray 
Blitz, que juegan at nivel de los maestros intema- 
cionales, aunque pocas personas afirmadan que 
estas maquinas piensan, Aun asi, el ajedrez y otros 
juegos de destreza mental ofrecen un campo ideal 
para poner a prueba teorias de planificacidn estra- 
tegica: la competici6n abierta. 

La mayor parte de los programas de juegos de 
destreza se basan en tecnicas de busqueda arbores- 
cente. bastante similares a las descritas en el capitu- 
lo anterior, pero con modificaciones para tener en 



Gran maestrD 

La mayoria de los programas inteligentes de ajedrez 
poseen la capacidad de ' antic»par" una cantidad de 
movimientos en el juego para evaluar cual de los 
siguientes movimientos posibles es el mejor, Los 
ordenadores hacen esto con si ru yen do un drbol de juego 
y efectuando una busqueda en el. En los prinneros dfas 
de la investlgacidn en materia de Al, se consideraba que 
la capacidad d& un ordenador para jugar ai ajedrez era la 
maxima medida de Ja inteligencia de la maquina 

cuenta a un adversario. La idea fundamental es la 
de la "anticipacion". El programa construye un 
arbol de juego considerando sus propios movimien- 
tos, analizando los contramovimientos que tiene a 
su disposici6n el oponente, anticipando sus res- 
pucstas a los mismos y asi sucesivamente. 

El diagrama del arbol de juego muestra el arbol 
anticipado para un juego imaginario entre dos per- 
sonas. La raiz del arbol es la posici6n actual, con 
MAX listo para mover. Los nudos terminaies, u 
hojas, son posiciones fin-del-juego. El arbol se utili- 
za para seleccionar el movimiento a efectuar me- 
diante un procedimiento denominado mini- 
maximiiacion, que fue enunciado claramente por 
primera vez en 1949 por Claude Shannon. Trabaja 
asignando primero valores numericos a los nudos 
terminales: supongamos uno para ganado, cero 
para empate y uno negativo para perdido. Estos 
valores se eombinan luego al ir recorriendo el 
arbol, sobre el supuesto de que ei jugador (MAX) 
siempre recoge los mayores mientras que el opo- 
nente (MIN) siempre elige los menores, para produ- 
cir valores para nudos mas altos. 

En este ejemplo ei valor de la raiz es 0, indicando 
que el juego produeirA un empate (siempre y cuan- 
do nmguna de las partes cometa ningun error). El 
movimiento correcto en el nivel superior es, por 
tanto, Ml, M3 o M4, pero no M2. Las reglas que 
rigen la bifurcacion y generacion de valores de 
nudos estan determinadas por las reglas del Juego 
especifico. Solo en los juegos triviales, como en el 
tres en raya^ se puede constmir to do el arbol del 
juego completo hast a el fmah El ajedrez, por ejem- 
plo, posee un factor de ramificacion de alrededor 
de 32, lo que significa que en cualquier posicion hay 
aproximadamente 32 movimientos legaies. La anti- 
cipacion de cuatro niveles (dos movimientos por 
cada lado) conduciria a m^s de un mill6n de nudos 
terminales. Esta "expiosi6n combinatorial significa 
que los programas para jugar al ajedrez no pueden 
anticiparse hasta la conclusidn del juego. 

En cambio, la mayoria de los programas de jue- 
gos se antieipan hasta donde pueden y evaluan las 
posiciones aili hall ad as. Para hacerlo se requiere un 
metodo para juzgar cuan favorable s o desfavora- 
bles son los nudos de las hojas, aun cuando no se 
sepa el verdadero resultado. Esta se suele deoomi- 
n^rfuneidn de evaluacidn estadiuica e introduce ne- 
cesariamente imprecision, porque s61o es una esti- 
macion del resultado final. No obstante j la razon de 
ser de analizar una cierta distancia de anticipacion y 
utilizar una funcion de evaluaeion imperfecta, es 
que se aplicara cerca del final del juego y sera, con 
toda probabilidad, una estimacidn mas acertada 
que la efectuada sin realizar busqueda alguna. 

Toman do a modo de ejemplo el juego de las 
damas, podrlamos elaborar una funcion de evalua- 
eion muy simple de cuatro terminos basada en: 



D Ventaja de dania 
P Ventaja de pieza 
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M Diferencia de movilidad 
C Control det centre 

Rstos atributos se pueden calcolar examinando ei 
tablero. Por ejemplo, D=WD-BD, donde WD es la 
cantidad de damas defensoras y BD representa 
la cantidad de damas oponentes. 

Las otras variables reflejan varios hechos: es 
mejor tener mas piezas que el oponente (el perde- 
dor acaba sin ninguna pieza); es otil disponer de 
mayor moviJidad, y los cuadrados centrales, en las 
damas asi como en el ajedrez, son mas valiosos que 
los cuadrados laterales. EI programa debe combi- 
nar de alguna forma estas cantidades en un marca- 
dor global. 

Suponiendo que decidimos que una dama (D) es 
tres veces mas valiosa que una pieza coniuo (P), 
que una pieza extra vale dos movimientos y medio 
adicionales (M) y que un movimiento de mas es el 
dobie de meritorio que controlar un cuadrado cen- 
tral mas, nuestra funci6n de evaluacion sena: 

V-15D+5P+2M+C 

(Tipicamente se utilizan estimaciones de enteros 
por la mayor velocidad de calculo.) 

EstHj sin embargo, es una funcion de evaluacion 
muy torpe. A modo de comparacion, el clasico pro- 
grama de Arthur Samuel para jugar a las damas, de 
principios de los anos sesenta, empleaba hasta 25 
parametros. Aqui los coeficientes son, asimismo, 
bastante arbitrarios. Parte de la diversion al desa- 
rroUar programas de juegos reside en ajustar tales 
estimaciones para obtener un buen equilibrio. Uno 
de los puntos mas exquisitos del programa de Sa- 
muel era que regulaba sus propias estimaciones au- 
tomaticamente, lo que constituia una clasc rudi- 
mentaria de aprendizaje* 

En el transcurso de los ultimos treinta anos, la 
idea de otorgar valores numericos a las caracteristi- 
ces did juego y combinarlos en una suma esttmada 
I faimiar ^ valoF de cuaiquier posici6n ha de- 
I vaIcK'. La funcion de evaluacion juega 
I ^Biv ai de k unedidon de distancia heu- 
iM^xbtaok de problemas mediante la bus- 
iie, 

iibviq^^H ve^^pleB£flie antidpe una pro- 

fenmnales que 
i fxobkxnas. Esto 
i ^ los jse^os son 




; o canmadoA de ] 
ioestaijie: em el 
pDdm fxodtidr una recuperadcm. St 
kfiar tm nsvel alia del * horizonte^ dd proer^ 
ms^ la srsimsxm sera sumamente enganosa. 
Fxa fedocH' esie efecto, no poseen una anticipa- 
^ ^mtfwiil i1 fija. Pose en una medida de 
' iodica si una posicion se puede 
I §atp|e. Si la evaluacion no es segu- 
, b b«|aeib se cnqmja un poco miis hacia ade- 
Ea a|edi^ y damas, esto implica examinar 
seoiencias de capturas comparativamente largas. 

El aigoritmo alfa-beta aparecio por primera vez 
eo 1967^ en el programa MacHack de Greenblatt. 
Es UD refinamiento de la minimaximizacion basica 
J o&ece el mismo result ado pero con muchisimo 
i esfueizo. El diagrama de Ja pagina siguientc 




El estado del juego 

1 12 |3 




El diagrama ilustra el estado 
actual del juego en una partida 
de tres en raya tras seis 
movimientos (seguidamente 
lian de jugar fascruces). Se 
puede construir un sencillo 
arbol de juego para rastrear 
iostres turnos finales del 
juego considerando ia 
cantidad de opciones 
existentes en cada etapa. El 
primer nivel tiene tres nudos, 
que cor respond en a los tres 
movimientos posibles {a los 
cuadrados i,Zy 7) que 
pueden efectuar las cruces. 
Cuando les toca jugar a los 
circutos, solo les quedan dos 
cuadrados entre los que 
escoger, con tres 
posibilicfades (de las cuales 
habra disponrbles dos 
despues de que las cruces 
efectueri un movimiento). El 
siguiente nivel tiene, porlo 
tanto, seis nudos. El nivel 
inferior indica situaciones en 
las que se ban utilizado todos 
ios cuadrados y se com pone 
de nudos ' terminales" 



MAX (X) 



MIN (0) 
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SBleccitin de cuadrados 

Habiendo construido el arbol del juego, a cada 
nudo terminal se le puede asignar un valor: 
1 para ganan las cruces, 0 para un empate 
y-1 para ganan los circulos. Podemos 
entonces tr relrocediendo a traves del arbol 
asignando valores a los otros nudos. Si 
torn am OS el nudo mas a la derecha del primer 
ntvet, se llega al valor - 1 considerando los dos 
ntidos debajo de este, que poseen valores de 0 



MAX (X) 



y -1 . Daao que el valor lo determinan los 
cfrcuios (les toca jugar a los circulos), se 
seleccionarci el valor mini mo, es decir, -1 . 
Retrocediendo hasta arrfba del arbol al 
movimiento actual , las cruces deben elegir el 
valor maximo de los tres dispontbles. En este 
ejemplo, !as cruces deberian dar el juego por 
empatado seleccionando el cuadrado 2 para el 
siguiente movimiento (las otras dos opciones 
dan an como ganadorafos circulos) 



ntiestm parte de un arbol de juego entre dos juga- 
doies limnados MINI y MAX. 

Las fetras junto a cada nudo (de la A a la L) 
■HEStraii el oiden por ei cual se examina el arbol, 
adBasdo m procedimiento de primero en profun- 
dbiad; los ooffieros sod e%"aluaciones. Las barras 
^mpfes seoaiaD lo que se conoce como Umitaciones 
alfa y las barras dobles denotan Umitaciones beta. 
Estas cerceoao las bifurcaciones que no pueden in- 
cidir en el resultado final. 

Una limitaddn aifa se produce en el nudo E, que 
no es necesario evaiuar nunca, como tampoco a 
ninguno de sus descendientes, si hubiera alguno. 
Para cuando llegamos al nudo E sabemos que el 
nudo C obtiene un marcador de 15, pero en el nudo 
D el oponente puede forzarnos a bajar a 10. No 
tiene ningun sentido averiguar si nos podemos ver 
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Movimientos de 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
23 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 



d2-d3 

Ctjl-d2 

g2-g3 

Af1-92 

e2-e3 

Cgl-e2 

a2'a3 

b2-b3 

h2-h3 

Ac1-b2 

g3'94 

Ce2-g3 

Ddt-e2 

Cg345 

g4xf5 

h3-h4 

Ag2-h3 

b3-b4 

a3xb4 

Ab2-a3 

Cd2-f3 

Cf3-d2 

Re1xe2 

c2-c3 

Ah3-g2 

Tal^bl 

Tb1-b2 

Thi-bl 

Aa3-c5 

Ac5-a3 

Cd2-f3 

Cf3'e1 

Cd1-c2 

Cc2-b4 

Cb4-a2 

c3-c4i 

d3xc4 

Ag2xc6 

Ac6-e4 

Aa3-e7 

Ae7xf6 

TbM}6! 

Tb6xf6 

Tf6-b6 

Tb1-g1 + 



la parti da 

e7-s5 

Cbe-c6 

Cg8-f6 
Af8-c5 
d7-d5 
O'O 

Ac3-f5 

Cf6-g4?l 

n94-f6 

Dd8-d6 

Af5-e& 

a7-a5 

Cf6-d7 

AeSxfS 

Cd7f6 

Tf8-e8 

a5-a4 

Ac5xb4!? 

Dd6xl>4 

Db4xh4 

Dh4-li5 

Dh5xe2+? 

b7-b5 

h7-h6 

Ta8-a5 

Te3-b8 

Tb8-b6 

RQ8-h7 

Tb6-bB 

Cc6-a7 

Cf6 d7 

c7-c6 

Tb8-a8 

TaB'd8 

Ca7-c8 

d5xc4 

b5xc4 

Cc8-a7 

Gd7-f6 

Td8-c8 

g7xf6 

c4'C3 

8h7-g7 

a4-a3 



En este punto e! pro grama 
indict que estan'a 2.4 peones 
abajo y los prog ram ado res 
abandonaron 



Posici6n de tas piezas tras el movimieitta 21 




Esta partida forma parte de una sene en la que el programa de 
ajedrez por ordenador mas potente del mundo, el Cray Blitz, fue 
derrotado 4-0 por DavJd Levy, de Intelligent Software, tras una 
apyesta de 5 000 do la res entre el senor Levy y los 
programadores del Bl^tz Aunque ef programa ha obtenido la 
categoria ajedrecista de National Master, el juego derr^uestra que 
aun es necesario muchisimo trabajo para que los ordenadores 
supongan un seno desafio a los mejoresjugadores humanos del 
mundo 

obligados a bajar aun mas, puesto que obviamente 
esta ruta es menos deseable que la ruta a traves del 
nudo C, Por tan to, se pueden sustraer de tod a con- 
si derad6n los otros descendientes del nudo F. 

En el nudo f se apliea cl mismo razonamiento 
pero al contrario. Para cuando llegamos alli, sabe- 
mos que G produce un marcador de 20. Ei nudo H, 
con 25, parece mejor^ pero MINI (y no MAX) elige 
entre los nudos G y J , y claramente se inclinara por 
G, Por consiguiente, no hay necesidad de ver si I es 
aun mas prometedor, puesto que a MAX jamas se le 
permitira llegar alli. 

Podemos expresar estas ideas desde el punto de 



vista de un arbol genealogico, MAX es un machista 
que piensa que el nudo por ejemplo, es el tio de 
los nudos D y que son ambos hijos del mismo 
padre. MINI, por su parte, es una feminista y, en 
cuanto a ella respecta, G es la tia de las hermanas H 
e I, cuya madre es J. En la medida en que usted no 
se sienta confundido por nudos que cambian de 
scxo cn nivcics altcrnativos, esta analogia nos per- 
mitira explicar con precision la regla alfabeta: 

• Apenas descubre MAX un hijo que es peor que 
cualquiera de sus tios, ignora a los otros hermanos 
de ese hijo. 

• Apenas descubre MINI una hija que es mejor que 
cualquiera de sus tias, ignora a las olras hermanas 
de esa hija. 

En el mejor de los casos, el algoritmo alfa-beta s61o 
examina dos veces mas la ralz cuadrada de la canti- 
dad de nudos terminales del arbol del juego, en 
comparacion con la simple minimaximizaddn. En 
el peor de los casos, examina la misma cantidad, y 
de forma ligeramente mas lenta. Para evitar el pri- 
mero de nuestros dos casos, es importante generar 
los hermanos y hermanas de cada nivel por un 
ordeo sensato. En los niveles maximizadores, se los 
debe generar por orden de primero el mejor, y en 
los niveles minimizadores, por orden de primero el 
peor (primero el mejor para el adversario). 

Para Liustrar los importantes conceptos de la bus- 
queda arborescente, presentamos un juego artifi- 
cial que compreode tecnicas de busqueda casi 
puras. EIlo significa que los detalles de representa- 
cidn del tablero, generacion de movimientos y eva- 
luacidn estdtica (que son cruciales para el exito de 
cualquier programa verdadero pero que tambien 
son espedficos de cada juego) no oscureccn la sim- 
plicidad escncial del procedimiento alfa-beta. 

No hay ni tablero ni ninguna pieza: el estado del 
juego se describe completamente mediante un 
unico numero, retenido como V%. Para el ordena- 
dor, el objetivo del juego es que V% alcance el 
valor 255, y para usted conseguir que sea menor 
que —255. 

A cada tumo el jugador puede elegir entre apli- 
car una de cuatro fuociones (A,B,C,D), listadas 
entre las Ifneas 1030 y 1060. Es posible alteiarlas 
para crear diferentes versiones del juego, como, 
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por ejemplo, hacer que le resulte mas dtficil al or- 
denador. 

El juego es trivial pero ilustra la cstrategia de 
busqueda sin que detalles ajenos dificulten su apre- 
ciacion, Ademas, es sumamente matematico, de 
modo que el ordenador posee una ventaja incorpo- 
rada. En esta version, la mioimaximizacion aifa- 
beta se basa en gran raedida en el uso de funciones 

El juego de los numeros 



lecursivas con parametros y variables locales. Los 

paranietros son los siguientes: 
W% Eslado actual del juego 
A% Mejor Alfa hasta ahora a este nivel 
B% Peor Beta hasta ahora a este nivel 
D% Indicador de profundidad 

Dado que el programa implica recursion, aqui solo 

iocluimos una version en basic BBC. 



ystado3.l: 

EL JUEGO DE LOS NUMEROS 



10 REM **** 

11 REM^* 

12 REM** 

13 REM**''**"**"'**"*"' * 

50 MODE? 

100 R EM — J uego para demostra r b u sq ueda: 
120 GOSUB1000 :REM inicializacion 
130 G0SUB160O :REM instrucdones 
150 REPEAT 

1 60 GOSUB 2000 :REM preparer nuevo juego 
170 INPUT ' Quien va primero (1 =Tu, 2= Vt>) ",H1% 
180 IF H1%<1 OR H1%>2 THEN GOTO 170 
200 REM — bucfe principal: 
210 REPEAT 

220 JFH1%-1 THEN GOSUB 3000 

230 REM — tu rno de la perso na . 

240 G OSU B 3600 : R E M vi s ual izacio n tab I e ro 

250 H1%=1 : REM siempre 1 tras 1 cicio 

260 GOSUB 4000 : REM verif icar ganador 

270 IF EG%=OTHEN GOSUB 5000 

280 REM — ttjrno del ordenador 

290 GOSUB 3500 : REM mostrar estado tJel juego 

300 GOS UB 4000 : R EM ve rif i car f i tial del j uego 

310 UNTIL EG%<>0 OR M%>33 

320 REM — ultfmo movimiento: 

330 GOSUB 600O : REM felfcitaciones 

340 PRINT"Otrapartlda(N=No) 

350 Y$-GET$ 

360 UNTIL Y$-"N" OR Y$=''n" 
365 PRINT 

370 PRINT" Hasta otra, ^ graclas por jugar!" 
400 END 
444 : 

500 DEFFNmaximov{W%.A%,B%.D%) 
505 REM-—- — miturno: 
510 LOCAL P%,E%,KEEP% 

515 IFD%>-MD%ORABS(W%)>HI%THEN=W%: REMvalorestatico 
520 REM sf no profundizar mas: 
525 P%=0 

530 RS^A^i»'.-P%^1 

53c - GOSUB 5500:REM efectuar movimiento 

a3i F: , =-RINTCHRSfH%+64);'^-"; 

S« r-^^ :*.V^mj%,0%+1) 

S£ A^=E^t: KEEP%=P% 

m Wf^\>9r . . 5W=A%:HII%=KEEP% 
556 RBI paciTs 
560 =A\ 

505 REMvoli«^lsmil\ 

570 ; 

700 0EFFNmiisimov(VV%JlV3%i>\) 

710 REM— — turrtocJeiD&tn 
720 LOCAL E%,F% 

730 IFD%>=MD%ORABS(VV%*>if%Tiei=Wi 

740 P%=0 

750 REPEAT P%= P%+ 1 : H%=P% 

755 V% = W%: GOSUB 5500: REM efeciuar movimiento 

760 E%=FNmaximov(V%,A%,B%,D%+1) 

770 IF E%<B% THEN B%=E% 

780 UNTIL P%>3 OR B%<=A% 

790 -B% 

796 REM vuelve con el valor de B% mas bajo 

999 : 

1000 REM - rutm inicializadora: 

1001 BL$=' " 

1002 @ %=4 

1020 REM " las 4 funclones: 
1030 DEFFNA(X%)=2*X%-7 
104O DEF FNB(X%)=X% DIV 2+1 
1050 DEFFNC(X%H-4*X%+17 
1 060 DEF FND(X%) =3*X% -4 
1070 L0%— 255:HI%-255 
1150 RETURN 
1160 

1600 REM - rutlna rnstrucciones: 
1610 CLS:PRINT 



1630 PRINr "Bienvenido al Juego de los Numeros! " 
1630 PR I NT" Si no conoces las reglas, " 

1635 PRINT'^LEETEELCAPITULO!^'^ 

1 636 PR ) NT N Ota: Yo m axl mizo : tu m i n i mizas . " 

1640 PRINT" Para ver el efecto de un movimiento, digiia:' 
1645 PRINT'^A, B, C, 0 Para efectuarlo. digitaX." 
1650 PRINT:PRINT'^Buenasuerie!";CHR£(7) 
1660 RETURN 
1670 

2000 REM ■■ Rutina de preparacion: 
2010 M% = 0 : REM movimientos 
2020 V%-RND{15)-e; REMestado inicial. 
2050 EG%=0 

2060 PRINT "Estado inicial= ";V% 

2100 RETURN 

2110 

3000 REM -■ Movimiento de ta persorra 
3010 M%=M% + 1 
3020 PRINT 
3030 REPEAT 

3040 P R I NT' Q u e m ovi m ie nto haces ? " ; 

3050 H$= GETS: PRINT HS: 

3060 IFHS="r THEN PRINT FNA(V%): H%-1 

3070 IFHS="B " THEN PRINT FN6{V%): HS-2 

3080 IF HS^ 'C " THEN PRINT FNCtV%): HS=3 

3090 IFHS- 'D ■ THEN PRINT FND(V%): H$=4 

3100 UNTIL HS=^X" 

3120 GOSUB 5500 : REM elegirH% 

3150 RETURN 

3160 : 

3500 REM ■- rulEna visualizacEon del talilero: 
3520 CLS: PRINT 

3522 PRINT" Movimiento ";M%r"> 

3523 IF M%<1 THEN RETURN 
3525 PRINT CHR$(64+H%); 
3530 PRINT = ":V% 
3535 RETURN 

3700 

4000 R EM - Rut 1 na com p ro bacion g an ado r (sob re M$J : 

4001 IF M%<1 THEN RETURN 
4010 EG%=0 

4020 IF V%<LO% THEN EG% = -1 
4030 IFV%>HI%THENEG% = 1 
4040 RETURN 
4050 ; 

5000 REM Rutina movimiento deJ ordenador: 
5005 W%=V% : REM guardar sstado actual. 
5010 M% = M%+1 

5015 MD%=6 : REM max profundidad 
5020 IF M%<4 THEN MD%-4 
5030 IF M%>e THEN MD%=e 
5040 GOSUB 6200: REM ->H% 
5045 V%=W% : REM restablecer estado. 
5050 GOSUB 5500 : REM hacerlo. 
5070 RETURN 
5030 : 

52O0 REM " SeJeocion tfe movimiento: 
S210 8V%=L0% : D%=0 
5^ BV%=FNma)umov{V%,LO%,HI%,1) 
5230 H%=HH% 

5240 PRINT "Puisarojalquierteda pan CO nttnoar: 
5244 C%=GET 
SSO RETURN 
S270 : 

SSOO REM - Rutina efectuar movimiento [H% : V%): 

5505 ON H% GOTO 5510,5520,5530,5540 

5510 V%=FNA{V%): RETURN 

5520 V%=FNB(V%): RETURN 

5530 V%=FNC{V%): RETURN 

5540 V%=FND(V%): RETURN 

5550 : 

600O REM - Rutina de felicitaciones: 
6010 PRINT ^EL JUEGO HATERMINADO!'^ 
6020 IFEG%>0THEN PRINT "Heganado yo!!" 
6030 IFEG%<OTHEN PRINT '^Bien hechoi" 
6040 If EG%-OTHEN PRINT "Ha sldo empate^^ 
6050 RETURN 
6600 : 
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Prologo 



Parece que haya pasado mucho tiempo 
desde que los japoneses afirmaron que 
cambiari'an ei curso de la tecnologia del 
ordenador invirtiendo dinero y trabajo 
de investigacion en sa proyecto de 
ordenadores de la quinta generad6n. 
Ouizas una de las dccisiones mas 
significativas que adoptaron 
fue utilizar el prolog, lenguaje de 
programacion poco conocido, como el 
''lenguaje central" de las maquinas de 
bases de datos inteligentes y de elevado 
rendimiento que preven. 
PROLOG representa las siglas de 
"/programming in logic'' (programar en 
logica) y constituye una concrecion 
buena pero impoifecia de ese ideal. 
Pero ^^por que habria de ser deseable 
programar en logica? Existen muchas 
logicas que se pueden aplicar para 
describir el mundo y aspectos del 
niismc). Con algunas de estas usted ya 
estara familiarizado, como la 
matematica, mientras que otras pueden 
parecerle bastante ajenas. como ciertas 
doctrinas filosoficas. El calcuio de 
predicado de primer orden es una logica 
bastante parecida a la que utilizamos 
para el pensamiento y el analisis 
cotidiano, aunque posee su propia 
notacion y ciertas restricciones. Se 
puede concebir el predicado como una 



relacion entre cosas- En la frase ''a Juan 
le gusta Ana", el predicado es ''gusta" 
Podriamos escribir esto como '*gusta 
(Juan, Ana)", que es menos inteligible 
pero mas claro en cuanto a que es el 
predicado y cuales son sus argumentos. 
Para expresar que Juan es varon^ 
podriamos escribir 'Var6n{Juan)", 
donde "varon" es un predicado que 
toma un argumento (''Juan"). De modo 
similar J "mujer(Ana)", significa que 
Ana es una mujer. 

Lo que tenemos aqui son 
simplemente declaraciones de hcchos 
pero podemos ampliar la logica para 
mostrar como algunos hechos impUcan 
otros. Utilizando la logica de predicado, 
podemos describir el mundo en 
t^rminos de hechos e implicaciones y 
usar nuestra dcscripcion para deducir 
hechos nuevos a partir de los antiguos. 
Ello lo hacemos mediante la 
introduccion de variables. Las variables 
logicas son muy similares a aquellas que 
usted ya conoce a traves del basic o 
algunos otros lenguajes de 
programacidn, con la excepcion de que 
su esfera de accion se limit a a la clausula 
(hecho o implicacion) en la que 
aparecen, en vez de a todo el con junto 
de clausulas. Esto significa que el Juan a 
quien le gust a Ana tal vez sea un Juan 




Preludio de "Complemefitos al pmHJOG" 

Al objeto impiementarse con eficacia, 
el PROLOG tiende a exigir generosas 
cantidades de RAM, y son raras las 
versiones de[ lenguaje que puedan 
ejecutarse en un ordenador personal. 
Los usuarios del Spectrum, no obstante, 
pueden considerar la adquisicion del 
MICRO-PROLOG, Bschto pof Loglc 
Programming Associates y distribuido por 
k^inclairen cassette. Los usuarios de otros 
;^^^micros pueden mantener vivas sus 

esperanzas, a la vista de que e! prolog 
esta captando rapidamente la atencion de 
productoresdesoftwareyya existen 
planes para versiones del lenguaje 
destinadas ai BBC Micro y al Enterprise. 
El MiCRo-PROLOG Spectrum difiere en 
muchos sentidos del dec-10 prolog 
estandar, la version utilizada en los 
ejemplos a lo largo de nuestra serie. No 
obstante, iremos imprimfendo una sehe 
de breves Comptemdntos al prolog, para 
que los usuarios del Spectrum puedan 
entrar listados directamente con micro- 
prolog. Las diferencias m^s tmportantes 
las explicaremos mas adelante 



fflosf 



diferente del Juan que es un var6n . 

Ahora podriamos escribir un hecho 
tal como "mujcr(X) ^gusta(Juan, X)". 
La Hocha significa "'im plica que", de 
modo que podemos leer esto como una 
regia que afirma que "el hecho de que X 
sea mujer implica que a Juan le gusta 
X'\ En castellano corricnte, ia regla se 
lee como ''a Juan le gusta X si X es 
mujer", Esta regla es un ejemplo de un 
tipo especial de clausula del calcuio de 
predicado que se denomina clausula 
horn (trompcta). Las clausulas horn 
poseen una sentencia como 
encabezamiento (el consecuente), que 
es verdadera solo si todas las sentencias 
dei cuerpo (los antecedentes) lo son. 

A si B y C y D 

es una clausula horn con la cabeza A y 
el cuerpo B, C y D. Un hecho simple se 
puede considerar como un consecuente 
sin antecedentes y se lo presume 
verdadero. 

Con !6gica podemos expresar el 
programa que deseamos escribir como 
un conjunto de hechos y reglas que 
describen las cosas en las que estamos 
interesados. Esta deseripcion es una 
forma bastante similar a aquella en que 
concebimos re aim en te el problema. 
Para ^^e jecutar" nuestro programa 
logico intentamos demostrar la 
veracidad o falsedad de algun 
enunciado. Si este es un hecho simple, 
entonces podemos suponcr que es 
verdadero sin nmgun otro esfuerzo. Si 
es el consecuente de aiguna regla, 
entonces debemos abocarnos a 
demostrar la veracidad de todos sus 
antecedentes antes de que podamos 
afirmar que es verdadero. Por tanta, si 
deseamos saber si Juan es var6n, 
intentamos demostrar la sentencia 
''var6n(Juan)'\ que sabemos que es 
verdadera porque es un hecho que ya 
poscemos. Si queremos saber si a Ana 
le gusta Juan, primero necesitamos 
probar las sentencias "var6n{Juan)'' y 
"gusta (J uan , Ana)''. 

El PROLOG lo desarroUo A. 
Colmerauer en la Universidad de 
Marsella a principios de los anos 
setenta, basandose parcialmente en el 
trabajo de Bob Kowalski, que en la 
actualidad se desempena en el Imperial 
College de Londres. Utiliza scMo las 
clausulas horn de ia logica de predicado 
y una notacion similar a la que hemos 
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ROLOG/Ciencia inform^tica 




mostrado mas arriba. Se podria haber 
implementado el calculo de predicado 
en su totalidad, pero el prolog, como 
todos los lenguajes de programacion, 
representa un equilibrio entre eficiencia 
de proceso y poder de expresi^n. Se 
esta desarrollando un gran trabajo de 
investigad6n para refinar este 
equilibrio, pero en su forma actual el 
PROLOG parece bastante estable. 

Lo mas cercano a un prolog 
estandarizado es una version 
denominada DEC-10 prolog (porque 
se implement^ por primera vez en un 
ordenador central de Digital Equipment 
Corporation), y la biblia de los usuarios 
del prolog es un libro de Clocksin y 
Mellish que con toda seocillez se titula 
Programming in prolog y describe esta 
version y ofrece, paralelamente, 
muchos detalles practioos, Casi todos 
los prolog actualesj incluyendo el 
c-PROLOG, estan modelados segun 
este estandar, aunque abundan los 
complementos y los dialectos. Para el 
micro, hay dos versiones que marchan a 
la vanguardiai la de Expert Systems, 



que se acerca mucho al estandar, y el 
MICRO-PROLOG, de Logic Programming 
Associates, que difiere en cuanto a 
sintaxis y estructura interna. 

Las implementaciones de prolog 
milizan muchisima memoria y por este 
motivo no caben con comodidad en 
micros con menos de 64 K de RAM. Sin 
embargo, existe el micro- prolog para el 
Spectrum y continuan apareciendo 
nuevas implementaciones. 

Los programas en prolog no exhiben 
el familiar flujo de control en el cual se 
e jecuta la primera sentencia del 
program a, luego la segun da, y asi 
sucesivamente hasta la ultima, con 
ocasionales bifurcaciones y bucles a lo 
largo del camino. En cambio, el prolog 
utiliza una tecnica "de retroceso". 

Para resolver un interrogante, el 
prolog va trabajando hacia abajo a 
traves de una cadena de reglas, 
planteandose a si mismo un nuevo 
objetivo a demostrar en cada ocasi6n. Si 
un camino determinado a traves de la 
cadena demuestra ser improductivo, el 
PROLOG "retrocedera" hasta un punto de 



eleccion anterior y despues se bifurcard 
en una nueva direccion. 

Esta forma de proceder le confiere al 
PROLOG un "tacto" muy diferente en 
comparacion con cualquier otro 
lenguaje de programacidn. Los 
defensores de la programacion logica 
resaltan la naturaleza declarativa de un 
programa en prolog. Es decir, la 
lectura de una regia como si fuera una 
clausula del calculo de predicado de 
primer orden; por ejemplo, X es tio de 
Y si X cs var6n y X es el hermano de Z 
y Z es ei padre de Y. Y el prolog 
siempre se puede leer en el estilo 
procedural mas familiar (para 
demostrar que X es un tio de Y, 
demostrar primero que X es varon, 
despues demostrar que X es el hermano 
de Z, y despues demostrar que Z cs el 
padre de Y). La disponibilidad de la 
lectura declarativa es algo de lo que 
carecen la mayoria de los otros 
lenguajes y, ciertamente, es una 
caracteristica muy valiosa para ayiidarlo 
a usted a comprender y, por lo tanto, a 
disenar y comprobar sus programas. 



Arbol de conocimiento 

Las primeras aplicaciones de inteligeicia artificial por 
b general estaban dihgidas a ia solucidn de problemas 
abstractos en los campos de la matematica y la f fsica, 
Debfdo a que las dreas de conoclmtento involucradas 
se pod fan formularf^cilmente en terminos de leyes 
fundamentales, se pod fan escrlbir programas para 
demostraf o refutar ciertos teoremas para poder 
resolver losproblemas. Sm embargo ^ programar un 
ordenador paratratar 'rnteligerttemente" problemas 
tornados del mundo real, en donde las causas y los 
efectos implicitos no se pueden expresar faellmente 
en terminos axiom^ticos, exige un enfoque diferente. 
Para funcionar en estas circun stand as. un programa 




arbol 



requerira no si^lo una base de datos que contenga 
iiechos reievantes, si no tambien afgiin medio de 
reJaclonar estos hechos entre sf. El metodo mas 
comun de representa r hechos y sus relaciones en el 
interior de un ordenador es el que se reproduce en la 
redsemnilcs. una representacion del conocimiento 
que se puede apreciar mejor conno una estructura 
arborescente simple, lal como vemos. La red 
semantica se compone de nvdosy enlaces, de los 
cuales los mas obvios son ES-UN o ES-UN-TIPO-DE. 
En el ordenador, una red como esta se puede 
representar como una estructura de datos. tat vez una 
matrtz en basic o una clausula en prolog 





ES-UN ES-UN 




pmo escoces 



acebo 



roble 



platano 
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Ajustando la mira 

Ahora montaremos los componentes del brazo y agregaremos los 
potenciometros y la mIra del trazador 



Paso1:Ensamblar el brazo 

Las dos piezas del brazo que cortamos en et ultimo 
capitulo se engoznan medtante un par de 
potenc[6metros, uno de los cuales se monta en la 
tapa de la caja del componente pl^stico y et otro a 
traves de los extremos del brazo conector. Corte el 
husillo de cada potenciometro de modo que solo 
sobresalga 15 mm del cuerpo. Fije un 
potencidmetro en la tapa de ta caja y otro en el 



razo 2, ajustandolos en su sitio con (as tuercas 
Observe que los puntos de conexion del 
potenciometro de la caja deben apuntar hacia e 
lado de la caja mas cercano, mientras que los del 
otro deben apuntar a lo largo del brazo. Empuje los 
fiusillos en las periflas correspondientes, ya 
montadas en el brazo 1 , y fijalos en su sitio 
ajustando los tornillos empotrados. Cada tiusillo 
debe posicionarse de modo que et borde piano 
quede afianzado mediante el torniflo empotrado 




BRAZO 2 




POTENCIOMETROS 




CAJAl 



Paso 2: Montar la mira 

Corte una mira de un trozo de plastico transparente 
relativamente delgado, como et que se utiiiza para los 
estuches de cassettes de audio. La forma exacta de 
f fa mira no es importante, pero los ejes deben trazarse 



sobre la superlicie de modo que se crucen (ver 
ilustracion) y queden a 27 mm del centro del agujero 
de montaje, Fije la mira en el extremo libre del brazo 
2 mediante el perno M5 y tres tuercas. Establezca la 
altura inicial en 32 mm. Esta disposicidn permit! ra 
cambiar facilmente la aitura 



IWIRA DE CRUZ GRABADA EN PLASTiCO 



BRAZO 2 



40 mm 



5 mm 
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Trazador digital/Bricolaje 




PUERTA 
ANAL(3G!CA 

FBO 
OV 
VREF 

C1 

GO 



ENCHUFE COtJECTOH 
DIN D[N 



INTERRUPTOR 











PDTENC!6WtETRO0 


POTENCIOMETRO 1 



El circuito 

He aqu I el circyito complete 
para el trazacfor digital. Observe 
que et mterruptor a pres(6n est^ 
cone ctado a FBO e n la p u erta 
anaiogica. Esta corresponds a 
una entrada de bot6n de disparo 
que se puede detects r mediante 
software. El voltaje de referenda 
uttlrzado en la conversion de 
analogico a diaitaf se sumtnistra 
a travis de las dos ptstas de \qs 
potencidmetros; las conexiones 
dei potencifimetro central se 
vuelven a enviar a los canales 
AOC 0 y 1 para la conversii»n a 
forma digital. UtHizando esta 
infornrtaci^n, podemos calcutar 
[OS angulos del brazo y la 
posicidn de la mira del trazador 




POTtNCldMETRO 0 



Paso 3: Cableado del brazo 

El conector DIN de 5 patillas debe insertarse 
primero en [a caja plastica (en el agujero cortado 
para el) usando dos pemos M3. Empuje el 
mterruptor a trav^s de latapa, ajustelo en m sitio y 
realice el cableado del conector, los 
potencidmetros y el interruptor . Se puede utilizar 
cable piano de tres vfas y debe ser empujado a 
traves del agojero del lado de la caja. Asegdrese de 
que quede io suficientemente flojo como para que 
el brazo de! trB22dor pueda desplazarse hasta 
cualquier punto. Pegue el cable debajo del brazo 2 
Gon cinia adtiesiva o cola 



CARA INFERIOR DE LA TAPA 




POTENCIOMETRO 1 



Paso 4: El cable de conexlon 

La tarea final consiste en cablear un enchufe DIN de 
5 patillas, que se instalarS en la unldad de nuestro 
trazador, y conectario a un enchufe tipo D de 15 
vfas que se colocara en la puerta anai6gica del BBC 
Micro. Para efectuar las conexiones que se indican 
utilice el restodel cable piano 




ENCHUFE 
Dm 
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Revolucion 
grafica 

Proseguimos nuestro estudio 
de los graf icos en 3 
dimensiones del Commodore 
64, analizando esta vez la 
conversion del listado en basic 



El programa hibrido (Prueba I-Rot y Hexa U-Rot) 
anteriormente proporcionado se ejecuta con relati- 
va rapidez. Pero es claro que el tener que inspeccio- 
nar la matriz de adyacencia E%(U) (que define los 
oodos que han de conectarse en la figura de Imeas) 
con el solo objeto de determinar cuales son los pun- 
tos que deben trazarse, raientiza la marcha del pro- 
grama. 

Para darle mayor ceieridad necesitamos codificar 
el resto del bucle clave en basic del programa Cubo 
rotator io en codigo maquina. El resultado vale la 
peoa por la velocidad ganada. 

Para tratar los siguientes calculos matematicos: 

X1%=X(f)+159:Y1%=199-(Z(l)+100) 
X2%=X(J)+159:Y2%-199-(Z(J}+100) 

que encontramos en las Hneas 1640 y 1650 del pro- 
grama original en basic, necesitamos otras llama- 
das al interprefe. 

Esencialmente am has lineas del basic toman una 
variable de coma flotante (p. ej., X(l)) y le anaden 
1 59 (en coma flotante tambien) antes de aceptar la 
parte entera y aim ace n aria como X1% en dos bytes. 

Las 11am ad as al interprete necesarias para lograr 
esto son: 

• FLPINT (direccion de la Uamada SB1AA): 

Esta rutina torn a la parte entera del niimero en FAC 
y da el resultado (dentro del interval o --32767 a 
32767) en forma de byte lolhi en los registros Y y 
A. N6tese aqui el orden lofhi in usual, al reves que 
en muchas rutinas de interprete. 

• SNGFT (direccion de la llamada $B3A2): 

Esta rutina toma un entero de un solo byte (un nu- 
mero entre 0 y 255) del registro y lo coloca en 
FAC en coma flotante. 

SNGFT se emplea en la subrutina ESTABLECIMIENTO 
del listado en assembly (linea 5150). Por cjemplo, 
el valor decimal 1 59 es colocado en el registro indi- 
ce Y y se llama a SNGFT para convertirlo y situarlo 
en FAC. 

Despues de esto, MOVMF se encarga de poner el 
resultado en los cinco bytes de . Cuando de- 
seam os sumar 1 59 sabemos que est^ disponible en 
MEML 

Los problem as mas importantes que surgen en la 
conversi6n a codigo maquina del bocle del basic se 
refieren a la especificacion de deterniinados ele- 



mentos en las tablas que definen ia figura rotatoria. 
Puede que en algunos casos el calculo de los punte- 
ros de la tabla resulte difidl. Las tablas de ordena- 
das X(I),Y([),Z(I} no presentan dificultades especia- 
leSj ya que en cada tabla sencillamente anadimos 
cinco bytes al puntero para obtener !a direccii5n del 
siguiente elemento. 

La tabla E%(I,J), al ser bidimensionai, es otra 
cosa. 

Se ordena en la memoria secuendalmente de la 
siguiente manera: 

E%(0.0)E%{1,0}E%(2,0)...E%(NP,0) 
E%(0,1)E%(1,1)E%(2,1).,.E%(NPJ), etc, 

Es decir, la tabla se compone de bloques de memo- 
ria de 2 x(NP-Kl) bytes de longitud cada uno, co- 
rrespondiente a los valores del segundo subindice, 
tomando cada elemento dos b)les (la tabla es de 
niimeros enteros). 

Nuestra intencion es reflejar el c6digo basic con 
la mayor exactitud en codigo maquina de tal modo 
que los bucles I, J (rastreadores de E%{IJ)) seran los 
siguientes: 

FOR 1=1 TO NP 
FOR J-1 TO I 

Esto significa que el cambio en el puntero para Jo- 
grar un eqoivalente en codigo maquina de NEXT I, 
que permita incluir elementos con un primer subin- 
dice cero, resulta algo complejo. Para hacer que la 
flgura gire, se ha dc acceder a los elementos de 
E%fl,J) en el siguiente orden: 

E%(1J) 

E%(1.2)E%{2,2) 

E%(1 .3)E%{2,3)E%(3,3) 

E%(1 ,4)E%{2,4)E%(3.4)E%(4,4), etc. 

Un calculo rapido muestra que hay que anadir 
2x (NP-H 1) al puntero cada vez que se incrementa 1. 
La mejor manera de hacer esto en el codigo maqui- 
na del 6502 es emplear el diieccionamiento indirec- 
to para acceder a E%(I,J}. 
El codigo seria: 

LDY JINDEX 
LDA (ZTEIVIP},Y 

siendo ZTEMP la pagina cero, un puntero de dos 
bytes, y JINDEX sirve para seguir la pista de J. Tam- 
bien ZTEMP debe ser incrementado a cada incre- 
mento de J. Los incrementos de ZTEMP y del regis- 
tro Y se acompanan de un aumento del desplaza- 
miento en dos bytes a cada incremento de J . El re- 
sultado final es que ZTEMP debe quedar incremen- 
tado en (2 X IMP -Hi) -(1-1) a cada iteracion del 
bucle I. 

La longitud del bloque es decrementada en (l-^l) 
porque ZTEMP ha sido ya incrementada (I— t) veces 
en el bucle J ejecutado. 

La expresion del calculo del desplazamiento 
quiere decir que ZTEMP apunta al byte correcto des- 
pues de ser incrementado I. 

Por ultimo, seria util poder llamar a una rutina 
interprete para que nos coloque la variable 
E%(I,J). 

Tal rutina existe, pero resulta por desgracia tan 
sibilina (pues trata todo tipo de variables posibles) 
y tan lenta, que es preferible que calculemos noso- 
tros mismos el desplazamiento de la direccion de 
E%(1,1). 



Rutmas rotatorias 

Los listados que siguen dan el codigo 
programa en c6digo m^quina que 
figura de Imeas, definida por la t^p 
pantalla de alta resolucion. El 
rutinas interprele y metodos 
las variables del basic exami 
Conseguimosahoranue. 
converlirel bucle origin' 

Cargador en 

1000 REM"" IMSERTAPHEXAII-ROTENW 

1010 REM"* "" 

1 020 DATA72 . 1 3S,72 , 152,72,32 , 1 01 J 99 
1 030 0ATA1 73 ,63,1 97 , 1 72,64 , 1 97,32, 1 62 
1040 DATA1 87.173,75, 1^7,1 72, 76, 197,32 
1 050 DATA40, 1 86, 1 62 .94, 1 60, 1 97,32, 2 1 2 
1060 DATA1 87, 173, 87,197,172, SB, 197, 32 
1 070 DATA1 62, 1 67. 1 73 . 77, 1 97, 1 72,76,97 
10B0 DIATA32,40.186,169,94. 160,197,32,80 
1090 [>ATAia4,162,94,1 50.197.32.212,187 
1100 DATAl 73,67,197,172.88,197 ,32,162 
1110 DATA187,173,75,197.172,76.197,32 
1120 [)ATA40,16&J62,99.160, 197,32,212 
1130 [)TA167,17mi97,172,84,197.32 
1140 DATA162,167,173,77J97,t72.78,197 
1150 CHATA32,40.186,ie9.9S,160,197,32 
1 160 DATAm3,164,162,99,160,197.S^;&l^:i}iii!H[ji£i 
1170 DATAia7,169,94,160,ia7j32if'*'="^'' ^=''^'^ 
1160 DATA174,63J97,1^^^jf:''''^ 
1190 DATAlS7.1®i9^i3jsftlF^,^ 
1200 DATA174,^I-i(^-3J|gPrf7. 

1210 mmmmw::^^ jt,i«,,^ 

1220 DlATi¥id^fe;-fS6?jaUl,a3, )7,144,3 
1230 D^^«?^S^|(St^,169,5,2- 109,87.1 
1240,sfeti^l!i1iSf;|t^7.14^,3,2: 1.63,197,76 
1250r|£i4;TftiiE£?ESS2:ie9.1,H1,l 193,141.1 
126<JM^g^P:2,ia3,32,^ 193,32.1 
127l^HWf;fim^169,1,m,81,1! M41,82 



ue esf^tjfi^^^lll^ - 
amaalarutina " " 



II DCA II nOT ( 



jrograma cargador, si pulsamos 



iSte segtindo caso 



.istado assembl 




las tablas para dar latigura rotatoria. Se incluyen 
^jlPlilin-WPtl^irfin p^jgeste codigo 



prueba en basic 
dj^go maquinay 
rueba puedeser 



impleado con una veijron ensan- ilada del codigo 



I cargando 



iinea 1030 m 



ejecutando el 



ra 



B64 



+ 



dyfffebaJ 













^'+1 ; POKE50502. 
= '+1 ; POKF50503, 
= *+1 ■ POKE50504. 
-*+1 \ POKE505O5 
^*+1 \ POKESOSOfi 
^'+1 ■ POKE50507 
-'+1 \ POKE5050e. 
= *H-1 ; POKES0509 
= '+1 ; POKE50510 

POKI 



!ta}HE 
Y(1)L0 
y(1)HI 
Z(1]L0 
Z{1)HJ 
NP 
CSLO 
CSHI 
SNLO 
SNHI 

E%(1,1)L0 



1^ DATAieO. 197 ,32,30, 184,32.1 
1390 BATA140A1 95, 173,9 1,197, 
146^ □ATA197.32 1 62, 1 67, 1 69,99,1 60 
Kit DHA32,8Q.1S4.32,170,177,140,5,1 
Id DiIil173.0.l95m2J95,200,19 
H» MTA^ : 20-? 11,173,4 

14«J r: Si : ^: "l 3 76.207,196 

1430 DA"^:: : v rao5.S2 

14^0 DA~- 1l3i.65.197 
1470 DA": ,..faS.tS7 
1460 DATA r :M4t.§1J97 
1490 DATAW,3.23S,a£j97.£30^3)e.2 
1500 □ATA230,254,238.e2.l97.76,73.l9B 
1 51 0 DATAI 73 ,74 .1 97,2(e.S1 ,197,240.38 
1520 0ATA1 69 ,5.24, 109,63,1 97 J 41 .197 
1530 DATAI 44 ,3.238, 84 J 97. 1^,5,24. 163 
1540 DATA89, 197,141 ,39,197,144,3,238,90 
1550 DATA1 97, 169, 1,24, 109, 74, 197. ID 
1560 DATA237, 61 ,197.24,105,1,24,10 
1570 DATA133,253, 165,254 ,105,0,133^54' 
1560 DATA1 73,68, 197, 141 ,85,197,173 S9 
1590 OATA197.141,86,197,173.172,19 .141 
1 600 DATA91 . 1 97 , 1 73,73, 197,141 .92 , p: 
1610 DATAI 69, 1,141 ,62, 197, 238.81,1 " 
1620 DATA73,19«, 104.166, 104,170, 184" 
1630 0ATA1 73,68,1 97, 14 1,83, 197 .141 ,85 
1 640 DATAI 97, 1 73 ,69, 1 97 , 141 .64,1 97,141 
1 650 D ATA66, 1 97 , 1 73,70, 197. 1 41 ,87 , 1 97 
1 660 DATA 1 73,71 , 1 97.1 41 , 89, 1 97,1 73.74 
1 670 DATAI 97, 1 41 ,93, 1 97 , 1 73,72,1 97.141 
1660 DATA39.197,141 ,91 ,197,173,73,197 
1630 DATA141 ,90,197,141 ,92,197,160,159 
1 700 DATy^2, 162,1 79,1 62 , 94, 1 60. 1 97,32 
1710 DATA212, 187,160,99,32,162,1 79,162 
1720 DATA99,160,197,32, 212,187,96 
1730 DATA79160:R£Wf'CHECKSUM^ 
1740 FORI =50536TO51 123 
1750 READX:POK£i,X:CC=CC+X 
1760 NEXT 

IJTOREADXIFXoDCTHENPRlWT^ERROREHSLMACOMTROL" :STt)P 
1760 PRINT -HEXA ll-ROT IHSEftTAOO CORRECTAMENTE" 



^!^|icB4^jyi^iRIABLE COMA PLOT 
jjT^r^^iS: V'VARIABLE COMA PLOT 
■iij^tFD : POSiC. LISREPA^. CERO 



;ITMETICA IWTERPRETE 
-SBA28 ; PAC^PACMEM 
FAC-MEM-PAC 
FAC-FAC+MEM 
FAC=MEM 
MEM-FAC 

y/ A=INT(PAC) M B HI/LO ORDER W 
FAC= .Y 



-SB850 
-SBS67 
-SBBA2 
=SBBD4 
-SB1AA 
-SB3A2 



.■^;TRAE VAR DE LA RUTIMA EN C^M 
SC3DE 

•SC3DD 




201 0 
2020 
2030 



PAC-Y(I)*SN 
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Lenguaje maquina/Sistemas ope rati vos 



mm 


IDA 


#<IVIEM1 








2050 


LDY 


#>MEM1 








2060 


JSR 


FSUB 




' FAC=MEM1-FAC 


2070 


LDX 


#<MEM1 








■2080 


LDV 


#>MEM1 








2090 


JSR 


MOVMf 




; MEMI-F1S 




2110 :+ + + + REALIZAMEM2=Y0rCS+X{irSN::-:;\ 




2130 


LDlA 


YILO 










2140 


LDY 


YIHI 










215D 


JSR 


MOVHW 




: FAC=Y(I) 




2ieo 


IDA 


CSLO 










2170 


LDY 


CSHI 








2iao 


JSR 


FiWIJLT 










2190 


LDX 




f 








22O0 


LDY 


#>MEM 


> 








2210 


JSR 


MOVFM 




: fi 






2220 


LDA 


XtLO, 










2230 


LOY 


XI Rl 


i 






/ 


2240 
2250 


JSfl 


MOVMF 










LOA 


SNLO 










2260 


LDY 


SMHI 










2270 


JSR 


FMULT 




; FAJC^X(I}^SN 


2280 


IDA 


#<MEM2 








2290 


LJDY 


#>IWEM2 








2300 


JSR 


FADD 




; FAC=M:EM2+FAC 


2310 


LDX 


#<MEM2 








2320 


LOY 


#>MEM2 








2330 


JSR 


MOVFM 




; MEM2=FAC 


2360 ;++++ REALlZAX(l)=MEMl:V(l) 


=MEM2 




2370 


LDA 


#<MEM1 








mo 


LDV 


#>MEM1 








2390 


JSR 


MOVFM 




; FAC-MEM1 


2400 


LDX 


XiLO 










2410 


LDV 


m\ ■ 










2420 


JSR 


MOVMF 




[3. 






2430 


LDA 


#<:MEMgi:. 








2440 


LDV 












2450 


J^: 






rFAC=MEW2 


2460 










2470 














24S0 




^TS«04lF 






I)-FAC 




2500 ;4-+:^ 




ri 

TEMRNP 








2520 













3240 



LDY #>MEM1 




;++++REAUZA^f^^^: 
IDA -It^'^' 
LDY 

lBA4<MEM2 



_j FAC=X{J)+159 



2530 ,:;:;:>i^:]]:::;:BEQ CONTIN 
2550.j.itiitii§^;il.i9ijf^EMENTA PJMTEROS TABLA 



LDY 
JSR 

JSR 
STY 

+ + + + REALiZA Y2%^ 99 -Z(J) 

LOA ZILO 

LDY ZIHI 

JSR MOVFM 

LOA #<MEM2 

JSR P&m 
JSR fJpiwt 

STY Y2 
PREPARAPARAUNESUB 
COMPARA DOS BYTES DE XI%=X2 V^-^ 
LDA MLO , V 
' >fM>^NlG; ' ^ 

CMP NHI 
BNE NOPE 
; COMPARA AH0RAY1=V2 
LDA Yl 
CMP Ya 
BNE NOPE 
laUOEUNESuaSISONlGUALES 
JMP ONWARD 

NOPE. 

--> . JSP LINSJ 
lINCREN^ENTTAPUrfTiPOSJ 
ONWARD . . 

LDA MNOEX- 
CMP JINDEX 
BEQ NEXTJ" 
mCREMENTAPUMTEROSJ 

LDA #$05 
CLC ■■• 

ADC XJLO 
STA XJLO 
eCC XJMGSifl- 
IfNC XJUflijii: 
XJNOHI !' 
;tNCREMENrA'ZJLG.ZJHl'. 

IDA ■ -sfSiio 

£U£ :, M ^ ■ 

IC ZJHf 




;TRAZALINEA 



;l IIMEFAPRUEBA 

-<1? 



2730 ; + + -H + BORRA/IN IC PANTALLA 
2750 CONTIN 
2760 LDA 
2770 STA 
2780 STA 
2790 STA 
2800 JSR 
2820 ;++ + -HTHAZA LINEAS DESDEE%tl.J) 
2640 : iWfCIALiZAVAREASLES 
2B60 JSR SETUP 

2870 LDA 
2880 STA 
2890 STA 
2900 LDA 
2910 ETA 
2920 LDA 
2930 STA 



2950 ; ALL;\.VAM0S- I N!C10 BUGLE UglO ANTE 

2970 NEXTIJ 

2980 LDY JINDEX 

2990 LDA (ZFTEMP) 

3000 BNE DOIT 

3010 JMP OWWARD 

3030 ;+ + + +REAUZAX1%=X(l)+159 

3040 ; MLO = XI % LO:MH I =X1 %H I 

3060 DOIT 



3070 


LDA 


XILO 


30S0 


LDY 


XIHI 


3090 


JSR 


MOVFM 


3100 


LDA 


#<JV»EM1 


3110 


LDY 


#>MEM1 


3120 


JSR 


FADD 


3130 


JSR 


FLPINT 


3140 


STY 


MLO 


3150 


STA 


MHE 


3170 ;++ + + REALIZA XS^y. =X(J)+ 159 


3180 ; 


NL0=X2% L0:NHI=X2% HI 


3300 


LOA 


XJLO 


3210 


LDY 


XJHJ 


3220 


JSR 


MOVFM 


3230 


LOA 


#<MEM1 




#S01 

iJNDEX 

JINDEX 

EBASLO 

ZPTEMP 

EBASHI 

ZPTtMP+1 



; FAC^X(J) 



4500 
4510 



STA 
LDA 




Sistemas operativos/Lengu^STnaquina 



4520 ADC #S00 

4530 STA ZPTEMP+1 

4550 -REIMCIALIZAXJLO/XJHI 
4570 LDA XBASLO 

4560 STA mo 

4580 LDA X&ASHI 

4600 STA XJHJ 

4620 ^REJNtCJALIZAZJLO^TJHI 
4G40 LDA ZBASLO 

46S0 STA ZJLO 

4660 LDA ZBASHI 

4670 STA ZJHI 

4690 ;fiEINICIAUZAJIWDEX 
4710 LDA #$01 

4720 STA JJNDEX 

4740 : mCREMENTA (INDEX 
4760 INC IINQEX 

4770 JMP NEXTIJ 

4790 :ELeUCLE6IGAI^T£ACABAAflUI 



;++ + + RESTAUflA L0SRE6ESTROS-H-++ 



4fi70 




1280 RESTORE 

1290 FOm=17T024:REMCJBOPEQUENOlZQ 




siguiente secci6n tpej^ Dordenadas de 
puntos equivalente ^rfna persp4^tiva cambiada 



rsi ic:^4) 



' ROTACION ESPAGIAftSOSRE EJE X * 
1T0NP 

1S|) Ya)=YfrC0S[;E/4J-Z(l)*l 
NEXT 

REM** ROTACION E 
F0RN1TONP 

Xt()=X(J)'C0S(ji/4}-V(l)'Sft(n/4J 
Y(l)BV(llTnyMilY(l)-'i|l(Tr 



yESPACyy DE 



La siguiente seccion d 
^conectar dentro de 




I SfTUP 



[LA 


XBASLO 


STA 


XILO 


STA 


XJLO 


LOA 


XBASHI 


STA 


XIHI .. 


STA 


XJhl::lii 


IDA: 




[:WNl 


m 
m 




' TEMPNP 




ZBASLO 




ZILO 


■STA 


ZJLO 




ZBASHJ 




^1 




snJt 










JSR 


1h|MF 


LDT^ 






SNGFT 


LDX 


#<MEM2 


LDY 


#>MEM2 


JSR 


MOVMF 


RTS 





FAC=159 



FAC=99 



2-99 If FTP 



1450 E%[1,2)-1;REM CONEXION DE 1 CON 2 
1460 E%(2,3)=1:E=P,4)=1:E%(4,1)-1 
1470 E%t5,e)-tLREMCLJADFtAO0BASE 
1480 E%t6J)=l:e'/.(7,S)-1:E%{8i)-1 
J4^ E%(5,1)-1:REMESQUINASDE ARRIBA ABAJO 
E*^f6,2)=1:E%t7,3)=1:E%^fl,4)-1 

5]n^M- 

520 RBt-CUBO PEQUEWO DERECHA 
530 F0R«[p16:R)RJ-9TO16 
540 E%{l,jJ5BeWI-8,J~8) 
550 NEXr:NEXT 
560 REM-LER 
570 F ORI 

E%(l-S 
NEXTNEXT 
eOO REM-SIMETRIZA 
510 F0fil-1TONP;FORJ=' 
520 IFE%(l,J)<>OTHe :%i 
530 NEXT NEXT 



FPT 



dib 
relteri 
hace 



n este punto el )mgraflna^g{ii$^l cddigo maquina 
que ejecute os cal^ife^^h^sesarios del giro y 
la nuevat ]urat:;l^ti^||jrViadase hace 
jTiente c ss^i^i^^n^nbr de un bucle que 
s tr^^ie^iiiiij^i3B0^ antes de terminar 



Programa de pruel 



^il^iiHffifSiAO^ ROTATOR 10 ' ^ 

' 1^ ""|j|jiiiiiiii"Tn I III = SI N(SA} 

16m^W8ffT790:REM INICIALIZACION 

FORA=0TO2'nSTEPSA 
T69fl SYS50536:REM ROTACION 
1 70(1 NEXTA: REM ANGULO SIGU I EMTE 
1710 GFTASilFAS- '-TKENinO 

1?aO REM ###:################################ 
1730 G0SJB1750:flEMflESTAURAPAMTALLA 
■.17^ END 

155&>:S£(«?,r.RESTAURA PANTALLA* ' 
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Juegos 



Mano a mano 



He aqui un interesante juego, conocido bajo la denomtnacion 
''Piedra, papel y tijeras". Esta version en basic ha sido escrita por 
Peter Shaw para el Oric 



Tradicionalmente este juego se practica con las 
manos. Los dos jugadores, con sus manos a la es- 
palda, deben niostrarlas simultaneamente imitando 
con ellas el objeto escogido. Deben elegir entre 
piedra, papel y tijems. Las tijeras cortan el papel, 
la piedra rompe las tijeras, el papel cubre la piedra. 
Una vez hecha la eleccion, pulse C para tijeras, R 
para piedra, P para papeL Gana el jugador que to- 
talice diez puntos. 



CAPS 



ROCHER-C I ER 
HUJIftlH 1 MO I 8 

J'AI DES CISEAUX 

UOUS AUEZ UN ROCHER 

ROCHER CASSE CISEAUK UOUS GAGHEZ 




TAPEZ UHE TOUCHE 



I 



10 REM PIEDRA. PAPEL, TIJERAS 

20 CLS** PETER SHAW** 

30 PAPER 0:INK3 

40 A=INT(RND(1)*3):PING 

50 PLOT 12,2/ PIEDRA-PAPEL-TIJERAS" 

55 PLOT6,4;'HUMANO ■■+STR${HS) 

56 PLOT 29, 4, "YO "4-STR$(0S) 

60 GET AS:ZAP:FOR P=0 TO 7:II^K P:WAIT4; 

NEXTP 
65 CIS 

70 [FAS- "R" THEN V=0 

80 EFA$= "P'^THENV=1 

90 tFA$= 'C"THENV=2 
1 00 PRI WT: PRI NT: PRl NT: PRiNLPRI NTiPmNT: 

PRINT 
110 PRINT"Y0 TENGO 
120 IF A=0 THEN PRINT" PIEDRA" 
t30 IF A=1 THEN PRINr PAPEL" 
140 IFA-^THENPRINT^TIJERAS'^ 
150 PRINT: PRI NT: PRINT 
160 PRINTTUTIENES "; 
170 JFV^OTHENPRINT'TIEDRA^' 
180 (FV-1 THEN PRINT' PAPEL" 
190 rFV-2THENPRlNT'TIJERAS^^ 
200 PRlNT:PRiNT:PRINT:3H00T 
210 IF V= A THEN PRINT" EM PATE" 



220 IFV=0 AND A=1 THEN PRINF PAPEL 
CUBRE PIEDRA. YO GAN0":0S=0S+1 

230 IFV=0ANDA=2THENPRINTTIEDRA ROMPE 
TIJERAS. TU 6ANAS":HS- 
HS+1 

240 IFV=1ANDA=0THENPRINrPAPEL 
CUBRE PIEDRA, TU GANAS":HS= 
HS+1 

250 IF V=1 AND A=2 THEN PRINrTIJERAS 
CORTAN PAPEL. TU GANAS":0S=0S+1 

260 IF V=2 AND A=0 THEN PRINT "PIEDRA ROMPE 
TIJERAS. YO GAN0":0S-0S+1 

270 IF V=2 AND A=1 THEN PRINrTtJERAS 
CORTAN PAPEL. TU GANAS '^HS-HS+I 

280 PLOT 13,23;TULSA UNA TECU" 

290 EXPLODE: WAIT 30 

295 IFHS=10 0ROS=10THEN310 

300 GOTO 30 

310 CLS 

320 IFHS^IOTHEN PING:PRENT^^BRAVO JU 
GANAS" 

330 IFOS=10THEN ZAP:PR1NT"Y0 GANG OTRA 
VEZ" 

340 PRINT:PRINT:PRfNT 
345 WAIT 20:EXPLODE 
350 END 



to 
0 



rm 




Inteligenciaartificial/Aplicaciones 



Scout 
y B-Star 

Continuando con nuestro 
estudio de la planificacion 
estrategica en Ai, 
examinaremos algunas 
estrategias alternativas para 
juegos de azar 



El procedimiento alfa-beta, que explicamos en el 
capitulo anterior, representa un gran avance sobre 
la minimaximizacion directa (puesto que identifica 
y suprime del arbol del juego ias ramificaciones re- 
dun dantes); durante muchos anos ha sido el punto 
central de los programas de ajedrez por ordenador 
mas eficaces. Pero recientementc se ban propucsto 
dos estrategias alternativas. Una es el algoritmo 
Scout, de Judea Pearl; la otra, el algoritmo B-Star 
(B*), de Hans Berliner. 

La esencia del mdtodo Scout consiste en dispo- 
mi de una funcion de evaluacion sumamente afina- 
da que se pueda utilizar para re ch azar, sin mas biis- 
queda, los movimientos poco plausibles. Solo es 
necesario exam in ar en profundidad los movimien- 
tos que parecen mas prometedores. 

El metodo B"^ escudrina los movimientos del 
mscl superior del ^rbol e intenta, lo mas rapida- 
:^iite posibie, cumplir uno de estos dos cometidos: 

• Demostrar que ei movimiento aparentemente 
^ en realidad el mejor disponible. 
De^05trar que ninguno de los movimientos al- 
mrtr^""" es mejor que otro, 
a csrasfia gemela se implementa mediante un 
ffipRDrafcrnentos denominados ProveBest (de- 
□ear KjOf i y RefuteBest (refutar mejor), que se 
Bam M a^nacion de los vaiores a cad a nudo 
X tma evaluacion optimista; otro, una 
H objetrvo es obligar al algoritmo de 
a cooGentrarse en areas del arbol del 
ea doode hay incertidumbre y donde esta 
L de cerleza podria incidir en la decision final, 
Sara eqinvocado suponer que la busqueda arbo- 
mss^ es el ikiico enfoque a los juegos por orde- 
■ioc Existea algunos juegos interesantes en los 
K MSotfKa de busqueda parece no dar buenos 
mtemente de los ingeniosos 
para perfilar el proceso. 
muciios de los juegos de 
p^iknilar el bridge y el 
pctef) v ^amm JKOB de tabkfD (como el go y 

Estos jaeoos se peedea ooo diversos ni- 

wksdedeneza^ysedfecBorecidaoieate que son 
Ids obs solicesaEefiies exponeolgs de jnegc^ inieli- 
flexes. PieiD todos los int^tos por pfo^mnarlos de 
acaenio al esqiiema de la busqueda arborescent e 
tiopezado con obstaculos inesperados, Una 




BGsqueda vana 

Aunque los ordenadores pueden 
jugar inleligentemente a algunos 
juegos empleando m^lodos de 
busqueda para anticiparse a un 
cierto numero de movimientos, 
hay muchos juegos en los que 
las estrategias de busqueda no 
son eficaces; ellosedebe a que 
el juego posee un elemento de 



azar, como el Backgammon, o 
blen a que el drbol del juego se 
bifurca r^pidannente eo 
sucesivos movimientos para 
producir una ingente cantidad de 
pos]bl€S permutaciones de 
movimientos. Para crear 
programas que puedan jugar a 
esta clase de juegos, se deben 
procurar m^todos alternativos 
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^1 Aplicaciones/lnteligencia artificial 



Tefminologia tie la busqueda arborescente 



Arbol de juego 



Nivei 

AtrticipaDmn 
Valor de un nudo 



liiinxlinizacidn 

Algoritmo "alfa-beta" 
Fact or de biturcaciAit 



Estructura arborescente que se forma 
considerando los movimientos posibles, seguicJos 
por las posibles replicas del adversario, etc. 
Un nivel del arbof dejuego, 
Proceso de construccion de un ^rbol de juego. 
El valor asignado a un nudo del arbol de juego 
medlante el examen de los valores por debajo de 
61, trabajando desde abajo. 
Efeccidn del valor que sustentaM el arbol mediante 
la minimizaGfon en fos niveles impares (mueve el 
otro) y fa maximizacidn en [os pares (mueve uno). 
Refmamiento de la minimaximizacion queelimina 
las porciones cfef ^rbol de juego que se estima no 
pueden tener incidencia en el nivel superior, 
Cantidad media de bifurcaciones o movimientos en 
cada nivel del arbol de juego. Ei go, juego oriental, 
posee un factor de bifurcacidn de mas de 200. 



razon es que el factor de bifurcacion es demasiado 
amplio, generando una cantidad tan enorme de po- 
sibles combinaciones de movimientos que el orde- 
nador no puede manipularlas todas al mismo 
tiempo. 

Una respuesta mas profunda es que los algorit- 
mos de busqueda arborescente son una burda apro 



juego es "probabilistico": el papel de los dados in- 
troduce bifurcaciones que estan bajo el cx)ntrol de 
cualquiera de los jugadores, lo que dificulta la im- 
plement adon de muchos de los procedimientos de 
anticipaci6n esbozados previamente. 

En lo que el programa de Berliner es muy bueno 
(mucho mejor que nosotros) es en calcufar las pro- 
babiiidades de que se produzcan durante el juego 
diversas combinaciones de dados y fichas. Posee, 
asimismo, una funci6n de evaiuacion muy sofistica- 
da. De hecho, en realidad emplea varias funciones 
para diferentes fases del juego y varia constante- 
mente entre ellas a medida que el juego va progre- 
sando. 

El go es un juego oriental, que se juega despla- 
zando piezas sobre una cuaddcula de 18 por 18, con 
el objeto de rodear areas de la cuadricula para 
ganar tenitorio, y de rodear las piezas del oponente 
para eliminarlas del juego. Carece de un elemento 
de azar, pero el factor de bifurcaci6n es tan inmen- 
&o que las tecnicas basadas en busqueda resultan 
infructuosas. 

Los mejores programas de go perciben el tablero 
en terminos de unidades mayores que meras piezas 
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ximaci6n a la forma en que el jugador humano 
aborda el problema: los expertos buscan solo men- 
talmente en sus propios arboles de juego, construi- 
dos internamente en circunstancias especiales, e in- 
cluso asi sin demasiada eficacia. 

Hans Berliner, quien ide6 el metodo B'^, desa- 
rroll6 un programa de backgammon que en 1980, 
en una partida de desafio, vencio al campecSn del 
mundo. Pero el programa no efcclua nmguna bus- 
queda en absoluto, al menos en el sentido conven- 
cional. Si usted piensa en c^mo se juega una parti- 
da de backgammon, comprender^ que su arbol de 



individuaies {tales come cadenas y ejercitos) que 
son agrupamientos significativos para el ojo huma- 
no; una de las razones por las cuales la programa- 
ci6n del go est a m^s atrasada que la del ajedrez 
puede que sea que nuestra comprension de la per- 
cepci6n humana es inadecuada, Ouiza los japone- 
ses, que veneran el juego, consideren ai go como 
un proyecto adecuado para sus maqainas paralelas 
de la quinta gencraci6n. Ciertamente, un programa 
que juegue al go con exito desarrollara cl concepto 
de inteligencia artificial hasta sus limitcs, 

Ya existcn programas de go para los actuales or- 
denadores personates, y prdximamente considera- 
remos los problemas que entrana la programacion 
del juego. Estos programas, sin embargo, no tienen 
posibilidades de derrotar a los maestros del juego. 




Para ilustrar los importantes conceptos de la bds- 
queda arboresoente, ideamos un juego artificial 
que era casi una busqueda pura. Este juego lo pre- 
sentamos en el capitulo anterior en versi6n de basic 
BBC, haciendo un uso intensive de las funciones 
recursivas con parametros. 

El juego pemiite que el jugador y el ordenador 
se tumen para seleccionar una de cuatro funciones 
que modifican un valor existente para producir uno 
nuevo. El jugador intenta reducir el valor a —255, 
mientras que la m^uina intenta hacer que exceda 
de 255. En cada etapa el ordenador utiliza la mini- 
maximizaci6n alfa-beta para seleccionar cual de las 
cuatro funciones definidas es mejor para sus fines. 

Teniendo presentes a los usuarios del Commodo- 
re 64 y el Spectrum, cuyos basic carecen de para- 
metros y variables locales, repetimos el programa 
en una versidn que s61o utiliza GOSUBs. Los para- 



metros y las variables locales (a excepcion de D, el 
contador de profundidad) se ban sustituido por ma- 
trices, DIMensionadas en la linea 1100. Ahora D ac- 
tuara como una especie de puntero de pila, Uevan- 
do el registro de los elementos de las matrices a los 
que se este accediendo en cada memento. 

Estas dos rulinas se diferencian fundamental- 
mente en que todo ha de ir subindexado por D, en 
particular la matriz A(), utilizada para retener el 
mejor valor hallado hasta abora, y B(), empleada 
para retener el peer. EOo asegura que los valores 
utilizados de alfa y beta se aplicaran a los niveles 
correctos del arbol. 




El juego de los numeros 

S SO3llB10O0:REM INLCIALIZACION 
m 6OSUBl6O0:REMIMSTRUCCtQNES 
m : 

t« RBJ — BUCif PRINCIPAL DEL PROOfWMA ' 
IM ^)3U&2000^HEM PRERARAR HUEVO JUEGO 
-m WPUTOLJIEWJOEGAPRlMEfiO (1=Tll,2=Y0)-:Hl 
ffH1<tORHt>2THEM130 

-m f HI =f THEN GOSUB 3000 

iai ■ ■ TURKO 0£ \A PERSONA ' * 
m SOSUB350O;REM^lSUALIZACI0NDELTABLER0 
-31 ei=l:FlEM StEMPRE 1 TRAS EL 1CR CtaO 

m. ^j^^am rem comprobiar gamador 

2^ FS»OT>IE«eaSUS5000 

3 SI "-PJRNO DEL ORDENADOR" 

21 ^:REM ViSUALJZAfi E&TADO OEL JUEGO 

36 Sa£ i3O0: REM COMPROBARSI J=<»AL DEL JUEGO 

S = = = M< =33 "mEN 1 50: REM BUGLE ATBAS 

31 ^= ^jt -EM FELICITACIONES 
S W^Tl^ PAfiTlOA (1 =SI , 2 - NO)" :Y 

m ' ~ntm Rm NUEVA PAftTIDA 

3« H -H -WSTA OTRA TT GRACJ AS POR JUGAR " 



m JF J :D1}>HI T>HEHA(D)=V(D}:0=D-1;RETIRN 

^ 5ai 3 IC r^^DlZAH MAS " 



I M-ATftWSDClAReOL" 

I PeM»!D|4-1if-P(II)rV=VtO):GOSUB 550O;REM REALHW MOVIMIEMTO 
\ f i^iTWBlPflI»fTCHRS[M+HK"='': 
I St=£Kl 

t ABt}^«^:S^)~ S(D)LV(D1)=VjaQSLlB TOO: REM LLAMAfl MINIMIZAR 



600 IF B(D + 1 ) > AiO) THEN A(D)^B(D + lliK(0] =P(D) 
&10 IFD-lTHENPfllNTS(D + l):'; 
m IFP(C)< = 3 AMDA(D]<B(D)"mEN 550 

630 IF 0=1 THEN BV=A(D)lHH^K(D):REU GUARDARMEIOR HASTA AHORA 
m 0=0-1^ReTlJRM 
650 ; 

700 REM MINIM IZAR 
710 D=D+1:C2 = C2i-l 

720 IF 0>-MD OR ABS (V{D})>HI THEN B{D)=VtD):D=D-1:ReTLIRN 
730 {P(0)=0 

7'JO REM "A TRAVES DEL AfieOL " - 

750 P(D}= P(D) + 1 :H = P[D):V= V(OJ:G0SUB S5M; REM EFECTUAR MOVlMIErTTO 

760 D1-D h lLA(D1)=A(D}:fl{D1)=E£D):V(01)=V 

770 ti0SUe5O0:REM LLAMARMAXIUI-ZAR 

780 IF A{0+ 1 )<m) THEN B^D) = A(04 1 ) 

790 IFP{D)<=3ANDB(D)>A(D)1HEN740 

BOO D = D-1lRETURN 

B10 : 

1000 REM*" - INICIALIZAR**" 
1&10 BL5 - " 

1020 REM * - OEFIjjIGION DE LAS CUATRO FUNCI(HIES " 

1030 DEf FNA(X)=£-X-7 

10^0 DEFFNB(X}=M[X/2)+1 

1050 DEf FNC{X]=J|'X417 

1M0 DEf FNDpt) = 3*X-4 

1070 LO- -255:HU255 

10#0 REM ■ ' MATRtCES QUE UTILIZA MfNIMAX * - 
10^ 0=16 

1 1 00 D IM V(D}.A(D) .a{D),P(0) .K(D) 
niO RETURN 
1120 : 

16O0 REM""'1N3TBUCCI0NES-* 
161 0 PRIWT" BIENVEN lOO AL JUEGO OE LOS NUMEROS" 
1620 PRINT-YO INTENTARE MAXIMIZAR, TU TAREA" 
1630 PRINT-ES MINIM IZAR- 

1640 PRINT" PARA VER EL EfECTO DE UN MOVIMSENTO PULSA'" 
1650 PRINT' A. B. C 0 D. PULSA X PARA EFECTUAfllO." 
1660 PRINTiRETUHH 
1670 : 

3000 REM**"PREPARACJO«"" 

3010 M=0:V=im(RND(iri&)-S:REMESTADOIN|CIAL 

3020 £0=0 

2030 PRI NT- ESTADO IN ICIAL = " ;V 
2040 RETURN 
£050 : 

3000 REM'" - MOVIMIENTODE LA PERSONA"" 
3010 M=M4i:PRmT 



3020 PRINT-TUMOVIMJEMTOES"; 
3030 INPUT H£ 
3040 kFHE="A"THENPRINTfNA(yt:H=1 
3050 IFHE="B-THENPfllNTFNB(V}-H^2 
30eO HS- - 0" THEN PRI Ni f NC(V): H = 3 
3070 r Hl= " D" THt H PR WT FNO(Vt:H =4 

3050 IF H^^^-X" THEM 3O20-REM AUN NO SELECCIOMADOEL MOVIMIEMTO 
3090 GOSUB 550O: REM EFECTU AR EL MDVI Ml ENTO 
3100 RETURN 
3110 : 

3500 REM ""VISUALIZACIOMTABLERO"" 

3510 PRINTiPfllNT-' M0VIMIENTD';Mr-5> " ; 

3520 IFM<17tjCNReURN 

3530 PRINT CHRSt64+M); 

3540 PRINT" = ";V:FRINT:RETURN 

3550 : 

4000 REM "■ * PRUEBA GAWAOQR " " 
4010 EFM<1THeNfleURM 
402O EG=0 

403O IFV<L0THEMEG = -1 
4040 IFV>HITHENEG^1 
40SO RETURW 
4060 : 

50QO REM " " MDVIMIENTO DEL ORDEKAODR " " 
5010 W=V:REM GUAROAR ESTADO ACTUAL 
5020 M=M+1 

5030 MD-6:REM MAX PROFUNDIDAD 

5040 IF M<4 THEN MR- 4 

505O IFU>3TIH£NMD^S 

5060 GOSUB520O;KEM^H 

5070 V=W REM RESTAUftAft ESTADO 

5090 GO5UB550O:R£MEFECTUARMOV1MIENTO 

5090 RETURN 

5100 : 

5200 REM ■ ■ " SELECCION MflVIMIEHTO ' " " 

5210 &V=LO;0=0 

5220 V(1}=V:A(1)=L0l&(1) = HI 

5230 GOSUB500:REM MAXIM IZAR 

5240 H = HH 

5250 PRiNTilHPUT" PULSA RETURN PARA CONTINUAR-^Q 
5260 RETURN 
5270 ; 

5500 REM EFECTUAR UN MOVIMIEWTO " " 

551 0 IF H= 1 THEN V =FNA[V):RETUHN 

5520 IFH=2THENV=FWB{V):RETURN 

5530 IFH=3TH£NV=FMC{V):RETURN 

5540 IF H =4 THEN V= FHD(V): RETURN 

5550 ; 

5000 REM "'■^FfUClTACl ONES 
5010 PHrNT;PRSNT'JUEGO TERHINADO" 
6020 IF EG>0 THEN PRI HT" HE GANADO YO' 
6030 IF EG<0 THEN PRIMT" HAS GA«ADO TU" 
5040 If EG-OTHENPRim-HASJQOEMPATE" 
5050 RETURN 
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Software/CP/i 




Instrucciones 
transitorias 



El CP/M cuenta con una gama 
de instrucciones que se cargan 
desde disco 



Las instrucciones "transitorias" permiten que el usua- 
rio se comunique con fas unidades de disco, adminis- 
tre archivos y controls otros dispositivos perit6ricos, 
Tras e! encendido, el ordenatJor ejecutard una serie de 
comprobaciones para asegurarse de que esten presen- 
tes todos los componentes del sistema y que ^stos 
sean correctos. Asimismo, el procesadorabrira cana- 
les a todos los perifdricos que est^n conectados. Et 
ordenador enviar^ cddigos a los diversos perifericos, 
en parte para comprobar que esten funcionando y, en 
parte, para prepararlos para recibir datos. Todo este 
proceso se conoce como miciaUzamn. 

Al iniciafizar algunas interlaces de perrf^ricos, el or- 
denador espera que el periferico le devuelva un nnen- 
saje antes de proseguir con cualquier otra accion, tal 
como activar la ROM de basic. Un ejemplo de esto se 
puede apreciar cuando se instala un cartucho de jue- 
gos que, en efecto, se hace cargo del sistema operati- 
ve M ordenador y efecti}a toda las entradas y salidas 
con el propio procesador, sin remitirse a la ROM de 
BASIC. De modo similar, cuando un ordenador compa- 
tible con CP/M abre un canal para su unidad de disco, 
espera a que la unidad le devuelva un mensaje. 

El resultado de la inicializacion def ordenador sobre 
la unidad de disco es que se obliga al cabezal de lectu- 



Extensidn 


Eiplicacion 


EjempiD 


ASM 


Se reqjiere para arch, fuerte de leng, maq. 


CODEPRQ&.ASM 


BAK 


Copia de un arch, de texto creado mediaite el editor 


MEMO.BAK 


BAS 


lidica un arcfiivo fueite en basic 


PRDG.BftS 


COM 


Extension necesaria para un arch, trans, o de instrjcciones 


PIP.COM 


HEX 


Asignado a un arch, hexadecimal a nivel maq. 


GRAPHIC.HEX 


INT 


Otorgado a un programa en basic compilado 


GAMES.INT 


PRN 


Necesaria para producir listados de progs, en leng. assembly 


GODEPROfi.PRH 


SUB 


Arch, utilizado para ejecutar instrs. en lotes (batch) 


SPO0LER.SUB 


SSS 


Archive temporal creado mediante el editor 


PflONE.$$$ 



ra/escrltura del disposltivo a leer la primera pista del 
disco de sistema CP/M- Si no hay ningun disco presen- 
te, la unidad continuar^ glrando hasta que se inserte 
un disco. La pista cero contiene el programa cargador 
bisico (boodstrap loader), que proporciona al ordena- 
dor las instrucciones necesarias para la carga en me- 
moria del resto del programa CP/M, Si en la Dista cero 
no hay ningun programa cargador, el ordenador gene- 
rara un error DOS- 

Despues de que se haya terminado de cargar el 
CP'M en el ordenador, aparecerS en la pantafia un cur- 
sor intermltente junto a un simbolo A> (aunque algu- 
nas maquinas utilizan 0A>). Se dice que este es un 
3¥!so e indica que el sistema esta listo para recibir una 



instruccion. Tambi^n informa de cu^l es la unidad de 
disco CP/M que esta en ese memento en uso y en fa 
que espera leer y escribir informaci6n. Se dice que la 
unidad a fa cual est^ accedlendo el CP/M en el momen- 
to es la unidad actualmente conectada (logged). En 
este caso, dado que apenas acabamos de cargar 
CP/M, tocfavia estamos en la unidad A, 

Esto estS muy bien si solo poseemos una unidad de 
disco 0 bien si deseamos usar una sofa. No obstante, 
si contamos con dos unidades de disco y queremos 
utifizar ambas, hemos de indicar al CP/M que busque 
la unidad B. Esfo se consigue medrante la mstrucci6n B 
y pulsando RETURN, El CP/M comprobar^ entonces 
que este presente la unidad 8 y si en la misma bay en 
este momento un disco- De ser asf, aparecera en la 
pantalla el aviso 8>, indicando que estamos ahora en 
la unidad B. Pero no estamos limitados a dos unida- 
des. El CP/M puede acceder basta a cuatro, aludiendo- 
se a las otras como C y D, respectivamente. 

Si bien no es muy usual que una misma miiquina 
tenga instaladas cuatro unidades de disco separadas, 
muchos ordenadores, como el 380Z y el 480Z de Re- 
search Machines, poseen unidades de doble cara. En 
tales cases, lo normal es llamar A y B a las caras supe- 
riores tie las unidades y C y D a las inferiores. 

Tras conectar con el CP/M, lo normal es averiguar 
que archivos estan disponlbles. Para hacer esto^ defcie- 
mos examinar el cfi recto rio del disco entrando la ins- 
truccion DIR 0 dir {el CP/M no diferencia entre mayus- 
culas 0 mlnusculas). Ello hara que se visualice una 
lista de archivos, incluyendo todas las instrucciones 
que se pueden cargar y ejecutar desde CP/M. 

Quiza parezca que tener que cargar y ejecutar un 
"archive de instrucciones" con el mero fin dc, por 
ejemplo, obtener informacion de estado sobre un ar- 
chive retenido en disco, es un proceso innecesaria- 
mente largo. iPor qu6 no podrfan las instrucciones 
cargarse en RAM tras el encendido, y ejecutarse direc- 
tamente cuando ello fuera necesario? La razdn princi- 
pal de este metedo, aparte de la obvia de ahorrar espa- 
cie de memoria, es facilitar la compatibilidad entre sis- 
temas diferentes. 

Como puede imaginar, el CP/M contiene Instruccio- 
nes que nos permiten manipular archivos retenidos en 
disco. Si bien las aplicaciones CP/M han de ser estan- 
dares cen el objeto de que sean portables de una ma- 
quina a otra, en el transcurso de los afios muchos fa- 
bricantes han adaptado el sistema de acuerdo a las ne- 
cesidades de sus propios ordenadores. Por ejemplo, 
en CP/M no hay ninguna instruccion de formateo de 
disco estcindar, de modo que cada fabricante le ahade 
a la lista de instrucciones transitorias del CP/M esta 
luncidn en particular, por to que muchos sistemas tra- 
bajan de forma diferente, 

Como vimos en el capitulo anterior, ei nombre de un 
archive CP/M se compone de un nembre pri marie, un 
punto y una extension. Esta ultima afecta a la forma en 
que se carga el archive en el ordenador. En los discos 
de sistema CP/M hay un clerto numero de archives de 
instrucciones que contienen las instrucciones transito- 




oftware 




Hiigl CP'M, llevanda todas ellas la extensi6n .COM. 

^nifica que cuando se carguen en el ordenador 
3c ^utaran automaticamente. 

^ cAjeto de cargar un archive de instmcciones, usted 
srpemente digita el nombre pnmario, pulsa RETURN y se 
^psdBsi el programa de instrucciones. Otros arctiivos con 
ibentes extensiones se cargan tambi^n de fofma diferen- 

e rremos viendolos con posterioridad. 

Anterior mente hemos examinado et uso de la inslruc- 
don DIRectorio. En CP/M hay una instruccion transitoria 
asociada llamada STAT, que proporciona informacidn 
adfcional sobre el disco y los archivos en el retenidos. Al 
qecLrtarse, STAT visualizara la cantidad de memoria libre 
dfeponible para nuevos arcbivos. La instruccion visuali- 
zara, aslmismo, cierta informacibn relativa al disco, 
como cuanta memoria queda todavia disponible para 
ciros archivos y qu^ dase de facilidades de lectura/escri- 
luiH se permiten. Por ejempio, el mensaje R/W significa 
que se puede leer el disco y escribir en 61, mientras que 
R/0 significa que el disco solo se puede leer o, mejor 
didio, que esta prategido contra fa escritura, 

Adem^s, la instrucci6n STAT tambien puede "bio- 
qtiear" un disco de modo que s6lo pueda ser fefdo. Esto 
se consigue digitando STAT D:=R/0, donde D alude al 
caracter DRIVE. Todo Intento ulterior de escribir en este 
disco concreto provocar^ un mensaje BOOS, La instruc- 
don tambien visualizara las extensiones de nombre de 
archivo y la cantidad de sectores de archive Ibgicos utili- 
zados por cada registro, y mediante el empleo de STAT 
es posible examinar el tamano de archivos individuales 
simplemente digitando STAT seguido del nombre del ar- 
dtivo. Asimismo, STAT se puede usar para examinar y, 
s asi se requiere, modificar el estado de los perifericos 
qnB esten instalados. A modo de ejempio, la instruccion 
STAT DEV visualizara una lista de todos los dispositivos 
de entrada/salida (incluyendo la pantalla) que est^n co- 
nectados, 

Una de las caracterfstfcas mas imporlantes de un sis- 
fema operative de disco es la capacidad de transferir ar- 
OTvos de on disco a otro- En CP/M, esta operacidn la 
leva a cabo PIP (Penphemf Interchange Program: pro- 
^ama de intercambio de perifericos). Esta instruccidn 
X hace otra cosa que coptar de disco a disco; asimis- 
"c oermite la salida de archivos por impresora o por 
dispositivos de entrada/salida. 
coder utilizar PIP se debe cargar y ejecutar la 
■ " jn digitando PIP y pulsando RETURN. Observe 
-z el aviso pasa a ser un asterisco, indicando que 
: i:utando PIP y que se esta esperando la ins- 
. : i : jiente. El formato para la utilizacibn de PIP 
: lOPYNAME = D:SOURCENAME. A modo de 
^T-: : vamos a suponer que tenemos un archivo de 
- "nCTXT en un disco y queremos copiarlo en un 

- :: : SCO bajo el nombre WORK.TXT. Debemos 

- 7 : : :: de sistema de la unldad y colocar el disco 

^CACTXT en la unidad A, y colocar e! 
_ : ^" a unidad B. De modo que para coptar 
- - :id A a ia unidad B, el formato es: 

1 se utiliza PIP la unidad objeto se 
^ " -cci6n, antes de la unidad 
i i : ^ y que cuando se alude a 

:--s debe incluirseel nom- 
: : "Sidn. Tras haber Gom- 
t : . _T:econstatarsi elarchi- 
_. . z,^~t :t ixaminandoeldirectorio 



sob unidad de disco tambr^n 
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seran, por supuesto, ambas A. El CP/M copiara sectores 
del archivo en la memoria y le informara cuando se 
deben cambiar los discos de modo que se puedan volcar 
los sectores desde la memoria al disco de destino. 

En caso de que desearamos enviar HCAC.TXI 
a la impresora, utilizar lamos una forma similar de 
PIP. En este caso, impartimos la instrucci6n: PIP 
LPT:=B:HCAC.T)CT. Hay varios puntos a destacar en 
esta instruccion, el primero de los cuales es el hecho de 
que PIP no se cargara separadamente del resto de la 
instruccion. Esto es posible en CP/M puesto que usted 
no tiene necesariamente que esperar a que PIP se cargue 
antes de que pueda ocurrir alffuna otra cosa. 

En segundo lugar, el dispositivo de destino no es un 
canal de unidad sino una impresora, que es la razdn por 
la cuai utilizamos la instruccidn LPT (Line PrinTer}. En 
esta instruccion, hemos incluido asimismo la letra de 
unidad que Indica donde haflar el archivo HCACTXT. Si 
la unidad B estuviera conectada en ese momento, esta 
inclusldn no ser fa necesaria. En realidad, bajo algunas 
versiones de CP/M no es necesaria ni aunque estemos 
en ta unidad A. Esto se debe a que el CP/M buscar^ en 
todas las unidades de disco disponibles antes de generar 
un error de "archivo no hallado", 

Al transferir un archivo de un disco a otro tambien 
cambiamos el nombre del archivo. Esta no es una exi- 
gencia de PIP, dado que un archivo se puede copiar 
y conservar el mismo nombre. Sin embargo, suponga- 
mos que desearamos cambiar el nombre de un archi- 
vo en un disco sin tener que copiario. En este caso, 
utifizariamos la instruccion REN (de rename), de modo 
que si desearamos cambiar el nombre de WORK JXT 
por HCACTXT, empleariamos la insiruccidn REN 
HCAC.TXT=WORKTXT, recordando que siempre se 
coloca primero el nombre objeto, Ello crear^ un nuevo 
nombre de archivo en el directorio y borrar^ el ante- 
rior. 

Def mismo modo, cuando deseamos borrar un archi- 
vo de un disco, digitamos ERA seguido por el nombre 
del archivo, Como con todas las instrucctones destructi- 
vas de esta clase, ^sta debe ser usada con sumo cuida- 
do. El CP/M debe saber a qu6 disco se esta refiriendo 
usted, de !o contrario quiza acabe borrando una versidn 
equivocada del archivo. De modo que, aunque no es 
necesario, es un buen hSbito incluir siempre el nombre 
de la unidad de la instruccion; por ejempio, ERA 
B:HCAC.TXT. 
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Trazado de memoria 



Finalizada la construccion del trazador digital, nos 
concentraremos en su callbrado y en el desarrollo del software 
para controlarlo 



El primer paso para desarrolbr software para el 
trazador consiste en caMbrar el hardware. La ejecu- 
ci6n del programa Calibrado que ofrecemos aqui 
nos proporciona coatro valores digitales de poten- 
d6metro que correspooden a cuatro posiciones crf- 
ticas del brazo: posici6n cero del brazo 1, posici6n 
cero del brazo 2, posicibn en 90*^ del brazo 1 y posi- 
d6n en 90'' del brazo 2. Estos valores deben entrar- 
se en el programa del trazador digital en las lineas 
1200, 1210, 1240 y 1250, como parte del procedi- 
miento detinir— parametros. Los otros dos par^me- 
tros que pueden variar de un trazador a otro son las 
longitudes de los brazos, y estas deben entrarse en 
el programa eo las lineas 1220 y 1260. Observe que 
las longitudes de los brazos deben estar expresadas 
en milfmetros y que el brazo 2 incluye ia distancia 



desde el extremo del brazo hasta el cruce de los 
ejes. 

Habiendo obtenido estos valores de calibrado, 
podemos utilizarlos para convertir en ^ngulos las 
lecturas digitales propordonadas por los potencid- 
metros (a traves del convertidor de analogico a di- 
gital del propio BBC Micro). Esta informacion an- 
gular se puede convertir en desplazamientos tiori- 
zontales y verticales de la mira desde el punto de 
montaje del brazo. En general, un ^gulo se puede 
calcular aplicando la siguiente f6rmula: 

angulo={ADVAL(n)-brazocero)*90/(brazonoventa- 
brazocero) 

Puesto que la segunda parte de esta expresi6n es 
una constante, es mejor calcular el valor al comien- 



Calibrado 



Coloque el tablero del trazador hacia arriba de 
modo que la caja pl^stica quede en el rincdn 
superior izquierdo. Para poder calibrar con total 
^xito el trazador necesitamos 4 informaciones: la 
posicibn en 0^ del brazo 1 , la posicidn en 90° del 
brazo 1 , la posicibn en 0° del brazo 2 y la postcibn 
en 90° del brazo 2. Mlentras se ejecuta el programa 
de calibrado, desplace el brazo del trazador de 
modo que el brazo 1 quede paralelo respecto al 
margen superior del tablero y el brazo 2, 
perpendicular. Apunte en un papal los valores 
digitales del brazo 1 y el brazo 2. Mueva el 
ensamblado del brazo de modo que ahora los 
brazos 1 y 2 esten en linea y paralelos al borde 
Izquierdo del tablero. Vuelva a anotar las lecturas 

PosjcEones de caJibrado 



ot 



I 



brazo 1 -cero 



brazo 1 -no venta 



brazo 2-novent3 



6 



6 



brazo 2-oero 



6 



para los brazos 1 y 2. Pulse una tecia del teclado 
para pasar a la modal idad de angulo. Entre las 4 
lecturas que ha apuntado en respuesta a las 
preguntas y despu^s compruebe que los angulos 
visualizados para am bos brazos sean cor rectos. De 
no ser asf, replta este proceso hasta que lo sean. 
Conserve la nota donde apunto los 4 valores 
digitales del brazo, porque seran necesahos 
posteriormente. 

10OO REM""' CALIBRADO THAZAD OR esc 
1010 PROOcal^brar 
1020 PROCvtstialijar—aEigulo 
1D30 END 

104O DEF PROCcaNbrar 
1050 CLS 

1 060 PR I NT TA8{5 , 1 0}; ANGU LO 1 " ;TABf20) ; ^' ANGL LO 2 '* 
1070 REPEAT 

1080 PRINT TAfi(5,12};S PC [^0} 
1 090 PR I NT TAe{5 , 1 2); ADVAL(1 ) ;TAB{20) ;ADVAL[2J 
1100 PROCcfemofa(600] 
1110 AS=lNKEV$[t) 
1120 UMTILASo'"- 
1130 ENDPROG 

1150 DEFPROCvfsualfzar— angulo 
1160 PROCdefinir—angulGS 
1170 CLS 

1 1 80 PR I NT TAB{5 ,10); AN6U L0 1 " ;TAB{20) r ANSU LO 2 " 
119€ REPEAT 
1200 PROCcalc—angulos 
1210 PRINTTAe|5.12);SPCf^0} 
1 220 PR I NT TAe(5, 1 Z)\m Lf lo 1 ;TAB(20);aFigiJiG2 
1230 PROC[femora(1000} 
1240 AS=JNKEV$[1} 
1250 UMTILAS-;>"^ 
1260 ENDPmC 

1280 DEF PROCd&fimr__aigiJlos 
1290 CLS 

130O PRlNTTA8{5,10)-;INPUT"Poslelctricero1er. brazo ";yno_c«ro 
1310 PRINT TAB j5) " IN PUT'^ Posl cion novenia 1 e r, b raio " ; urio^noventa 
1 320 PR I NT TAB (5) i: I N P DT" Posl zm ce ro 2do . braio" ;do £_certf 
1330 PRINT TAB js);- IN PUT" Posl C!onnov&nta2do. bra2o":do£_no venta 
1 340 uno—^acior = 90/((j n o_no-venila - u no_jcera) 
1 350 iios^!'actor=90/[dos^nQveota- dos^era) 
1360 ENDPROC 
1380 OEFPROCiialc-JDgulQS 
1390 angulDl --INTf(ADVAL[1)-ujio_CEra)*ijno_iactor) 
1 400 ang ul 02 I NT( (ADVAL(2) ■- dos_ce ro) ' dos_f acto r) 
1 420 DEF PROCcte mo rs(dem o ra) 
1430 LOCAL I 

1440 FORNlTOdemora:NE)fTI 
1450 ENDPROC 
1460 PROCd&moradOOO} 
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Geometria del brazo 




Los despiazamientos hor^zontales y 
verticales de la mira def trazador &e 
pueden calcufara parlir de los ^ngulos 
proporcionacfos por fas Jecturas de Jos (fos 
potencidmetros, utflfzando c-^lculos 
geom^tricos simpfes basados en fos dos 
tri^ngyJos rect^nguJos que podemos 
aprecfar., Las longitudes de x1 e yl 
corresponden a la longitud del brazo 1 
multjplFcadas porCOS(angulo 1) y 
SJ:N(angufo 1), respectivamente. Dado que 
ei MguJo proporcionado por ef segundo 
potencidmetro est^ en relac!6n a la 
posicidn del brazo 1 , las iongitudes de x2 
ey2 son un poco m^s diffciles de calcuJar. 
E] ^ngulo requerfdo en el segundo 
Mangulo no es ei ^ngulo 2, sino ^nguJo 

1 -H^ngulo 2, emple^ndose las funciones 
COS y SEN junto con Ja longitud del brazo 

2 para caicufar los desplazamientos 
borizontalesyverticales. El 
desplazamiento global de la mira desde ei 
pfvote m brazo se puede halfar medEante 
lasumadexl yx2;ydey1 ey2 



zo del programa y utilizado en todos los posteriores 
c^lculos de ^ngulo. Si calculamos: 

facto r-^90"/(brazonoventa-brazoGero) 

podemos volver a expresar la fbrmula como; 

angulo=(ADVAL{n)-brazocero)*factor 

El procedimiento calc xy cakula los angulos ac- 

tuales tornados por los dos poteociometros y los oti- 
liza para calcular los desplazamientos X e y de la 
mira. La geometria involucrada es bastaote directa. 
Con lespeao al diagrama de geometna del brazo, 
Xl e yl se reladonan con ia longitud del brazo 1 
mediante las fuDciooes SIN y COS: 

x1 =C0S(angylo1 J*longitud_brazo1 
y1 =SIN(angulo1)'tongftiid_J}razo1 

El cdlculo de x2 e y2 es nn poco mas complkado, 
dado que angulo2 esta en cero cuando el brazo 2 se 
halla en Iinea con el brazo 1. El angulo en la esqui- 
na del triangulo rectanguio es. por consiguiente, 
angulo 1+angulo2 y: 



i=ja_J3razo2 
raza2 



x2=COS(angulo1 +angulo2; ' iq-z 
y2=SfN(angulo1+angLjfQ2}'icrg' 

Los desplazamientos X e y totales se pueden hallar 
somaodo, respectivamente, xl y x2, e y1 e y2. 

Las fbrmulas utilizadas en el procedimiento cal 

xy son ligeramente diferentes de las resenadas ante- 
riormente. Las variables de longitud del brazo se 
reemplazan por variables escaladas. Estas variables 
est^n relacionadas con las longitudes de los dos bra- 
zos, pero tambien incorporan un factor de modo 
que los desplazamientos X e y se realicen a escala 
para que quepan en el sistema de coordenadas de 
graficos del BBC Micro, 

La forma m^s obvia de guardar visualizaciones 
creadas eo la pantalla es realizar en codigo m^quina 
una salvaguardia del ^rea de RAM utilizada por 
MODE L Siempre y cuando no se hay a desplazado 



la pantalla desde el ultimo CIS, esta zona estara 
entre SiSOOO y &7FFF, Sin embargo, el empleo de la 
instniccion *SAVE tiene el inconveniente de que no 
se le pueden pasar nombres de archive otilizando 
una variable en serie. Por ejemplo, la instruccion: 

'SAVE archivoS 3000 80OO 

guardar^ el archive con el nombre archivoS en vez 
del nombre en serie relenido en la variable 
archives. Esto significa que el usuario no puede 
guardar facilmente visualizaciones en paotalla en 
disco o cinta bajo diferentes nombres de archivo. 
Por fortuna, existe una forma de evitar este proble- 
ma, empleando la llamada al sistema operative 
OSCLL Esta instruccion se puede utilizar para eje- 
cutar un bloque de cddigos ASCII retenido en la 
memoria, como si los caracteres correspondientes 
se hubieran entrado directamente desde el teclado. 
Para usar esta llamada debemos pasar en los regii- 
tros X e Y las direcciones de comienzo del bioq'^e 
ASCII en forma lo-bytelhi-byte. Para llevai a ^^:aix) 
*SAVE y *LOAD, por lo lanto, ensamblamos k wbt 
trucci6n (junto con e! nombre de archiTO propor- 
cionado por el usuario) en una serie y adocanos 
(POKE) los valores ASCII de los caracnes que 
componen la seiie en un bloque resena^ de me- 
moria, Tras establecer los regisuos Xc Y de modo 
que apunten al comienzo de estc Mmpi la instruc- 
ci6n alli almacenada se lle^^a a laoiaiido a 
OSCLI en la direcci6n &FFF7, £neifa liioci6n que 
cumple el procedimiento 
Ifnea 2170. 

Adem^s de guaidar j 
11a se puede limpiar 
principal digitar^ H. 
menu no se puede 
que constituim k 
ofreceremoseaci 
leccionar 
quier 




pmallas, la panta- 
C-Tregresar a! menu 
seJeoci^n de esre 
en esta etapa, pne>:: 
|Bie del programa ; u 
c^itulo. Se puede r. >7' 
de primer piano er. 
1, 2 o 3. Estos colc:r: >:z 



HI 



Brfcolife 



los de primer piano por defecto de MODE 1 , y se los 
puede cambiar mediante el empleo de la instruc- 
cion VDU 19. EI progmma qoe ofrecemos se ejecu- 
tara correctamente en modalidad de maoo alzada, 

Programa del trazador 

La primera mitad del programa Trazador digital, 
que ofrecemos aqui, permite etilizar el trazador a 
mano alzada. La segunda mitad incluye rutinas que 
permitirao emplearlo para producir piintos, lineas y 
curvas individuales. En modalidad de mano alzada, 
hay seis facilidades disponibles. El botbn a presi6n, 
montado en el trazador, actua como un mando de 
"lapiz aniba/lapiz abajo", permitiendo que el usua- 
rio pase de uno a otro. El boton esta cableado en la 
puerta anal6gica como el bot6n de dispam de una 
palanca de mando y se puede detectar desde soft- 
ware examinando los dos bits inferiores del valor 
devuelto en ADVAL(O). Cada uno de ios dos bits es- 
tara establecido en uno si se pulsa el boton de dis- 
paro correspondiente. Por tanto, (ADVAL(0)AND3) 
<> 0 indica que se ha producido la pulsaci6n de un 
bot6n de disparo y se puede emprender la accion 
adecuada. En este case, una variable denominada 
flagart oscilara entre 0 y 1 a cada sucesiva pulsaci6n 
del bot6n. El valor de flagart se comprueba en el 
procedimiento dibujar y se toma la decision ya sea 
de DRAW o bien de MOVE a una nueva posid6n 
(segiJii cual sea el valor). 

Se utiliza una pequeha cruz como cursor para in- 
dicar la posicion actual de la mira del trazador en ia 
pantalla. La misma se puede borrar y desplazar sin 
alterar los datos de fondo mediante e! uso de la 
modalidad de trazado Exclusive -OR. Todas las li- 
neas dibujadas en esta modalidad (seleccionada 
mediante GC0L3) se pueden borrar volviendo a di- 
bujadas exactamente en la misma posici6n. Por lo 
tanto, el procedimiento dibujar calcula las nuevas 
coordenadas del curso y despues llama a un proce- 
dimiento para dibujar el cursor, que borrara el cur- 
sor viejo volviendolo a dibujar en modalidad 
Exclusive -OR, El cursor de gr^ficos (invisible para 
nosotros) se desplaza (MOVE) hasta la antigua posi- 
cion del cursor y se dibuja una 1 me a o se realiza un 
desplazamiento hasta las nuevas coordenadas, 
segun coal sea el valor de flagart. Por ultimo, los 
valores actuales de las coordenadas se almacenan 
en antx y anty, como preparacidn para la proxima 
ocasi6n en que se llame al procedimiento dibiijar. 

e REM * " TRAZADOR DIGITAL BBC ' * 

1080 PROM&firiir_parametros 
109O REPEAT 
1100 M0DE1 

1110 REMAPAGAR CURSOR 
1120 VDU 23,1,O;0;O;O; 
1130 PROCmenu 
1140 CLS 

1 1 50 IF respS= " 1 ' THEN PROCrianoafzada ELSE PROGelaslioo 
1160 UNTIL flagfmal=1 
1170 END 

Se propordonan las longs, de los brazos y las 
iecturas de calibrado de los pots. 

1190 D EF PROCdef i n i r_parametfiOS 
1200 Lin(i_QefCi= 14820 
1210 uno_noventa=45020 
1220 uno_lDngilud=250 

1 230 unci—factof = 90/{u no noverrta-uno cera) 

1240 dos-,cero=450 
1250 dos—nov^nta^ 25300 
1260 dos_longitL/d=222+2S 
1 270 dos^facto r=90.'(dos^ov&nta-<los^_cero) 
1 280 REM * ' FACTOflES DE CONVERSION OE MW A COORDENADAS 

GRAFICOS" 
1290 escafa- 1023/460 
130O uno^&sc«ia=escaia* uno_lon-gftud 
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1310 doa_&5c^ra=escaia* dos_iongitud 
1320 REM EXPLORAR SOLO 2 CAWALES ADC 
1330 *FX1U 

1 340 f lagf i lal = 0:f lagart= 0:color= 1 

1350 D1Msav«%30iDlMx(3),v(3) 

1360 ENDPROC 

13B0 DEF PROCmanoalzada 

1390 PROC fre^^nfonn 

1400 REPEAT 

1410 IF[ADVAL{0) DIV 250)00 THEN PROCdibujar 

1420 IFfADVAL(0)AND3}<>0THEN PROCafticiJlar_Japiz 

1430 rBsp$=INKEY${1):IF ™spS<> THEN PROGpulsadonlibre 

1440 UNTIL flagsaltda-1 

1450 ENDPROC 

1470 DEF PROCditJUjar 

1480 PROCcalc^ 

1490 PR0Ccufsor(an(x,an1y) 

1500 MOVE antx, anty 

1310 IF fla9ar1=0 THEN DRAW K.y ELSE MOVE x,y 

1520 PROCC[if&or(K,y) 

1530 3nt](=x:anly=^y 

1540 ENDPROC 

1560 DEF PROCcursor{C5{.cy} 

157D GC0L3,3:REM MODALIDAD TFtAZADO EOR 

1560 MOVEcwy-16 

1590 PLOT 1,0,32 

1600 PLOTO -16,-16 

1610 PLOT 1,32.0 

1620 GGOLO,color 

1630 ENDPROC 

El sig. proc. Ileva a cabo los c^lculos para 
convert! r las Iecturas de los pots, en comps 
verticales y horizontales x e y ^ 

1650 OEF PROCcaSc^ 

1 %m artgu lo 1 = R AD(( AO VAL(1 )-u n OL_ce ro} ' uno_ractor) 
1 670 angu lo2 = R ADj (AO VAL(2)'dos_cera) ^dos^lactorj 
1630 x=ijiio_escala'COS(ar?giilo1)+do<s_ 

escala'COS^angulol +angUo2) 
1 690 y ^ 1 023- [uiio_escala *S I N [angu lol ) + doSL^ 

escala'SlN(angu1ci1 +artgulo2)) 
1700 ENDPROC 
1720 DEF PROCmenu 
1730 fiagsalida=O:llaglinal=0 
174OPRINTTAe{5.10);"Porfa¥or,eltia" 
1 750 PR I NT TAB (5) : " 1 . . . ivi odalidad mano alzada" 
1 760 PRINT TAB[5}r2. . .Modalidad ^lastica" 
1770 PRrNT:PRINTTAB[5)rPulse1 0 2" 
1 780 R EPEAT: respS - GETS:UNTI L respS= M " OR respS= " 2 " 
1790 EWDPROC 
1810 DEF FR0Cai1iCLjlar_^lapiz 
1830 flagart =1-I1a9art 
1830 REPEAT UNTIL (ADVAL[0) AND 3}=D 
1&40 ENDPROC 
1860 DEF PROCpulsaciOdlibre 

1870IFfespS="C"THENCLS:PROCIriee_inform:ENDPROC 

1830 IF r^s pS = " M " TH EN f lagsalida- 1 

1890 IF re3pS"'S" THEN PR0CgiJa«)ar_pantaHa:PROCIree_ 

mforni! ENDPROC 
1900 IF re5pS=''L'' THEN PR0Ccarigar_^nta3la:PROCffee^ 

iRformiENDPROG 
1910 PROCcambio_color 
1920 ENDPROC 
1940 DEFPROCfree_jnform 

1 950 PR OCcaUJ{y:antx-x :anty=y: PROCcijrsor(anlx , anty) 
1960 PRINT TAB[1,1);SPC(79) 

1 970 PR INT TAB [1 , 1 ) ; " S = Save L= Load M = Menu C = Limpiar" 

1 980 GCOLO.liM 0 VE 0,920; D RAW 1 280 ,920 

1990 ENDPROC 

2010 OEF PROCcamblo—COlor 

2020 re&p=VAL(fesp$) 

2030 IF rtsp<1 OR resp>3 THEN ENDPROC 

2040 color- Fflsp 

2O50 ENOPROC 



Estos procs, permiten guardar o cargar el ^rea 

de pant, como area RAM usando *SAVE y ^^^^ 

''LOAD indirectamente a traves de OSCLI ^^^^ 

2070 DEFPROCgtiardar—pantaila 

2060 PROCcursor(x.y):REM CURSOR APAGADO 

2090 REPEAT 

2100 PRINT TAB [1,1};&PC(79) 
2110 INPUT TAB [1,1);''GUAflDAR 

NOMERBARCHIVO"■archivoS;a^chivoS=arc^liv{l^+^S'' 
2120 UNTIL L£N{archivo$)<8 
21 30 archives^ " ' S A VE " ^ a rchivoS + " 3000 8000" 
2140 PROCinslmcciDn^oscli(arcTiivcii) 
2150 ENDPROC 

2170 OEF PROCin3tryccion_oscli[aS) 
2180 FORNOTOLENfaSl-l 
21 90 sav^% 1\ = ASC(M I DI{aS ,1+1,1)) 
2200 NEXT I 

2210 savfl%?t=13;REM ANADIR CR 
2220 X%save% MOD 256:Y% =save% DIV 256 
2230 CALL &fFF7:REM LLAMAR OSCLI 
2240 ENOPROC 

2260 DEF PR0Ccaraar_paniall3 
2270 REPEAT 

2280 PRINT TAea-1);SPC(79) 
2290 iNPUTTAfiH.DrLOAD 

NOM BRE ARCH I VO " ; archiwS:archivoS= a ricliivo|+ " .S " 
2300 UNTIL LEN{arehiv^>S)<8 
2310 arcliivo$=""LOAD"+archi¥oS 
2320 PROCinstrucclon_osdi(a rchivoS) 
2330 ENDPROC 




Juegos 




En la Luna 



Este juego ha sido escrito por Paul Dunning para el 
microordenador Atari. Para posar su nave espaciai en ia superficie 
lunar es precise utillzar la palanca de mando. 







Su misidn consiste en posar su nave espaciai en una 
de las tres pistas azules que se visoalizan en la pan- 

1 talla. Si la velocidad es excesiva listed se estrellar^; 
una velocidad de 5 parece adecuada. Su puntuaci6n 
se calcula en funcion de la velocidad a la cual aluni- 
za y de la pista que haya escogido. Si tiene exito en 
su alunkaje, vuelve a partir con un suplemento de 

1 500 litros de combustible. El juego finaliza cuando 
haya agotado m stock de carburante. 















0 REM ' ALUNIZAJE DE PAUL OUNMING ' 

1 DATA eO, 81 , ^0, S3, 4&. 60, ^0. 64, 40, 72, 40. 40, 40. 53, 
40. 60. 40. S4, 40. 72. 40. 40, 40, 53, JO. 60, 40, 64. 40. 60. 40. 
72. 60 

2 DATA toe. 6D, 36. SO. 60. 40. 64, 40^ 72, AH, St, 60, 72. 40. 64, 
40, 72. 60. 96. 40. 65, 40, 53, 80, 40,. 4% 45, 40, 50, 40, 53, 40, 

ao.40 

3 OATA 66, 4&, 72, 40, 61, 40. 55, 60. -1 

4 CIR lDIM AS(1001. HS(11), ES£60):HS - " a Uri":POK£ 752. 

5 AA=liCA=40aO: TE = lO0:SC=O;AN = 0:VI-AN:POi{E 53275. 
1:G0SUB 9DD;G0SU8 400O 

S DATA 11. 12, 13. 13, 14, 15, 17, 19, 21, 22. 23. 23. 24 
7 DAtA 25, 26, 29. 30, 31 , 33, 33, 33. 33. 33, 33. 31 
S DATA 31. 30. 29, 2B. 26. 25, 25. 24, 23, 21. 18. 1&. 15 
t E)ftTA 14, 14, 14, 15, 17, 19, 21. 23. 24 . 25. 26, 27 . 29 

-a QPtTA29, 29. 29, 29 . 27. 26, 26 , 25, 26. 27. 2S. 

t1 DHTA27, 26. 25, 25, 23, 23, 23. 23, 23, 23, 23. 21, 21 

^ 3^TA2C. 18. 17. 17 

3 ~= " = 1 TO 6:roK£ 53247 + l,t>;N£)a IGOTO 495 



:^<E 53243, 30 

JUEGO JUGADOR ' 
5S&.0:POK£ 710, 148:PDKE 712.0 
T5a,1:AL^nO 

" ■ " 235:F0R S2=t TO eChREAO S3:EItS2,Sl)=(lHft$ 
_ S2 

KM, 104, 104. 74, 72, 178, II, 160, 2, 177, 203, 136, 
m a», 200. 206. 247 . 1 04. 74. 72 
km 11, 160. 253, 177, 203, 200. 145, 203. 13& 

im aoe.247, io4, 74. 72. i76. 7. 19&. 205 
imass. m 0, 206. 104, 74, i7o, 7, 230, ?05. los. 

W.|.2S6.%.Q.O 

54279.A:FOl!Ce204, A+4iP0KE 203, 



; mMPGUti 5324S, ISO POKE 205, 
* to PiBASE^1280:POKE I. OiNEXT f 
£ ^ =¥SASE^t209iREAEl B:POKE I, 
- '15. 13$, 126, 60,60,24,24, 
. 110,0.0,0,0.0.0,0.0 

: I a. 0, Q. 0. 0 




431 IF ST:-'7 THEN AN, -AH 1^0.05:0 A=CA-5 

432 IF ST- 11 THEN AN - AN-O OSiCA" CAhS 
440 HP=HP+AH: IF HP>1 THEN HP=0;SR=7 
450 IFHP<-1 THEN HP=0;SR=11 

455 VK-Vh0.02:VP^VP j-VI:IF VP>1 AMD SR=1 5 THEN 

VP=0:SR=13:AL=AL-1 
436 IF VP>1 AND Sft-Tl THEN VP=0:SR=9:AL=AL-1 
457 JF VP>1 AND SR-7 THEN VP-0lSR=5:AL-A-1"1 
45B IF VP<"1 THEN VP={]:SR = 14:AL= AL+1 
4^ JF St = 14 mD CA>29 THEN Vl = VI-O.0S:DA:-DA^ 
460 A-USR(ADR(E$),Sfl):SR-15 

465 7 ^ PUHTUACI0N="; SC^ ";CKft£n27);" VEL.= ' ;VI*100;" " 

466 ? CARE =-;CA:" ';CHRS(127);" AHG =-;AK*100i- 

467 7 -TIEMPO =MmO'E);- ■;:CHRS^127);"ALT =-;AL:- " 

468 ?CHRS(2a):CHRS<2a};CHRS(26); 

469 Tt=Jt-OA 

490 IFTE. OTHfN720 
492 GOTO 370 
495 GOTO 210 

500 If CO -4 A«D VJ>C.5 THEN 600 
505 IF C0=4 A«D Vl>0.4 THEN 700 
510 IF C0=2 THEN 7O0 
520 RETURN 

600 FOR 0=1 TO 2; FOR W=255 TO 100 STEP -t 

610 SflUNO0,W,l0,15:SOIJND 1 .W-tO,10.1&:SOUND2.W-20,10.15 

620 NEXT WiNEXT 0 

630 &S=0.5^VI:S0 = SC:JF SS=0 THEN SC=SC + 5 OlGOTO 650 

640 If AL<5 THEK SC=SD + {&S-1O0)-lO:GOTD 650 

642 IFAL<20THEHSC=SC-ir(SS*100)*2D:GOrO 650 

644 If At<60 TMEH SC=SC4iSS-l0O^5 

650 If CA<2500THEHCA=CA-i-rSC^"2i 

655 FOR Q=C TO 3:S0U«D D,0,O,O;NEXT QAA-1:P0KE 53276, 

liGOSUB eOOiGOTO 210 
700 FOR Q=0 TO 50:P0KE 712, ftND{l)-255:S0U«D 0,255. 6. 

15:SDU«D 1. 240,6. 15:SDU«D 2,220,6. 1 5:NE!a 0 

705 SOUWD 0,0,0.0';SOUND 1, 0.0 ,0;SOUNO 2,0,0.0 

706 IFCA-^aO THE« CA-0;GDTO 720 

710 POKE 712.Q:AA=1:G0SUE 8O0:GOT0 210 

720 POKE 712.0:GDT0 810 

m VP= 0:HP=0:AM =0:VI = 0:TE = 1 OOifiOUfLM 

&10 IF SC>RE THEM GDSUB 1010 

320 GRAPHICS 17;SETCOL0R 4,1,0 

830 ?-»6;" FJKA1I7A0D' 

335 7 #6:7 #6;" RECORD ";RE 

836 7 #6;" "M 

m 7 4f6:7 *6;'' PULSE START " 

m POKE 53243,0 

m IF PEEK(53279) 6 THEN flESTDRE :GOT0 5 

370 GOTO 660 

399 END 

9O0 REM INTRO 

910 GRAPHICS 17:SETCOL0ft4.1,0:E=0 

geO 7 *6;" ALUMPlAJE ' 

930 7 #6:? *6r OE P. DUNNING SEP.62- 

946 ? 46:? +6;-PAUfJCA DE l«ANDO (0)' 

950 7 *6;7 *6r ALTO 

960 ? *6:- 

970 ? ♦e;- IZQ!UIEROA< >DERECHA" 

sao 7 # 6 



9«5 POKE 53243,0 

a90 REAU M:IF M<0 THEN^OaS 

992 READ P 

995 SOUND 0,W,10,15:FOR PP=0 TO P;NEXT PP 

997 GOTO m 

998 7 *6;" buena suerte' 

999 fOft X=1 TO 13;F0R y=0 TO 255 STEP 20 
0, ¥.10,1 5:Nf XT ¥: NE5fT X:SOUND 0,0,0,OiRFTDRN 

1000 RESTORE 1:GOT0 990 

1010 HE=" ";TE=30;GftAPHICS ll^SETCOLOR 4.1. 0:7+6;" 
ESTA MAL ":? *6:X= 1 :V= 1 RE =SC 

1011 7 *6:- abcdef 9 h " 



1012 7 #6 

1013 7 *6:- 

1014 ? *6 

1015 7 ♦er 

1016 ? +6 

1017 7 *6r 



}j k I n 



q rst !J V w K " 



0,Q-10,6,16:$OUND 



y z . - R E ■ 
1013 POKE 53246.0 

1020 FOR 0=10 TO 245'SDllND 
t.Q.a,15:S0UND 2. D-l- 10,8,1 SiHEXT Q 

1030 POSITION X,Y;? *6;")(XX": POSITION X.Y+ 1:7 *BrX': POSI- 
TION Xi2,Vil!? 4i-6;-X"i POSITION X,V 4-2:7 i-e^XXX" 

1040 IF STJCK(0)<:>7 THEW 1050 

104S POSITION X,Y;? *6;- POSITION X,Y+1:7 PO- 
SITION X 1 2,Y 1 1 :? *6:* " : POSITION X,V 4 2:7 +5; ' 
1043 IF X>13 AMD r=7 THEW X= 1 :Y = 1 iGOTO 1050 
1047 IF X>13 THEN X=1 :y=Y-^2:G0T0 105O 
104S X^X+2 

1050 IF STICK(0}<> Tl THEN 1060 

1055 POSITION X.Y:? +6:":PasmOH X,V-i1:7 *6:": POSITION 
X-f-2,Y4l:? -t 6;-"; POSITION X,Y42:7 *6;" " 

1056 If X<2 AND y=l THEN X=15:y=7:GOTD 1060 

1057 If X<3 THEN X= 15;Y=r-2;G0T0 1060 
1053 X-X-2 

1060 POSITION 6.10:? #6; "TIEMPD MNTfTE);" ■■:TE=TE"0.t:IF 

TE=0 THEN11O0 
1065 f OR PP - 0 TO 2D:NEXT PP 
1069 IF STRIG(D)<>D THEN 1060 

1071 LOCATE X+ 1.Y+ 1. X3<;lF XX = ASCrE'} THEN llOO 

1072 If XXr,ASC(-R") AND LE«(H$)>1 THEN HS = 
H!S(1,LEM(HS)-1>:GOT0 1060 

1073 IF LEN(H£^>10THEM 1080 
1075 KJ(1.EN(H$) flHCHftS(XX) 
lOBO POSITION 4,11:7 +6,HS;" " 

1099 GOTO 1030 

1100 FOR 0=0 TO 3:S0UWD Q,0.0.0:«EXT Q 
1110 RETURN 
4000 GRAPHICS 5 
4010 RESTORE 6;C0lOR Z 
4020 FOR X=0 TO 79 
4030 AFAD V 

4040 PLflfT X,39:DRAmO X.V 
4050 NEXTX 
4060 COLOR 3 

40?o PLaTia.32JK«iRoaaj? 

40S0 PLOT XMHH/Mm 5im 

40S0 PLOT 67 jammfia Tiwit 

41{» RfTURM 
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La Banana Interface constituye 
un interesante aporte en el 
campo de los dispositlvos 
controlados por ordenador 

Anteriormente ya hemos examinado eumerosos 
dispositivos que permiten que los ordenadores con- 
trolen maqumarias, y en nuestro apartado Bricolaje 
tambien hemos ilustrado como se pueden controlar 
numerosos dispositivos, Uno de los liltimos que 
han salido al mercado, dirigido basic amen te a las 
escuelaSj es la Banana Interface, disenada para per- 
mitir cootrolar varios proyectos diferentes desde el 
BBC Micro o el Commodore 64. 

Esencialmente el concepto que subyace en la Ba- 
nana Interface es identico al de la caja buffer que 
construimos en el apartado Bncoiaje, si bien el Ba- 
nana es algo mas sofisticado. Manipulando los pa- 
trones de bits binaries que contienen los registros 
de datos y de direcci6n de datos del ordenador, se 
pueden transmitir seiiales de 5 V a dispositivos ex- 
tern os. Ademas, debido a que las puertas para el 
usuario y la impresora son bidireccionales, la ma- 
quina puede recibir sen ales desde el periferico que 



le permiten "saber" algo sobre el estado del dispo- 
sitivo (su posicion, p. ej.) o si se ha activado aigun 
interruptor disparador. Por consiguiente, es posible 
que el ordenador pueda, mediante una combina- 
cion de senales de entrada y salida, guiar con preci- 
si6n a un robot y reaccionar ante las circunstancias 
cambiantes del entorno del mismo. 

La interface se conecta al ordenador a traves de 
un trozo de cable piano que se enchufa en las puer- 
tas para la impresora y para el usuario. El otro ex- 
tremo del cable esta instalado en un conector de 40 
vias de la propia interface. Para poder operar la 
Banana Interface se requieren dos fuentes de ali- 
mentacion electrica CD, la primera de las cuales es 
una corriente de 5 Y que se suministra desde el or- 
denador a traves del cable piano, Esta corriente se 
utiliza para ejecutar la Idgica de la interface a lo 
largo de las tineas de datos. 

La segunda fuente de alimentacion se proporcio- 
na extemamente mediante un par de conectores 
minijack situados en la parte posterior del dispositi- 
ve junto a la interface del cable piano. Lamentable- 
mente^ el fabricante, Castle Associates, ha decidi- 
do no proporcionar con la interface una fuente de 
12 V. La razon de ello es que el Banana esta desti- 
nado b^sicamente para ser usado en las escuelas, 
las cuaies suelen con tar con amplios suministros de 



Bajo su pi el 

La Banana Interface se puecfe 
utflizar para una gran variedad 
de aplicaciones de control, tanto 
en el hogar como en el 
laboratorio. Porejempio, el 
entorno de la habrtacibn que 
vemos en la ilastracion se puecfe 
poner casi por complete bajo el 
control de un ordenador 
conectado a una Banana 
Interlace. £n el cuarto se pueden 
Instalar dispositivos de 
percepclon, tales como 
termostatos o sensores 
luminosos. La Informacldn 
reclbida desde estos 
dispositivos las puede analizar el 
ordenador y compararia con 
rangos optimos 
pfeprogramados.Cualquier 
ajuste del enlorno que resulte 
necesario (como elevar la 
temperatura, bajarlas persianas 
oencender Jas luces por la 
tarde) se puede llevaracabo a 
traves de fas Imeas de salida de 
la interface 

SC Sensor de contacto 
CC Control decalefacci6n 
IL Interruptor para reducir la 
\\xi 

ME Motor electrico 
AA Altavoz de alarma 
DH Detector de hu mo 
TM Termostato 
CF Celula fotosenslble 
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la comente adecuada en sus laboratories y talleres. 
For consiguiente, dado que las escuelas no necesi- 
tan una fuente de alimentacidn externa, la empresa 
ha optado por excluirla y mantener reducido el pre- 
cio del dispositivo. 

Esto significa que los particulares interesados en 
adquirir un Banana se encuentran ante la perspecti- 
va de tener que conseguir su propia fuente de ali- 
menlacidn. Poesto que las hientes de 12 V con pe- 
quenos arnperajes no se consiguen con facilidadj 
probablemente se tendr^ que operar la interface 
mediante unas cuantas pilas conectadas en serie (la 
empresa reoomieDda un amperaje de 600 m A, aun- 
qiie la maquina que utilizamos opero sin dificulta- 
des con una fuente de 10 V y un amperio). 

Cuando la Banana Interface se hallaba en fase de 
ptanificacion. Castle Associates consuit6 a profeso- 
res de disefio y tecnologia. Esta consulta reperciiti6 
positivamente en las especificaciones del dispositi- 
vo, en particular en cuanto concieme a su uso eo 
las escuelas. Con la carcasa completamente cons- 
truida en acero, la interface es uno de los dispositi- 
vos m^s robustos que existen para cualquier orde- 
nador personal. 

Esta preocupacion per la duracidn tambien se ha 
aplicado a los componentes interaos de la interface. 
La placa de circuito impreso se ha soldado a los 
conectores hembra, manteoiendo firmemente en su 
sitio el delicado tablero. El resultado es un periferi- 
CO que probablemente pueda soportar sin proble- 
mas las manipulaciones erroneas y que, para ser 
objeto de un dano serio, requerira la intervencion 
de un escolar muy decidido a lograrlo. 

En la parte superior de la carcasa hay varias hile- 
ras de conectores minijack divididos en tres grupos. 
A la izquierda de la interface hay ocho lineas de 
entrada blancas, con cuatro lineas a tierra, verdes, 
colocadas entremedio. Cada enchufe hembra est^ 




numerado 1, 2, 4, 8, y asi sucesivamente, que co- 
rresponden al numero retenido en cada una de las 
posiciones de bits del registro. Junto a las posicio- 
nes de bits hay LEDs que se utilizan para dar infor- 
maci6n respecto a cual de los bits esta high (indi- 
cando que a trav^s de esa linea de datos concreta 
esta pasando una corriente de 5 V). 

El ordenador puede registrar los cambios en las 
lineas de entrada, y la forma de demostrarlo es es- 
tableciendo high todas las lineas. Hacer un PEEK del 
registro producira un valor de 255, pero si conecta- 
ramos un cable desde una de las lineas de tierra a 
uno de ios conectores de entrada blancos, el voltaje 
caeria a cero y el valor del registro caeria conse- 
cuentemente, segfjn cual de las lineas se utilizara, 
Por lo tanto, se podrian construir aplicaciones sim- 
ples de interrupcido de drcuitos, como alarmas 
antirrobo. 

Las Imeas de salida 

A la derecha de las entradas, y ocupando la mayor 
parte de la superficie, estan las hneas de salida. Al 
igual que las de entrada, hay ocho posiciones basi- 
cas (numeradas 1, 2, 4, y asi hasta 128) , LEDs co- 
rrespondientes a cada una de las posiciones de bits 
y cuatro conectores minijack, Mediante circuitos de 
rel^ se conectan pares de conectores hembra. La 
colocaci6n (POKE) de un numero en el registro en la 
direccion &FE61 disparar^ los rel€s. 

Conectando los motores electricos y fuentes de 
alimentadon adecuadas a traves de los terminaks, 
estos reles se pueden utilizar para activar los moto- 
res y posicionarlos como se desee. Emple^ndola de 
esta forma, desde la Banana Interface se pueden 
controlar hasta cuatro motores electricos a la vez. 
Obviamente, la forma mas eficaz de controlar los 
motores electricos (que se podrian conectar a una 
tortuga para el suelo o a un brazo-robot) es activar- 
los a traves de los intemiptores de salida y monito- 
rizar sus movimientos a trav6s de las puertas de en- 
trada. 

A lo largo de la parte superior de la interface hay 
otro grupo de ocho puertas logicas de alta veloci- 
dad, cada una de las cuales produce una corriente 
de 12 V. Estas lineas de salida se utilizan para acti- 
var desde ia interface motores paso a paso pudt^n- 
dose activar hasta siete de ellos al mismo tiempo. 

Parece que la Banana Interface puede tener un 
buen mercado en las escuelas y los centros de inves- 
tigacion como medio auxihar para la ensenanza del 
control basico por ordenador de dispositivos elec- 
tricos. Es claro que existen numerosas aplicaciones 
para las cuales se podria utilizar en demostraciones 
y experimentos. Tambien podria tener amplias 
aplicaciones en pequehas empresas que deseen au- 
tomatical algunos de sus procesos de producci^n. 

Desde el punto de vista del aficionado, la utili- 
dad de un dispositivo de estas caracteristicas ya no 
esta tan clara. Ciertamente se lo puede emplear en 
casa para numerosos experimentos realizados 
como pasatiempo y es probable que le ensene mu- 
chisimas cosas sobre las tecnicas de control por or- 
denador. En este sentido, el amante serio de la ro- 
bdtica bien puede considerar la adquisici6n de uno. 
No obstante, a los usuarios del BBC Micro y del 
Commodore 64 cuyo interes por estos dispositivos 
sea solo superficial, la Banana Interface les resulta- 
ra excesivamente car a por sus limitaciones. 
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300x200x63 mm 



Conector en paralelo dB 40 
VI as desde las puertas pam 
la impresora y el usuam (Jd 
BBC Micro y ei CommodonE 
64. Puertas de salida, ocho 
conectores de saJida dei2V 



La Banana Interface esta 
bien construida y permrte 
una ampiia variadad de 
aplicaciones de control por 
ordenador 



La falta deuna fuente de 
aifmentacidnde 12 V 
adecuada limitasunnercadp 
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ios establecimientos 
educativos o de 
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Interes declarado 



Examinaremos la naturaieza declaradva 
del PROLOG y la forma como matieja 
proposiciones, 

EI PROLOG esta disenado para dar al 
programador un medio de describir la 
estructura logica de un problema 
utilizando una base de datos de hechos 
y reglas if then. Esta enunciacion 
"declarativa" del probiema la emplean 
los mecanismos deductivos del prolog 
para prodocir respuestas a los 
interrogantes que uno ha planteado. La 
tarea del programador se transforma, 
por consiguiente, de tener que decirle al 
ordenadOTj con todo detalle, c6mo usar 
las operaciooes de un lenguaje (para 
resolver un conjunto predefinido de 
problemas) a tener que proporcionar 
una enunciacion clara y Idgica del 
conocimiento requerido para resolver 
los problemas, dejando luego que sea el 
PROLOG el que lleve a cabo la tarea. 

La sintaxis del prolog es muy 
sencilla, pero la terminologia es 
bastante oscora. La construccion mas 
importante es el termino, Un termino 
puede ser una constante (como ''^rbor\ 
"juan'' o "25") J una variable o una 
estructura. Las estrucCuras se ciean a 
partir de constantes y variables. Una 
estructura muy comun en los programas 
en PROLOG es el hecho. Este se compone 
de un predicado (que debe ser una 
constante) ya sea solo, o bien seguido 
de una lista de argumentcjs (que pueden 
ser constantes o variables) entre 
parentesis: 

predfcadol . 

predicaclo2(arg[jmento1,argumento2, 
argumentoS). 

Como vimos en el primer capitulo de 
esta serie, se puede con side rar al 
predicado como una relacion existente 
entre sus argumentos. En la frase en 
castellano **Venusianos comen 
arboles", ''comen" es el predicado que 
lelaciona a venusianos con arboles. En 
PROLOG J podriamos escribir este hecho 
como: 

come(venusianos,arboles). 

Los t^rminos como este se pueden 
acumular para formar grandes grupos 
de hechos de forma muy similar a como 
se acumulan registros en archives de 
bases de datos. En el diagrama tenemos 
una base de datos de hechos acerca de 
quien come que. Sin ningun codigo 
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extra, esta base de datos ya nos ofrece 
un programa en prolog. 

Para ejecutar el programa 
necesiCamos establecer una praposici6n 
para que el interp rete la demuestre. 



^Quien come qil^?CQE!i^(venu3i3nos,art[rles), 

M[nB(|[jviaiiDS,rDDas). 
CQme(femci}1a$.gii^has]r 

En PROLOG, los "lieclios'" se expresan como un predicado 
(en este caso, 'come"), en solStario o seguido por una 
lista de argumer^tos. Se \m puede utilizer para 
proporaicoar al prograoia una " base de datos de 
conocimientos' a la cual pueda interrogar luego el 
usuarlo 

Supongamos que deseamos saber si los 
jovianos comen rocas. Planteamos el 
interrogante digitando: 

?-come(jovianos,rocas). 

tras el aviso del sistema (por \o general 
?-). El PROLOG examina entonces 
nuestros hechos y, si encuentra una 
pareja para la proposicion, dice yes, lo 
que significa '*sf, a partir del programa 
se puede ver que come(jovianos,rocas) es 
verdadero". Si despues preguntamos: 

?-conne(mardanos,gachas}, 

el PROLOG respondera no. 

Podemos lograr que el prolog nos 
haga mas cosas empleando variables en 
nucstra interrogacion. La convencion 
del PROLOG es que los hombres de 
variables empiezan con una letra en 
mayuscula, mientras que las constantes 
estandares empiezan con minuscula. 
Por lo tanto, si deseamos saber quienes 
comen gusanos, podemos preguntar: 

?-come(Ciiatura,giisanos), 

a lo que el prolog respondera: 

Criatura=mercurianos 

y despues bar a una pausa, esperando 
una entrada. Elio significa que el 
prolog ha descubierto que, 
estableciendo la variable Criatura en el 
valor mercurianos, puede probar que la 
proposicion es verdadera. 

En este punto podemos ya sea entrar 
RETURN , para indicar que estamos 
satisfechos con la respuesta, o bien 
podemos digitar un punto y coma para 
indicarle al PROLOG que busque otra 
forma de demostrar ia proposicion. En 
este ejemplo, sin embargo, no hay 
ningun a otra forma, de mo do que el 



prolog nos respondera no. No obstante, 
si le solicitamos que busque quien come 
gachas, habra dos respuestas posibles: 
tern colas y neptunianos. De modo que, 
en respuestaa; 

'-come(Criatura,gachas). 
el PROLOG dice; 

Criatura ^terncofas 
y despu6s digitamos a lo que el prolog 
respondera; 

Criatura=neptunianos 

Si hubiera mas soluciones, la pulsacidn 
del punto y coma f ras cada una obligana 
al PROLOG a hallarlas todas. En el 
pr6xinio capitulo veremos exactamente 
como funciona esto, pero veamos antes 
otros tres importantes conceptos: reglas, 
cadenus de mferenda y retroceso. 

Uno o mas lerminos constituyen una 
cMusula, que puede expresar una regla. 
Una clausula siempre posee un 
encabezamiento compuesto por un 
termino, y este puede ir seguido por su 
cuerpo, formado por uno o mas 
term i nos. El encabezamiento y el 
cuerpo se separan mediante el operador 
simbolico :— , que normalmente se lee 
como "si'\ Por consiguiente, tenemos: 

termino1:-termino2,terniino3,termjno4. 

Las comas entre los terminos del cuerpo 
se pueden leer como un AND Idgico, de 
modo que se podria interpretar que esta 
estructura de nuestro ejemplo significa 
que "el termino 1 es valido SI el termino2 
AND el t^rminoS AND ei t6rmino4 son 
todos validos". 

Para clarificar mejor esto, 
imagi nemos que deseamos averiguar si 
alguna de las criaturas de nuestra base 
de datos es canibal. Podemos escribir 
una clausula que nos de una definicion 
de canibal; 

can I bal (Criatura) : - 
conne(Cnatura, Criatura). 

Esta es una clausula con un termino en 
su cuerpo y podemos leer la como una 
"regla" que afirma que: una criatura es 
canibal si esa criatura come el mismo 
tipo de criatura. Si aiiadimos esta regla 
y despues preguntamos: 

?-canibal(X). 

el PROLOG empareja esta proposicion 
con el encabezamiento de nuestra nueva 
clausula. Dado que esta nueva clausula 
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no es verdadera de forma automatica, 
primero se debe demostrar que los 
terminos del cuerpo de la clausula soo 
verdaderos. De mode que el prolog 
toma uno por uno, de izquierda a 
derecha, y los establece como 
proposiciones, tal como si se los hubiera 
digitado en forma de interrogaciones. 
En el cuerpo hay un solo t6rmino: 

...,come(Criatura,Criatura). 

y concuerda con el hecho 
'(come(marcianos,marcianos). Esto asu 
vez establece a X=marcianos (X era el 
nombre dc variable de la interrogacion 
original) y el prolog respondera: 

X=marcianos 

En este caso, come(marcianos,marcianos) 
se encontr6 como un hccho en la base 
de datos. Sin embargo, si no hubiese 
sido un simple hecho sino otra regla, el 
FROLOG habria tenido que abocarse a 
otras subproposiciones para tratar de 
demostrar la veracidad del 
encabezamiento de ia regla. 

El programa en prolog del diagrama 
ilustra como podn'a suceder esto. Si 
pianteamos el interrogante: 

?-cofor_de(marty,Cofor). 

queriendo averiguar el color de marty, el 
PROLOG primero toma tiuestra 
interrogacidn como su proposicion. 



Luego encuentra una regla para decidir 
si C0lor_de{ marty, rosa) es verdadero y 
encuentra que ello es asi si (:-) ei 
talante de marty es Mil. Estableciendo 
luego esto como su siguiente 
proposid6n, descubie una regla que 
afirma que marty es feliz si puede 
programar en prolog. De modo que 



^Gu^ndo se pone am\ un marciano? 

€Olor^Efe(Marcjano josa}: - talante_(le 
(Mai ciana, feliz) 

color_de(Marclano,aiul) 

ta]aiite_ile(MarcianQ,fellz):- 
puede^ro^rtnEar—eiT(Marci3no» prolog). 

falaiite_de{M3rct3ni ^trtste), 

piieile^rDgramar_jen(iiiarty,liasrc). 
puede—pro g ramar_en(iniraittla ,prfilog| 

En este conjunto de terminos, observe que los 
nombres de las variables empiezan con 
mayijscuta. El simboio :- se puede interpretar 
como un //(si) l6gico. 



puede_prQgramar_en{marty, prolog) se 
convierte en la siguiente proposicion. 

Esto podria continuar de este modo a 
traves de mochisimos niveles; pero, en 
este caso, se interrumpe aqui porqoe no 
hay ninguna regla ni ningun hecho que 
demuestre, o bien que indique como 
demostrar, que marty es un 
programadof de prolog. 

El PROLOG, simplemente, no se da por 



vencido en este punto, Lo que hace, sin 
embargo, es admitir su fracaso en la 
proposic!6n actual y luego retornar a la 
proposici6n previa para ver si hay 
alguna forma altemativa de 
demostrarlo. Pero eso tambien falla (no 
se puede demostrar que el talante de 
marty sea feliz). De modo que el prolog 
retrocede nuevamente para ver si hay 
alguna forma altemativa de demostrar 
la primera proposici6n. De hecho , si la 
hay. El prolog encuentra el hecho 
color de(marciano,azul), establece 
marc!ano= marty y la proposici6n 
triunfa. 

Este proceso de abrirse paso a travds 
de largas cadenas de reglas y plantearse 
a SI raismo una nueva proposicion que 
demostrar a cada paso, es la forma en la 
que el prolog resuelve todos sus 
interrogantes. El metodose denomina 
retroceso porque, si un camino 
determinado a traves de las reglas no 
produce una respuesta, el prolog 
recorre el camino hacia atras hasta 
llegar a un punto de opcidn anterior, y 
luego prosigue en esa nueva direccion. 
De esta forma, hallara su respuesta o 
bien explorara cada uno de los caminos 
posibles a traves de las reglas. For este 
motivo los programas en prolog se 
comprenden mejor como drboles, o 
cadenas de proposiciones, en vez de 
como hstas de enunciaciones. 



El programa 
Alvey 

'a actual idad, el prolog 
leienpena un papel esencial 
z^" z i^ogramade 
^ f r zHcion Alvey para el 

: de 

£.1: ■I'zenadores" de la 
-\i :r"5''aci6n. El 
pfog^ama se establedo en 
19Kllras ei informe del Alvey 
CoffimStee, creado para 
acofi^jarsobre las 
pD&ibrlidades de la 
investigacldn en colaboraci6n 
corno respuesta a la iniciattva 
uiiacia por ios japcneses con 
af^uyedBde Ordenadores 
Generacion. La 
esdfador 
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lOOproyectos, todos los 
cuales responden a una 
estrategia de planificacidn 
central que se revisay 
actualiza anualmente. 
Empleando las caracteristicas 
del PROLOG de "base de datos 
Intel igente", una m^iquina de 
este tipo se podna 
implementar directamente 
como un sistemaexperto. 
Otras aplicaciones del prolog 
que se estan considerando 
actual mente incluyen su uso 
como parte de una interface 
paralenguaje natural. El 
PROLOG se presta 
particularmente para el 
proceso de lenguajes naturales 
y, dado que esta ^rea es un 
aspecto esenciai de las 
maquinas aut^nticamente 
"amables con el usuario"y 
fundamental para la 
investigacion en materia de 
qwtageneracion, pareceun 
tecto seguro que el prolog 
iocupando un papel 
leneidesarroIlD de 
ileonotogfa 





fnfluencia paterna 

Profesor Bob Kowalski, a quien se 
con Sid era "padra de la programacidn 
Jc^gica", cuyas ideas respecto a la 
prograniaci<5n y Jos si stem as logicos 
Ltilizara A. Colmerauer para desarrollar 
en la Universidad de MarseJFa el primer 
Intdrprete de prolog 
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Programacion/Juego de simulacion 




Ganar o perder 



El diseno del algoritmo final de 
nuestro juego de simulacion 
incluye la eventual participacion 
en una revuelta local y los 
preparativos del viaje de 
regreso ^l^H (K 



Al entrar en la fase final del juego, ha coocluido el 
intercambio comercial y se hao cargado a bordo del 
barco las mercandas adquiridas al jefe de los nati- 
ves del Nuevo Mundo. A la raafiana siguiente, la 
tripulaci6n se reaprovisionar^ de agua fresca y ali- 
mentos e iniciara el viaje de regreso. Se hm comer- 
ciado todas las mercancias, a excepcidn de las 
armas, y al regresar a puerto la venta de las espe- 
cias, figurillas y perlas reportar^ algun beneficio. 

Sin embargo, antes de emprender el viaje de re- 
greso, se produce un nuevo acontecimiento. Du- 
rante la noche, un rival del jefe visita en secreto el 
baroo. El insurgente desea comprarle sus armas 
con el fin de derrotar al jefe, y ofirece 30 perlas por 
cada una. Si usted acepta el trato obtendra on in- 
menso beneficio, pero debe tener en cuenta algu- 
nos puntos: 

Si el jefe descubre que usted ha vendido las 
armas, seguramente se vengar^ de alguna forma en 
caso de que la rebeJi6n fracas ase. No obstante , el 
margen de beneficios del viaje podria ser tan redu- 
cido que quiza usted considere que las ganancias 
extras bien valen el riesgo a correr. Puede, por su- 
puesto, rechazar la oferta, en cuyo caso el jefe, 
como gesto de agradeciraiento, le proporcionara 
provisiones gratuitamente para el viaje de regreso e 
incluso podria incluir 50 perlas como recompensa. 
Existe la posibilidad, si vende las armas, de que la 
revuelta triunfe; pero si fracasa, las consecuencias 
ser an desastrosas. El jefe, tras enter arse de su 
doble juego, ordenara que se prenda foego a su 
barco, con lo cual el juego terminara. 

Si usted puede evitar este desastre final, el barco 
elnprendera el regreso a puerto; la tripulaci6n se 
halla en buena forma, los vientos son favorables y 
el viaje se realizara en ocho semanas. Cuando el 
barco llegue a puerto, se poeden vender las mer- 
cancias, pagarle a la tripulaci6n y, con suerte, obte- 
ner algiin beneficio. Si no hubiera suficiente dinero 
para pagarle a la tripulaci6n, se podria vender el 
barco para cubrir gastos. El informe final del pro- 
grama calcula una hoja de balance para el viaje y 
visualiza informaci6n eo el sentido de si ha termina- 
do con perdidas o ganancias. 

El program a principal llama, en la Ifnea 893, a 
una subrutina de ia linea 10300, que se ocupa de la 
oferta hecha por el rival del jefe de adquirir sus 
armas. El program a comprueba primer o si hay 
algun arma disponible para el intercambio, porque 




Complementos al basic 

Spectnim 

Reemplazar A0() por E(), VI () por B() y V2() por 
DQ en todo el listado e introducir estos cambios: 

10310 CLS:GO SUB 9200 
10328 iNPUTI$:LETI$=t${T01) 
10354 LET IS-INKEY$:IF IS-'^"THEN GO TO 
10354 

10400 CLS:GO SUB 9200 
10501 CLS:GO SUB 9200 
10547 LET I$=1NKEYS:IF IS-" "THEN GO TO 
10547 

BBC Micro; 

Introducir las sigulentes modificaciones: 

10310 CLS: GO SUB 9200 
10354 l$=GET$ 
10400 CLS:GOSUB9200 
10501 CLS:GOSUB9200 
10547 IS=GET$ 



si no hubiera ninguna no tendria sentido que el in- 
surgente contactara con el capitan. La Ifnea 10305 
examina el segundo elemento de la matriz de provi- i 
siones, 0A(2}, que corresponde a las armas, y si este 
es iguai a 0, no habra, por supuesio, ningiin arma y 
se devolveia el control al programa principaL Si hu: 
biera armas disponibles, el insurgente formulara su ' 
oferta. 

Se le indicara que digite S o N a la propuesta en la 
linea 10326, y la linea 10330 comprobara si la entra-. 
da es correcta. Si no lo es, retrocederd y solicitar^ 
otra respuesta- 

Si decide vender las armas, la rutina saltara a la 
linea 10400, donde finalmente se podra desarroUar 
el evento. La Unea 10405 genera un numero aleato- 
rio entre 0 y 1, proporcionando un 75 % de proba- 
bilidades de enviar el programa a la linea 10450, 
que hara fracas ar la rebell6n* Si usted cree que las 
probabilidades en contra de que triunfe la revuelta 
son demasiado elevadas, puede variarlas para ade- 
cuarlas mejor a su sentido de la equidad. 

Si la revuelta fracasa, el Jefe se apropiar^ de las 
niercancias e incendiar^ el barco, con lo cual el 
Juego habra terminado. De lo contraiio, el progra- 
ma continoara a trav^s de la linea 10429, que asegu- 
ra el trionfo de la rebelion, y el nuevo jefe reciente- 
mente proclamado aprovisionara por compieto el 
barco antes de que este vuelva a hacerse a ia mar. 

La ecuacion de la Ifnea 10429 calcula la cantidad 
de perlas obtenidas en el intercambio, muitiplican- 
do la cantidad de armas, 0A(2), por 30, sumandole 
el total subsiguiente al primer elemento de la ma- 
triz A0() para registrar la cantidad de perlas adquiri- 
das. La linea 10430 suprime las armas de la matriz 
de provisiones. A los fines del juego no es estricta- 
mente necesaoo hacer esto, pero es un buen habito 
de programaci6n y hara que resulte mas sencillo 
ampliar el juego para incluir, por ejemplo, indden- 
tes durante el viaje de regreso. 

Si usted se niega a aprovechar el ofrecimiento, el 
jefe actual podria recompensarlo con 50 perlas, 
Esto se decide al azar en la linea 10345. La subruti- 
na final comieoza en la linea 10500 y se ocupa del 
viaje de regreso y la venta de las mercancias. 



Juego de simuiacfon/Programacidn 



Modulo 13: Fin del vlaje 

Adicidn al cuerpo principal del programa 

893 GOSLB1O3D0 
m4 GOSUB 10500 

Rutlna Revuelta 

10300 REM REVOLICION 
10305 IF OA[2)=0 THEN RETURN 
10310 PfilNTCHRS^147):GOSU0 92OO 

1031 5 SS="DURANTE LA NOCHE UN RIVAL OEL'-mUB 910O 

1031 6 SS= " JEFE VISITA EL BARCO EN SECRETO*'^:GOSJE 9100 

10317 PRINT:GOSUB92<K) 

10318 S$= "QUIERE COMPRAR TUS ARMAS* '^;GOSJB 910O 
10320 "PARA UNA REVUELTA* ^GOSUB 910O 

10322 PRINT:GOSUB9200 

10324 S$= ' TE OFRECE 30 PERLAS PGR CADA ARMA'-iGOSUB 9100 

10326 &$= 'LEVENDESLASARMAS?{S/N)*'':GOSUB910O 

10326 INPUT f$:fS=LEFTJ(IS,1) 

10330 IF ISO 'N" AMD 1$<>"S" THEN 1032B 

10332 IF IS="S^ THEN 10400 

10334 PRl'NT:GOSUS 920 D 

10336 SI="ELJEFESE EMERAYSESIENTE'-iGOSUBOlOO 
1033« S$="AGRADEClDO HACIATr":G0SLJ6 91 OO 
1 034O SS="TE DA PR0V6SI0NES GRATIS* ":GOSUB 9100 
10342 SS-' PARAELVIAJE DE REGflESO"':GOSLJB 9100 

10344 GOSUB 920O 

10345 IFRND(1)<.75THEN10350 

10346 SS= "V50PERLAS!!*-:GOSUB910O 
10348 AO(1)=A0[1}+50 

10350 PRINT:GOSUB W 
10352 SI=KI:GOSUB9100 
10354 GET li:IFIS= '""THEN 10354 
10359 RETURN 

1O40O PRINT CHRSn47):G0SUB 9200 

1O405 IF RND(1K.?5 THEN 10450 

10410 SS= ' LA REVUELTA HA TRIUNFAQO* ' GOSUB 9100 

10412 PRINT:6OSUB920O 

10415 &S=''EL NUEVO JEFE T£ I^ECOMPENSA C0N*":GOSU8 910O 

10420SS=-PROVtSI0MESeRATUlTASPARAELViAJE*":G0SL;B910O 

10425 SJ^TEREGRESO.^-rGOSUBSlOO 

1 0429 A0(1 )-A0(1]+(0A[2) *30}:REM SUMAR PERLAS 

1043D 0A(2)=0 

10431 GOT0 10350 

10450 SS=''UR£VUE.TAFRftCASAy3e£>SlB9lM 

10452 mm^BO&Jbmo 

IW57 SS=1£QUaiAaBmOYI«BA^':GOSt^9100 



10458 SS=nODO!!'":GOSUB9100 

10459 PRINT:G0SUB 92O0 

10460 SS= " JUEGO TERMINAOO!! ^GOSUBOIDO 
10462 END 

10464 G0TtH0462 

Rutiita Fin del viaje 

10500 REM FIN DEL VIAJE 

10501 PRINTCHRS(147};GOSUB9200 

10505 S$=-CON UNTRIPULACIONFUERTE VVIENTOS*":GOSU89100 

10507 S$-"FAVORABLESELVIAJEOEREGRESO VA*":GOSUS9100 

10508 SS='^BIEN ¥ DURA SOLO 8 SEMANAS'^GOSUBeiOO 
1D512 WW-0 

10514 F0RT=1 TO 5 

1 051 6 WW = WW + [3* CC(T) ' WG (T)) 

10516 tIEXT 

10519 PRlNT:GOSUe 9200 

10520 SS= "FACTURASALARIAL PARA EL VIAJE DEREGRESO=*'':G0SyB 
9100 

10522 PRINTWW;"PIEZASDEORO'^ 

10524 PR1NT:GOSUB9200 

10526 SS= ' CUANOO RE6RESAS":G0SUB 910O 

10528 SS= '■ PARA VENDER TUS MERCANClAS'" :GOSUB 91 OO 

10530 SS= ■ ESTAS VALEN EWTONCES: * " :GOSUB 910D 

10532 PRINT-PERLAS- "iV^tDrPIEZAS DE ORG" 

10534 PRINT"FIGURILLAS'-'';V2t2)rPIEZAS DE ORG" 

10536 PRINT" ESPECIAS''''-V2[3);' PIEZAS DE ORG" 

10536 PRINT:SS-^OBTIENES UN TOTAL DE^ ' :GOSUB 9100 

10540 X=(AO(1)'V2{1))+(AO(2)*V2[2))+tAO0)*(V2(3J} 

10542 PRINT XjTlEZAS DEORO " 

10545 PRINT:St-K$:GOSUB9100:PRINT 

10547 GETIS:IFIS-"" THEN 10547 

1D550 SS=''AHORAPOSEES:'":G0SUB9100 

10552 PRIMTMO+X;"P!EZASDEORO^ 

10555 PRINTiGOSUB 92O0 

10556 SS= "LA FACTURA SALftfilAl PARA a VIAJE ES OE' 'iGOSUS 91 DO 

10557 PRINT WT+WWrPlE?ASDE ORO' 

10559 PRiNTiGOSUB 9200 

10560 SS=^TERIilNASBLVVUECOIt"'£06UBtieO 
106£2 Z-IID^X-WT-WW 

10565 PIWr^-fEZASDEmr 




mm f2>3B»TiBiss= > 

WSn f 2>1l3C©T«OISS= = i'l 
1 DS72 SS= 'MAS PATO Dll£ PlRATA' 
10573 GO5UB9l00:^D 



El viaje de regreso dura ocho semanas y se debe 
calculai la factura de salaries. Eo la linea 10512 se 
crea una variable, WW, que representa la factum 
salaria] para ei viaje de regreso. Su valor se calcula 
en e! bude que ernpieza en !a linea 10514. La for- 
mula multiplica el contador de cada categoria de 
tripulante, CC(T)j por el salario semanal para cada 
uno, WG(T), para producir la factura salarial sema- 
nal para todos los tripuiantes de esa categoria. El 
contador del bucle T asegura que este proceso se 
repita para cada categoria de tripulante, producien- 
da finaimente una factura de salarios semanal total 
para toda la tripulacidn. Para calcular la factura del 
viaje de regreso, este nuevo total se multiplicar^ 
por 8, y el programa imprimir^ la factura total para 
la travesia de retomo, 

Cuando el barco llegue a puerto se venderan las 
mercandas. Sus valores de mercado se establecen 
mediante la matriz V2(3) DIMensionada en la linea 
62. Estos valores se establecieron al azar al princi- 
pio del programa. Las Imeas 10532-10536 de la rutiv 
oa fin del viaje visualizan ios valores retenidos en 
esta matriz, para cada uno de los tipos de mercan- 
das Gomerdadas. 

La cantidad total de oro recibida por las mercan- 
cias comerciadas se calcula mediante la Moea 10540 
y se almacena en X. La formula utilizada para este 
calculo multiplica la cantidad de cada articulo, re- 
gistiada en la matriz A0(), por el valor de mercado 



actual almacenado en V2{). Se sum an los ingresos 
por las perlas, figuriUas y especias y se imprime el 
total. 

Es posible que al inicio del viaje no se haya gas- 
tado todo el capital original de 2 000 piezas de oro, 
Cualquier saldo se conservara a lo largo del 
viaje en la variable MO y se sumara al 
oro recibido durante ia venta; la can- 
tidad se visuaiizara mediante 
la line a 10552. La factura sa- 
larial total para el viaje se 
calcuia en la linea 10557 
sum an dole la factura sa- 
larial para el viaje de ^ 
Ida, W! , a la factura para 
el viaje de regreso. El 
programa calcula las ga- 
nancias comerciales res- 
tan do la factura salarial 
total de la cantidad de oro 
que haya en las areas. Por 
ultimo, se juzga io bien que 
se ha desempenado usted 
produciendo una clasificacion 
basada en el monto de los bene- 
ficios que haya obtenido. 
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El mejor 
lugar 



Iniciamos una serie dedicada a 
analizar en detalle ef sistema 
operativo del Sinclair Spectrum. 
Examinaremos, en primer lugar, 
el mapa de memoria 



A diferencia del BBC Micro, el Spectrum de Sin- 
clair no tiene una ROM dentro del ordenador re- 
serv^ada para el sistema operativo, puesto que un 
mismo chip alberga el interprcte del basic y el OS. 
Mds aiin, solo existe una version de esta ROM y el 
chip que la alberga es el mismo tanto en el Spec- 
trum como en el Spectruni-h, por lo que no se pue- 
den esperar muchos caoibios en el futuro. El OS es 
un conjunto organico de rutinas (de un tamailo la 
mitad que ei OS del BBC) que ocupa tan solo 7 K 
del chip del Spectrum que contiene la ROM de 
16 Kbytes. 

A pesar dc la falta de variantes y de la naturaleza 
compacta de !a codificacion, el OS del Spectrum 
presenta una desventaja respecto del OS del BBC 
Micro, Salvo mfnimas excepciones, no esta vectori- 
zado, por lo que resulta mas dificil alterar el trata- 
miento que hace el OS de ciertos eventos, Difi'cil 
pern no imposible, como tendremos oporlunidad 
de observar. 

Suponiendo que usted estudio los capitulos refe- 
rentes a! OS del BBC Micro , en este momento ten- 
dra una cierta familiaridad sobre el papel desempe- 
fiado por el sistema operativo en un ordenador. 
Como breve resumen, le recordamos que el OS se 
ocupa de todas aquellas rutinas de operaciones de 
entradas, salidas, visualizacion y almacenamiento 
en ficheros, interrupciones, y, en general, de toda 
operacion que haga de puente entre el hardv^are y 
el programa del usuario o el interprete de! basic. 
Comencemos analizando el mapa de memoria, que 
vemos ilustrado a ia derecha. 

El primer bio que de 16 K de la memoria esta 
ocupado por un chip de ROM que contiene el in- 
terprete del BASIC y ei sistema operativo. Grosso 
modo, el OS ocupa los 6 o 7 K inferiores de la 
ROM, y el interprete, ia parte superior restante, 
Cuando se em plea una Interface 1 , los 8 K inferio- 
res de la memoria se distribuyen en paginas de un 
mo do similar a la paginacion ya vista en el BBC 
Micro realizada cn cl area de memoria que va 
desde &8000 al &BFFF. Cuando se desea acccder a 
alguna de las facilidades que ofrece la Interface 1 
(microdrives, interface serial, red de area Icxal) ia 
ROM normal queda "despaginada" y ia ROM de la 
Interface 1 "paginada"- Pero de esto hablaremos 
detalladamente mas adelante. 

El resto del espacio de la memoria lo ocupa la 
RAM, y es de notar que existen muy pocas diferen- 




DatDs iitternos 

Estos ma pas de memoria de un 
Spectrum {o de un Spectrum +) 
ilustran ctmo afecta a ciertas 
dreas de (a RAJ^ el acoplamfento 
de una Interface 1 . E! ^rea para 
variables de sistema se extiande 
normalmente hasta 23733, pero 
supera esta posicidn cuando 
existe una Interface 1 



65536 
65306 



Graficos defin. usuario 
•. ^- ^ Espacio libre 



Plla GOSUB 



Plla Z-80 



Piia calculadora 
entraday ediclon 



Variables 



spacid programa 



STKEND 



;# "H^! 








23734 
23552 
23295 

22528 



163S4 
163S3 



Datos canal 



Variables sistema 



Buffer impresora 



Archivoatributos 



Graf icos defin. usuario 
Espacio libre 



Plla GOSUB 



Piia 2-80 



Pf la calculadora 



Espacio detraba jo de 
entrada y edicidn 



Variables 



Espacfo programs 



PROG 




CHANS 



PROG 



CHANS 



Datos canal 



JVlag: 



■as nnicrodrive 



Variables sistema 
ROM de Interface 1 



Variables sistema 



Buffer impresora 



Archivo atributos 



"^rcCvovisuaNza^^ 




ROM de la Interface 1, 
interprete de OS 
y def BASIC 



SPECTRUM 



lii!^ 

SPECTRUM CON 
INTERFACE 1 
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cias en el empleo de la RAM de un Spectrum cuan- 
do se esta utilizando la Interface 1. 

Si examinamos cada una de las secciones del 
mapa, el archivo de la vbualizacion (display file) 
almacena informacion sobre la forma de las figuras 
que han de %'isualizarse en la pantalla. Los datos 
referentes al color, BRIGHT y FLASH no estan en este 
archivo, sino que se almacenan en dfichero de atri- 
butos {attribute file) , ya que esta informacion corre- 
ponde a un cuadrado de caracter en la pantalla. El 
buffer para impresora {printer buffer) es un area de 
256 bytes que requiere la impresora ZX cuando se 
desea una copia sobre papel de la pantalla. 

Las variables del sistema son empleadas por el 
OS y por el interprete, de modo que puedan ins- 
peccionar lo que esta sucediendo en el sistema. 
Mas adelante estudiaremos algunas de las variables 
del sistema mas imprescindibles. En el mismo ma- 
nual para usuarios del Spectrum se encuentra una 
lista completa de tales variables. Lista que, por des- 
gracia, falta en el manual del Spectrum +, 

Aqui es donde se hacen mucho mas evidentes las 
diferencias entre un Spectrum con o sin Interface 1, 
Es evidente que la ROM de la Interface 1 necesita 
un espacio de trabajo y variables del sistema para 
sus tareas, de modo que cuando esta siendo em- 
pleada genera algunas variables extra, que son co- 
locadas a continuacion de las variables del sistema 
normales. 

Esto produce un efecto de "corrimiento" de toda 
la memoria cmpleada, con lo cual hay que realizar 
ciertos reajustes en consonancia. 

Los mapas para microdrive (microdrive maps) 
son asimismo tiplcos de la Interface 1, empleados 
tan s61o cuando esta vigila las ^reas ocupadas y no 
ocupadas de la cinta del microdrive. 

El ^rea para datos de canal (channel data) nos 
ofrece una forma reducida de vectorizaci6n para las 
instrucciones LLIST. LPRINT, INPUT# y PRINT#. 
A si, por ejempio, podemos escribir c6digo maqui- 
na para dirigir una impresora corriente y alterar los 
datos de canal para que cuaodo encuentre la ins- 
truccion L PR I NT o LUST obedezca a nuestro codigo 
maquina en vez de las habitualcs rutin as del intiSr- 
preie del basic. Tambien de esto hablaremos oon 
ma^TO extension. 

Los datos de canal tambien son empleados por la 
Interface L 

Llegamos ahora al espacio de trabajo del progra- 
ma en basic y de las variables, que el sistema em- 
plea para almacenar e! texto de un program a en 
BASIC y las variables requeridas por este. 

Los espacios de trabajo para edicion {edit) y en- 
trada (input) de datos sirven para obtener median te 
EDIT una linea entera de programa o para entrar 
datos y line as de programas. Una vez finalizada la 
edicion o la entrada del tcxto, las Ifneas de progra- 
ma se almacenan en su lugai especifico dentro del 
programa, quedando libres estas areas de nuevo. 

Encontramos despues on grupo de pilas. La piiu 
calculadora sirve al interprete del basic para sus 
operacioncs aritmcticas. La pila Z80 es utilizada 
por la CPU de modo muy seme j ante a como el 
6502 emplea la pagina uno de su memoria, es decir, 
le sirve para almacenar direcciones de rctorno con 
subrutinas en codigo maquina y datos que han si do 
Uevados a la pila para su almacenamiento tempo- 
ral. La pila GOSUB es otra de las partes de la memo- 
ria que utiliza el interprete del basic. Almacena las 



direcciones de retomo en las sentencias GOSUB del 

BASIC- 

Por ultimo, el area para graficos definidos por el 
usuurio retiene los datos de los caracteres que fue- 
ron, claro esta, definidos por este. 

Ddnde colocar el codigo 
maquina 

De cuanto se ha dicho hemos de concluir que no 
hay reservado en el mapa de la memoria espacio 
aiguno para los programas en codigo maquina. Es 
lo que sucede tambien en el BBC Micro si se le 
acopia una unidad de disco o una interface Econet, 
Tres son las areas posibles para colocar en el Spec- 
trum el codigo maquina. Estan en una sentencia 
REM de linea 1 (se puede averiguar la posicidn de la 
hnea 1 en la memoria a traves del valor retenido en 
la variable del sistema PROG). Si a este valor suma- 
mos cinco oblenemos la direcci6n del primer carac- 
ter en una sentencia REM de linea L 

Otras areas son el buffer para impresora y entre 
RAMTOP (parte superior de la RAM) y la parte de 
memoria usada para almacenar datos de graficos 
definidos por el usuario. Este ultimo metodo es si- 
milar al empleo de la memoria entre HIMEM y el 
inicio de la RAM de video en el BBC Micro. 

El cuadro que proporcionarnos a continuacion 
compara los metodos entre si: 



Sitio 




Spectrum e Interface 1 


REM linea 1 




V 


Buffer impresora 






Encima de RAMTOP 




✓ 



No utilizable cuando se emplea una impresora 

Vemos que solo la ultima posibilidad es utilizable 
en la practica, dado que los restantes metodos son 
arriesgados en determinadas ciicunstancias. Lo que 
se encuentra por encima de RAMTOP queda a saivo 
de una posible sobreescritura del basic, ademas de 
ser facil la reserva de espacio. La posici6n exact a de 
RAMTOP se retiene como una variable de dos bytes 
en las direcciones 23730 y 23731 . El valor se alma- 
cena en el formato corriente del Z80 (lo-hi). Para 
comprobar la posicion actual de RAMTOP haga lo 
siguiente: 

LET ramtop-PEEK23730+256*PEEK23731 

Una vez anotada la posicion de RAMTOP (que suele 
ser 65306 en un ordenador de 48 K "limpio"), se 
habran de calcular cuantos bytes se necesitan para 
el programa en codigo maquina. Despues de calcu- 
lar el valor que se obtiene mediante la formula 
RAMTOP-(n.° de bytes en el programa+1), se bajara 
RAMTOP con la instruccion CLEAR: 

CLEAR valor 

Esta instruccion, en un programa en basic, realiza- 
r^ un CLS, repondra la posici6n de PLOT y ejecutara 
un RESTORE. Limpiara, ademas, y reubicara la pila 
GOSUB. Por esta razon habra de habituarse a em- 
plear con cuidado la instruccion y a colocar la en lo 
posible al principio del programa, de lo contrario 
no evitara los problemas. 
Despues de ejecutar la instruccion CLEAR valor, ia 
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nueva posici6n de RAMTOP estarA almacenada en 
23730 y 23731 , y el primer byte disponible para su 
oSdigo maquina se encontrara en la direcci6n 
(valor+1). 

Asi, suponiendo una m^uina de 48 K limpiay la 
orden CLEAR 59999 reservara uoos 5 K de memoria 
para sm programas, comenzando por la posicion 
60000, 

Tras la reserva de memoria anterior, la instnic- 
cidn POKE puede servir para almacenar los bytes 
que componen su programa en la memoria. 

Variables del sistema 

Finalizaremos esta introducci6n sobre el OS del 
Spectrum repasando. algonas variables del sistema 
que contienen informacion sobre el modo como la 
memoria est^ distribuida en el sistema. El acceso a 
dichas variables ha de realizarse mediante PEEK o 
bien POKE referidas a las posiciones adecuadas, 
pues no existen equivalentes de OSBYTE u OSWORD, 
Uamadas que analizamos detail ad amente al estu- 
diar el sistema operativo del BBC Micro. 

• chars: Esta variable, situada en 23606 y 23607, 
apunta a una posicidn situada 256 bytes mas abajo 
de la informacion del conjunto de caracteres. Habi- 
tualmente la direccioo que alberga esta variable de 
dos bytes apunta a la direccion que esta en la ROM 
256 bytes mas abajo respecto a la direccion del pri- 
mer byte de la definicion del car^cter espacio 
(CHR$32). 

La direccion actualmente albergada en la varia- 
ble puede conocerse, como la de las restantes, de la 
siguiente manera; 

LET chars=PEEK 23606+ 256* PEEK 23607 

Si se desea, es posible alterar el valor contenido en 
la variable para que apunte a la informacion que 
defina un nuevo conjunto de caracteres, que puede 
almacenarse en la RAM. 

m vars: Se encuentra en las posiciones 23627 y 
23628, y con tie ne la direccion de inicio de las varia- 
bles del BASIC. Se pueden inspeccionar (PEEK) estos 
valor es pero no alterarlos, ya que "despistaria'' al 
Spectrum sobre sus propias variables. La line a: 

LET vars=PEEK 23627+ 256* PEEK 23628 
le proporciona la direcci6n de inicio de las varia- 
bles. 

• prog: Contiene la direccj6n de inicio del progra- 
ma eO BASIC. 

Es, pues, equivalente a la variable de sistema 
PAGE en el BBC Micro. Se halla en 23635 y 23636, 
por lo que si se desea conocer la direccion del co- 
mienzo del programa, haremos 

LET prog=PEEK 23635+256* PEEK 23636 
Es de notar que en este caso 

PRINT vars-prog 
nos dar^ la longitud del programa. 

• eline: Se encuentra en 23641 y 23642, Contiene el 
inicio de cualquier texto eotrado en el sistema. Se 
puede emplear para conocer la cantidad de memo- 
ria ocupada por las variables empleadas. Suponien- 
do calculada vars, escribiriamos 



LET etine=PEEK 23641 +256* PEEK 23642 
PRINT eline-vars 

para obtener dicha cantidad de memoria. 

• chans; Contiene la direccion del inicio de la in- 
formacion del canaL Situada en 23631 y 23632, es- 
tudiaremos con mas detalle el tema de los canales 
en proximos capitulos. 

• Stkend: Se encuentra en las posiciones 23653 y 
23654. Junto con el valor de RAMTOP, nos permite 
saber la cantidad de memoria libre para nuestro 
programa en basic y sus variables. Escribiremos, 
para obtener el valor de stkend: 

LET stkend=PEEK 23653+256*PEEK 23654 
Y para conocer la cantidad de memoria que queda: 

PRINT ramtop- stkend 
Tambien es posible conocer dicha cantidad median- 
te una rutina de la ROM. Pero este metodo no es 
tan exacto como el que acabamos de proponer. Su- 
poniendo calculado el valor de RAMTOP: 

PRINT ramtop-USR 7962 
nos calcular^ tambien el espacio libre. 

Hora del assembly 

Hay varios paquetes ensambladores para el usuario 
' del Spectrum interesado en profundizar en el 
cbdigo maquina. Uno de los mas conocidos es 
DEVPAC 3, de Hisoft, Distnbuido en cassette, 
incluye el ensamblador GENS3 y el 
monitor/desensambladorMON3. Existe tambien la 
V8rsi6n para microdrive. Aunque su empleo est^ 
muy extend id 0, no es de los mas c6modos del 
mercado, aunque tambien es verdad que resulta el 
mas barato. 

El Editor Assembler y el Spectrum Monitor (que 
incluye un desensamblador), de Picturesque, es un 
paquete doble, el primero a un precio algo mas 
elevado que el segundo, Una de las principales 
ventajas del sistema de Picturesque es que se 
puede acoplar muy bien a un Spectrum de 
16 Kbytes. Los manuales que acompafian a este 
paquete superan al de Hisoft, y el conjunto tiene un 
caracter mucho mas profesional 
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Vara para medir 



Una facilidad ausente en el Spectrum es ef medio 
para calcular la fongitud de un programa; esto se 
conslguB con PEEK, pero aquf va una pequena 
utilidad que se sirve de las variables PROG y VARS 
para calcular la longitud de cualquier programa en 
BASjc actualmente en la memoria, y la almacena en 
la REM de Imea 1 . Sdio exige que la primera Imea 
del programa sea una sentencia REM de al menos 
cinco caracteres, como, porejempio: 

1 REM 00000 bytes de largo 

cuando se ejecuta la rutina en c6d\qo m^quina, la 
sentencia REM sufre una modificacidn para 
contener la longitud del programa. Por ejemplo: 

1 REM 00801 bytes de largo 

Esto es basfante .itil, ya que a la siguiente vez que 
se examine el programa tendremos presents su 
longitud. El primer fragmento de codigo es un 
listado en assembly dei codigo maquina en 
cuestion. Si no posee un ensamblador 
conveniente, el segundo listado est^ en basic y es 
un programa utilizable en la carga del programa en 
codigo maquina. En el Cargadorde basic, CLEAR 
61 999 da ese numero como valor de la variable de 
sistema RAMTOP, Portanto, el primer byte ^1ibre" 
se encuentra en fa direccidn 62000, que bemos 



Listado assembly mm 




10 


ORG 


62000 


mm 


2A4B5C 


20 


ID 


HL, (23627} 




ED5B535C 


30 


LD 


DE,[23635J 


62007 


AF 


40 


XOR 


A 


6200B 


ED52 


50 


sac 


HL.DE 


62010 


DD2A535C 


60 


LD 


IX, (23635) 


62014 


DD23 


70 


INC 


fX 


62016 


DD23 


80 


INC 


IX 


62018 


0D23 


m 


rNC 


IX 


62020 


DD23 


100 


INC 


iX 


62022 


DD23 


110 


INC 


IX 


62024 


011027 


120 


LD 


BCIOOOO 


62027 


CD6BF2 


130 


CALL 


PRINT 


©030 


DD23 


140 


\m 


fX 


62032 


01E803 


150 


LD 


BG.IOOO 




C06&F2 


160 


CALL 


PRINT 




DD23 


170 


INC 


fX 






180 


LD 


BG,100 






190 


CALL 


PRINT 




Doei 


200 


\m 


IX 






210 


LD 


BCIO 






220 


CALL 


PRINT 


G2C7- 




230 


INC 


IX 


620S6 


5'Gfoo 


240 


iJO 


BC.1 


60OS9 


AF 


2S0 mm: 


XOR 


A 


62060 


67 


260 LI; 


OR 


A 


6206T 


ED42 


270 


sec 


HL.BC 


62063 


3803 


280 


JR 


CFINISH 


6206& 


30 


290 


INC 


A 


B2066 


18F8 


300 


JR 


LI 


62068 


09 


310 


FiNfSH:AOD 


HLBC 


62069 


C630 


320 


ADD 


A, 43 


62071 


DD7700 


330 


LD 


(rx}.A 


62074 


C9 


340 


RET 





empieado como direccion de inicio de la rutea 
codigo maquina, RAMTOPtendra estevaiortaA 
que no venga alterado can una instruccfonClBW 
n,o bien se ejecute una PRINT USR 0 e incluso si d 
ordenador se apaga y vuelve a encender . Esto 
quiere decir que NEW no afectara al valor de 
REMTOP, ademas de que la rutina en codigo 
maquina esta protegida de cualquier sobreescrrtura 
en BASIC mientras RAMTOP quedeinafterada, Una 
vez que el programa esta en la memoria, se emplea 
USR para ejecutar el c6digo maquina, B argumento 
de la funcidn USR {n) es la direccidn de la rutina en 
lenguaje maquina que desea ejecutar. Tal direccion 
puede estar en cualquier sitio en fa memoria. Asi, 
lo siguiente ejecutar^ ei codigo maquina en la 
direcci6n 62000, y cualquiera puede ser usado para 
ejecutar el programa en cddigo maquina que 
acabamos de ver: 

RANDOMISE USR (62000) 
PRINT USER (62000) 
LET L=USR {62000) 

Los m6todos con el PRINT y el LET con USR dan 
tambi^n resultados utilizables por el basic. Ef 
resultado es el valor contenido en el par de 
registros BC cuando fa rutina en codigo maquina 
termina y retorna al basic; asi , una rutina en cddigo 
maquina puede devolver los resultados al basic. Si 
su rutina no afecta al valor del registro BC, lo que 
se obtiene es la direccidn de la rutina. 



tomaVARSeiHL 
.toma PROG en DE 
limpia flag arrastre 
pone longftud progr. en HL 
inicio programa en IX 

mcrfiFiierta IX para que apunte 
al caracter post, a I Men REM 
de la primera linea M prog. 

infcio toma c6digos ASCII 
de cada digito de la long, del 
programa y lo alrrracena en 
la senlencia REM 



limpia CO nt. arrastre ycero 

resta poi^ncia (Je diez de 
la long, del programa... 
y salta si as negative 
sine lo esincrementaA 
repeticifin 

repone la long, del prog 

a va lor posilivo para 

la siguiente poterroia de dfez 

toma ef cddigo ASCII del digito 

lo almacena en REM 

fin 



10 REM 00000 bytes de largo ■ 

20 CLEAR 61099 

30 FORf=0rO74 

40 flEADa: POKE 6.2O0O+i a 

SO um \ 

1000 DATA 42, 75, 92, 237, 91, 83. 92, 175, 237, 62, 221 ^2 83 92 221 3S 
221 . 35. 221 , 35, 221. 35. 221, 35 J, 15. 39. 205 107 242^ m%i 
232, 3. 205. 107, 242. 221. 35 J ,100 0 ' 

1010 MJA 305. 107. 242, 221 . 35, 1. 10. 0, 2D5 107 242. ^ as 1 1 M 
175. 183, 237. 56. 56. 3 60 24 -5 9^ ^^f^i:^" 



Nota; Para asegurarse de que esta Ite 
locaiiza la posicion cornecta paratos 
indicadores de la longitud iM progm 
insartao espacios entiB ei fujmeniikta 
I y li nstmcxidn RBI (tan M 
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De la TV a la VDU 
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El ha: Winchester 



"Minder" (Guardian), programa 
producido por la firma Euston 
Films, es un original y 
entretenido juego 
Inspirado en una popular serle 
de la television britanica ^^^^^ 

El programa dc television Minder se ha convertido 
en uno de los mayores exitos de la televisi6n brita- 
nica de los ultimos anos, y su conversion al formato 
de juego quizas hay a llegado con demasiado retra- 
so (la serie comenzo a emitirse a mediados de los 
setenta). 

Minder se basa en los oscuros asuntos de Arthur 
Daley, conocido traficante de mercancias dudosas 
de todo tipo, y Terry McCann, su minder (guar- 
dian) y secuaz. En este juego usted represents el 
papel de Arthur, y el objetivo consiste en ganar el 
m^ximo dinero posible en quince dias mediante la 
compra y venta de mercancias. Con este fin, debe 
oontactar con otros comerciantes a quienes vender 
su mercancia. Con frecuencia tendra cosas bast ante 
peculiares que vender, como latas de subproductos 
antmales o ''ferkinators nucleonicos". Con igual 
frecuencia, los comerciantes le ofreceran una canti- 
dad demasiado reducida por los articulos y usted 
habra de rcgatear con ellos para Uegar a un acuerdo 
m^s razonable, 

Una de las mayores espinas de Arthur es el 
sargento-detective Chisholm, oficial del Departa- 
mento de Investigacion Criminal local. La iofluen- 
cia de Chisholm comienza cuando un comerciante 
interesado en comprarle algunos ordenadores per- 
sonales, que por casuaiidad usted ha adquirido, le 
informa que e! sargento-detectivc en realidad esta a 
la caza de ordenadores robados. Estas noticias, por 
supuesto, hacen que el precio descienda. 

Los problemas de Arthur se agravan aun mas si 
Chisholm se presenta en el *'calabozo" {lock-up: el 
almacen donde Arthur guarda sus mercancias) y 
encuentra los articulos robados. 

Para hacer negocios y cncontrar a Terry, a quien 
usted necesita para transportar sus mercancias 
desde v hasta el calabozo, per lo general habra de 
acudii'a Winchester, un club de bebedores. En este 
escenario, como en todos los otros del juego, hay 



Usiacleexlslencias 

hasta seis personajes con los que puede hablar. Sus 
rostros apareceran en uno de los marcos de alrede- 
dor de la pantalla, y para abordar a uno de ellos 
usted simpiemente pulsa la tecla correspondiente a 
ese personaje, 

Abordar a los personajes de Winchester no es 
realmente necesario, a menos que desee hablar con 
alguno en particular, como Dave, el barman, o 
Terry; la mayoria de los demas intentaran venderle 
mercancias tan valiosas como j aulas de caoba para 
conejos o trajes de polietileno para la lluvia. 

Aqui la estrategia es muy similar a cuando se 
trata de vender. Primero debe averiguar a cuanto 
est^ vendiendo estos articulos su contacto y que 
cantidad de los mismos posee, y despu6s puede em- 
pezar a regatear. Mientras negocia el precio, un 
reloj va niarcando el tiempo: el contacto se marcha- 
r^ si el trato no se cierra dentro de un cierto mar- 
gen. Si usted decide que ya no quiere legatear m^s, 
puede digitar BYE y esa persona desaparecera. 

Terry es un personaje algo esquivo y quiza no 
pueda estabiecer contacto con el durante algun 
tiempo, y cuando termina una tarea espera un 
favor a cambio: un trago o un premio, Por consi- 
guiente, cuando negocie un trato debe tener en 
cuenta que de los beneficios habra de extraer la 
paga de Terry, 

Sin duda alguna, la parte mas divertida de este 
juego es la negociacion. Mientras usted y su opo- 
nente regatean el precio, la pantalla visualizara una 
serie de comentarios como *'fantastica cahdad" o 
''pequeno y simp^tico negociante", Cuando usted 
ofrece un precio, es importante que lo digite con la 
sin taxis correcta, como "Estoy ofreciendo 200 pese- 
tas". De lo contrario, quiza el ordenador no le en- 
tienda. 

A diferencia de muchos juegos de esta clase, 
Minder es tan entretenido e interesante como la 
serie de television. Consigue captar con exactitud la 
tunica general del programa y sc hara popular tanto 
entre los amantes de los juegos como entre quienes 
conozcan la serie de television. 
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Inteligencia artificial/Aplicaciones 

Sistemas expertos 



Continuando con nuestra serie, 
centraremos nuestra atencion 
en los programas denominados 
''sistemas expertos" 



Un experto (on consejero hospitalario, un geologo 
o un analista quimico, p. ej.) suele ser una persona 
respetada. Los expertos dedican mucho tiempo a 
estudiar y praclicar la disciplina elegida para llegar 
a ejercer eficientemente su trabajo. La utilizacion 
de expertos hunanos prescnta, no obstante, algu- 
nos problemas por su escaso numero, su falibilidad, 
el pago de sus remuneraciones y, por supuesto, su 
calidad de mortales, qoe im plica, a la larga, la per 
dida definitiva de la destreza adquirida. Por 
este motivo es comprensible que a muchas empresas 
les atraiga la idea de codificar la pericia en programas 
de ordenador, para beneficiarse de poder trabajar con 
an gran cuerpo de conodmientos sin los inconvenien- 
tes propios de los expenos hamanos. 

El CO nee p to de smema experto nacio en los ano> 
setenta, cuando los investigadores en el campo de 
la inteligencia artificial abandonaron. o pospusie- 
ron, la creacion de maquinas inteligentes a nivel ge- 
neral y volcaron su interes en la solucion de proble- 
mas dei mundo real centrados en aspectos muy 
concretos. Por consiguiente, el sistema experto es 
uno de los primeros ejemplos de AI aplicada, y las 
teen ic as para sistemas expertos se han extend id o 
mucho mas alia de los confines de los labor ate rios 
de investigacidn en los que fueron concebidas. De 
hecho, en cierto modo los sistemas expertos han 
Jlevado a la AI al uso practico cotidiano. Existen ya 
sistemas que superan a los seres humanos capacita- 
dos en diagnostico medico, interpretacion de espec- 
trogramas de masa, clasificacion de enfermedades 
de cuhivos y otras muchas cosas mas. Es in teres an- 
te preguntarse, en consecuencia, como funcionan. 

Tipicamente, un sistema experto se basa en un 
amplio cuerpo dc conocimientos sobre un area pro- 
blematica especifica. En general, este conocimien- 
to se organiza como un con junto de reglas que per- 
mitan que el sistema extraiga conclusiones a partir 
de datos o premisas dadas, capacitandolo, en con- 
secuencia, para ofrecer un consejo inteligente o 
lomar decisiones inteligentes. Este enfoque al dise- 
DO de sistemas basado en el conocimiento represen- 
ts on cam bio evolutivo en la ciencia de los ordena- 
dores, con consecuenciasrevolucionarias. Sustituye 
a la tradicional formula de datos -\- algoritmo — 
programa por una nueva arquitectura centrada al- 
rededor de una base de conodmientos y un motor 
de inferendas, de modo que conodmientos + infe- 
rencia - sistema experto. Esta f6rmula es, obvia- 
mente, similar, pero con un enfoque lo suficiente- 
mente diferente como para tener profundas impli- 
caciones. 




Para saber qu6 es un sistema experto resulta util 
la siguiente Usta de verificaci6n de caracteristicas 
ti picas: 

• Un sistema experto se limita a un campo de peri- 
cia relativamente delimitado. 

® Debe ser capaz de razonar con datos inciertos y 
reglas no fiables. 

o Debe ser capaz de explicar su cadena de razona- 
miento de una forma exhaustiva. 

« Los hechos y los mecanismos de inferencia son 
'*separables": el conocimiento no esta codificado 
como parte de los procedimientos deductivos. 

(5 Esta disefiado para crecer por incrementos. 

<i Tipicamente se basa en reglas, 

• Su salida es un consejo o sugerencia, no tablas 
de cifras ni graficos. 

La palabra clave es "conocimiento". Esta claro que 
el objetivo de un sistema inteligente para resolver 
problemas es omitir la busqueda ciega o aleatoria. 
Para hacerlo, un sistema de ordenador ha de explo- 
tar la misma ventaja que tiene el experto humano 
en relacion al novato, es decir, la pericia o conoci- 
miento organ izado: el conocimiento de hechos, de 
reglas de inferencia y de estrategias de solucion. Un 
sistema experto total mente viable tiene cuatro 
componentes esenciales: 

1. La base de conocimientos. 

2. El motor de inferencias. 

3. El modulo de adquisici6n de conocimientos, 

4. La interface explicativa. 



En bitsQa consejo 
Los Sistemas que puecJr' 
adqoirir conocimientos 
expertos y otilizar escs 
conocimientos para o^'rr-r 
consejo o diagnbsticDs 
adquiriendo crecieote 
popularidad en muchas 
discfplinas, desde iameccr 
hasta iaagricuituray a. 
arQuitectura. Los sisters 
expertos, disenados pe-s : 
en un campo temcitico -'j* 
defimrtado, ofrecen a :s 
profesionafes un ser\'cc m 
consulta en linea para 2>'j3rs 
ensulrabajo 
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Sinopsis del sistema 

_Ur» sistema experto se com pone 
de varios modulos que permiten 
que eJ conocimiento pass del 
experto al usuario final. En 
prinnef tugar, el conocimiento se 
(tebe adquirirdel ode los 
experto s e incorporar a una base 
oe conocinnrentos. Para poder 
riacer pred i cc i o n es , da r co nsej o 
0 proporcionar un diagnostico, 
el sistema tia de ser capaz de 
extraer inferencias de la base de 
CO mi mientos, Por ultimo, la 
•ntsrlace explicativa per mite que 
ei usuario se comunique con el 
sistema con el fin de consultarlo 



que cmplean los expertos de ese campo), relaciones 
estnicturales (las interrelaciones de entidadcs de 
ios comptmcntes) y relaciones causales (las relacio- 
nes causa-cfecto entre los componentes). 

La tarea del ingeniero de conocimiento consiste 
en seleccionar los medios adecuados para almace- 
nar simbolicanientc tal informacidn, Se han desa- 
rrollado cualro metodos principales: 

• Reglas en formato IF.. THEN. La condicion espe- 
cifica algun patron y la conclusion puede ser una 
acci6n o asercion. 

• Redes semanticas. Estas reprcsentan relaciones 
entre objetos del dominio (p. ej., la ballena es un 
mamifcro) mediante enlaces entre nudos. 

• Marcos. Son estructuras de registros generaliza- 
das que pueden tener valores por defecto y pueden 
tencr codificadas acciones como los valores de cier- 
tos campos o ranuras, 

• Clausuias *'trompeta". Esta es una forma de 16- 
gica de predicado en la coal se has a el prolog y con 
la cual el sistema prolog ileva a cabo inferencias. 

Los primeros sistemas expertos utilizaban casi ex- 
clusivamente el foimalismo basado en reglas. Una 
regia dc muestra del sistema Mycin para el diagnos- 
tico de infecciones de la sangre es tipica de la es- 
tructura IF... THEN; 



Los cuatro modulos son criticos. Un sistema basa- 
do en el conocimiento puede carecer de alguno de 
ellos, pero un autentico sistema experto no puede 
carecer de ninguno. Hablaremos de estos cuatro 
modulos de uno en uno y explicaremos como Ira- 
bajantodos juntos. 

La base de conocimientos 

Los dos componentes fondamentales de un sistema 
experto son la base de conocimientos y el motor de 
inferencias. La base de conocimientos almacena in- 
formaci6n relativa al dominio del tema; sin embar- 
go, la informacion de una base de conocimientos 
no es el conjunto pasivo de registros y elementos 
que usted puede esperar hallar en una base de 
datos convencionai. En cambio, contiene represen- 
taciones simbdlicas de las reglas de juicio y expe- 
riencia de los expertos de una forma que permita al 
motor de inferencias extraer deducciones Idgicas a 
partir de ellas. 

La mayoria de los elementos de una base de co- 
nocimientos son no matematicos. Las dos dificulta- 
des fundamentals al desarrollar una base de cono- 
cimientos son la representacion del conocimiento y 
la adquisicion de conocimientos. El prirner proble- 
ma se refiere a la decision de como codificar el co- 
nocimiento de modo tal que el ordenador pueda 
utilizarlo. En general, se han de representar los ele- 
mentos siguientes: terminos del dominio (la jerga 



La infecclon que requiere una terapia es meningi- 
tis, y 

El tipo de infeccidn es fungal, y 

No se observaron organismos en la soluci6n coio- 

rante del cultivo, y 

El paciente no es un huesped compmmetido, y 
El paciente ha estado en una region donde los coc- 
cidiomycosos son end^micos, y 
La raza del paciente es negra de Asia o India, y 
El antigeno cryptococal en el csf no fue positive 



IF: 

t 

3. 

4. 

5. 

6. 
7, 

THEN 

Existen indtdos que sugieren que el cryptococo no es 
uno de los organismos que podrian estar productendo 
la infeccion. 

A partir de este ejemplo podemos ver que un siste- 
ma experto emplea ia jerga tecnica del area en el 
cuai fue disenado para operar; en este caso, la me- 
dicina. La construccion IF... THEN utilizada por el 
Mycin es, esencialmente, una serie de sentencias 
que se pueden determinar como falsas o verdade- 
ras. Por consign iente, las sentencias se pueden en- 
lazar mediante operadores booleanos, como AND^ 
para ayudar a su tratamiento por el ordenador. 
Con el fin de extraer la informacion requerida para 
realizar un diagn6stico, el Mycin debe establecer 
un dialogo con el usuario del sistema. Obviamente, 
al menos en este sistema, el usuario ha de poseer 
un cierto nivel de conocimientos en la materia, de 
modo que pueda comprender las preguotas del sis- 
tema experto y responder a ellas. 

Los mecanismos de inferencia consisten en m€to- 
dos de busqueda o razonamiento que permiten al 
sistema haliar soluciones y, de ser necesario, pro- 
porcionar justificaciones a sus respuestas, Existen 
dos estrategias de razonamiento globales: el enca- 
denamiento hacia adelante y el encadenamiento 
hacia atras. 

El encadenamiento hacia adelante implica tra- 
bajar hacia adelante a partir de la evidencia (o sm- 
tomas) hacia las conclusiones (o diagnosticos). En 
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un sistema basado en regias, simplemente implica 
emparejar las condiciones IF a los hechos, posible- 
mente por un orden predeterminado. El encadena- 
miento hacia adelante es facil de informatizar y 
adecuado para casos en los que de alguna manera 
se han de reunir todos los datos. Ejemplos de tales 
casos son aqueilos en los cuales los dates sc gencran 
automaticamente mediante un instrumento y en los 
cuales se ha de rellenar un formulario. 

encadenamiento hacia atras trabaja dcsdc ia 
hipotesis hasta la evidencia. El sislenia elige una 
hipotesis y busca datos para demostrarla o refutar- 
la. Se puede pragramar de una forma recursiva y en 
los sistemas de estilo consultivo conducen tipica- 
mente a una clase de diaiogo mas natural. El pro- 
blem a de que hipotesis seleccionar en cualquier si- 
tuacion dada aun no esta resuelto del todo y, en 
consecuencia, en la practica la mayona de los siste- 
mas emplean ana mezcla de cncadenamicntos 
hacia adelante y hacia afras. 

Los expertos son notoriamente conocidos por su 
incapacidad para expresar [:6mo llegan a sus con- 
clusiones, no necesariamente porque no deseen di- 
vulgar secretos sino porque muchos de sus procesos 
mentales se hallan por debajo del nivel de la cons- 
ciencia, a nivel intuitive, De mo do que la ad qui si- 
de n de conocimientos ha Uegado a considerarse 
como el principal cuello de botella en el desarroUo 
de sistemas expertos. Los expertos tienden, no obs- 
tante, a ser muy eficientes como cnticos. Pueden 
analizar un caso tomado como ejemplo y decir que 
decision habrian tornado ellos y, si se les solicita, 
criticar la solucion sugerida por un ordenador. Re- 
cientemente, por tanto, se ha dedicado mucha 
acencion a desarrollar herramientas de software 
que pennitan a un sistema experto iiiducir su pro- 
pio conocimiento a partir de ejemplos previamente 
dasLficados. En cfecto, este poder contribuye al 
proceso de adquisicidn de conocimientos, superan- 
do al mismo tiempo muchas de las dificultades que 
enusfia extraer conocimientos de los expertos hu- 
-2^y^ y la laboriosa tarea de codificarlos para el 
jT^z^i^^^ Aun aiando el sistema no puede hacer 
^ rzri. r ies^k una base de datos de casos a 
c2e:si£i ^ rfgtyi de decision) por si mismo, 
p^^ce 3Ci paed^ re^nar sii propia base de co- 
rsiicn^a^^s:* atx^afe mm penodD de "Dovidado" o 
^^r^^r^ ^ ^waAaadb apenir de siis enores. 



La interface explicativa 

Una de las cosas buenas del Mydn . ei Prospeaor y 
muchos sistemas expertos clasicos era que, si se les 
pedia. podian justificar sus conclusiones. Obvia- 
rrenie. oiando se esta poniendo en manos del or- 
- ia responsabilidad de decisiones de vida o 
^■sne, o iocioso de perdidas o beneficios, es escn- 
istipat d sistema explique su razonamiento. He 
aqm tm ejemfrto de como responde Mycin a una 
prefuiita WHY? (por que) formulada por su usuario 
(que un medico, no un paciente, y no aceptara 
diagnosticos a ojos cerrados sin mas' explicacion) . 
H diaiogo comienza con Mycin solicitando infor- 




Un buen consejo... 



Se entra al Wheat Counsellor a travel del sistema 
Prestel... 



La introduccidn fnicial penr - 
seiecdoneentre ^'coFisejo : 
temporada " o ' planificac:c 




El sistema formula entonces al granjero una serle 
de preguntas sob re cuyas respuestas basara su 
consejo... 



Habiendo interpretado las respussSss 
granjero. Wheat Counsellor aranse^^- -. 
valores de clasiflcacion para los d^^-e^^ 
tratamientos quimicos dispanibies 



t£i a iiienifigitis una infeccion adquirida en el hospital? 



[2.0] Esto ayudara a determinar los organismos (distin- 
tos a aqueilos obsetvados en cultivos o frotis) que po- 
dnan estar causando la infeccion, Ya se ha determinado 
que: 

[2.1] la infecdon que requiere terapia es meningitis, y 
[2.2] los organismos no se observaron en ia solucion 
colorants de este cultivo csf pendiente, y 
[2.3] el tipo de infeccidn es bacteriana, y 
[2.4] la neurocirugia no es ono de ios eiementos rele- 
vantes a partir de la historia ciinica da este paciente, y 
[2.5] la edad de este paciente es de mas de 10 dias. 
Por io tanto, si: 

[2.6] ia infeccion se adquino mientras ei paciente estaba 
hospitaiizado, 

entcnces existen indicios de que los organisnnos (distin- 
izs i aqueilos observados en cultivos y trotis) que po- 
cnaji eslar causando la infeccion son e. coii (0.75), 
est^ic»OG(Mmg-pos (0.3), pseudomonas-aeruginosa 
(0.3), HebsieHa-pneumoniae (0.5) 
— de la [REGU\ 545] 

Esta facilidad de expncaci6n es en realidad un reco- 
rridu parcial a trav6s del proceso de razonamiento 
del programa, expresado en la jcrga medica. Tales 
explicaciones se pueden producir de forma bastante 
rapida y economica en sistemas has ados cn regias 
(devolviendo las regias que se cstan empieando y 
sus predccesoras)^ lo que constituye un punto a 
favor de la codificaci6n del conocimiento basada en 
regias. Observe que las conclusiones llevan unidas 
estimaciones numericas. Estas en realidad no son 
probabilidades autenticas. Son estimaciones que 
permiten que el sistema trate con la incertidumbre 
de una forma coherente y produzca una lista orde- 
nada de diagnosticos probables en el analisis final. 
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Vista ampliada 



Examinemos los archives sobre 
losque operan las 
instrucciones del CP/M 



Ya hemos habfado sobre las extensiones de archives en 
CP/M, pero ahora vamos a estudiarlas con mayor profundi- 
dad. Como hemos podido ver, un archivo CP/IVl consta de 
m nombre primarto, que puede contener hasta ocho carac- 
teres, seguido por un punto y hasta tres letras, que consti- 
tuyen una ampliacion del nombre del archivo (si bien esta 
se puede omitir). Teoricamente, al nombre de archivo pri- 
mario usted puede anadirle cualquiar extension, pero algu- 
nas de estas estan resen/adas para fines especifEcos. Por 
ejempio, la extension COM esta resen/ada para archives de 
instruccion (COMmand) CP/M. Esta extension le informa al 
CP/M que on archivo con dicha extension se ha de anadir a 
la lista de instrucciones transitorias que se pueden ejecutar 
bajo CP/M. 

De modo similar, los programas en basic escritos bajo 
CP/M se deben aimacenar con la extension de archivo 
.BAS. Muchas versiones de basic que se ejecutan bajo 
CP/M suefen asignarfe esta extension de forma automatica a 
un archivo en basic, eliminando la necesidad de que ei 
usuario fa digite. Aunque ei programa en basic se almacena 
como un archivo fuente (texto), fa diferencia entre este ar- 
chive y un archivo de texto comun es que cuando el progra- 
ma se vuelva a cargar antes de su ejecucion, el CP/M distin- 
tiva el programa en basic en vez de listarlo como un archivo 
secuencial ASCIL Sin embargo, muchas maquinas compi- 
lan sus programas en basic antes de ejecutarlos. Los archi- 
ves connpilados ante^ de su ejecucion se almacenan con 
una extension .INT. Esta significa que son archivos INTer- 
mediarios que se componen de cddigo objeto. 

A los programas en cddigo maquina, como a los progra- 
mas en BASIC, tambien se [es pueden asignar varias exten- 
siones diferentes segun cual sea su estado. Cuando escribi- 
mos un programa en assembly, al listado fuente se le debe 
anadir la extension ASM. Si el programa no posee la exlen- 



Caracteres 
de control 
del CP/M 

El CP/M coniiene un cierto 
numem de caracteres de control 
para llevar a cabo muclias de 
sus funciones, Aunque varios de 
el los estan ya obsoJetos y se 
Implementan niuy raramente, se 
los consen/a en el sistema 
operative estandar para 
preservar la compatlbllldad entre 
diferentes ordenadores 



cmc 

CtflLC 
OTBLM 

CTRL I 
CTRL P 

CTRLU 
CTRLX 

CTRIM 

CTRL H 
CTRLE 

CTRL R 



Re-carga el disco de sistema CP/M 
Inicializa el disco tras su inserci6n 
Termina las instrucciones PIP y devuelve 
el control al CP/M 

Devuelve control a ED tras oper. de inser. 
Envfa las entr. a la impr. Volviendo a 
digitar CTRL P se canceia esta oper. 
Borra la linea en curso 
Borra la linea en curso y lleva al cursor de 
vuelva al principle 

Ejecuta la lineade instruccion en curso 
(utifizadoen lugarde RETURN) 
Retroceso/borrar 

Permite entrar 1 linea de instr. larga sin 
que se ejecute al flegaral final de la 1.^ I. 
Repite la linea de instr. en curso 



sidn comecta, el ensamblador reslcfente no intentara ensam- 
blar el programa y stmplemente generara un error de ar- 
chivo. 

Cuando intentamos ensambfar el, programa, debemos 
seleccionar una de dos extensiones. Estas son .HEX o bien 
.PRM. La extension HEX significa que lo que se produzca al 
final del ensamblaje ser^ un archivo objeto HEXadecimal. 
Por su parte, al ensamblaje con PRN tambien producira un 
listado impreso del ensamblaje con una copia del listado 
fuente, el codigo objeto, las direcciones de cada uno de los 
opcodes y la lista de aslgnaclones junto con una lista de 
errores. Por consiguiente, la extension PRN ofrece una 
ayuda esencial para la puesta a punto de programas en 
assembly. 

El ultimo grupo de extensiones de archivos que veremos 
aqui son aquellas relacionadas con los archivos de texto. 
Muchas versiones de CR'lVl poseen una pequeha facilidad 
para edicion de textos (a la que se llama ejecutando el archi- 
vo de instruccion ED) que se proporciona con ei propio 
sistema operativo, mientras que otras versiones dan por 
sentado que usted cuenta con un paquete especializado de 
tratamiento de textos ejecutabie bajo CP/M. No obstante, 
independientemente de la version que se este utilizando, las 
extensiones de los archivos son las mismas. 

Aparte de las extensiones de nombres de archivos reser- 
vadas que ya hemos mencionado, se pueden utillzar como 
extension tres letras casi cualesquiera. En realidad, no es 
necesario anadir ninguna extension en absolute. Si se guar- 
da (SAVE) un archivo de texto sin habehe anadido ninguna 
extension, a menudo el CP/M la ahadira por nosotros, Por 
ejempfo, la utilidad TEXTED ahadira la extension .TXT al 
final de un archivo, donde WordStar anadirfa .$$$. 



Archivos de seguridad 

Si, tras haber guardado (SAVE) un archivo de texto, usted 
observa el directorio, vera que se han creado dos archivos: 
uno con la extension de archivo que usted ha anadido y otro 
con el sufijo .BAK. Esta es una facilidad de seguridad incor- 
porada en el CP/M. Obviamente, es de importancia vital que 
los documentos importantes no se puedan borrar o co- 
rromper accidentalmente, de modo que para evitar hechos 
tan desastrosos el CP/M creara dos copias de todos los 
archivos de texto: un archivo nomnal y un archivo .BAK de 
seguridad. 

De este modo, si accidentalmente usted borra (ERA) un 
archivo al editado, siempre estara disponibfe la version de 
seguridad, gracias a la cua! su trabajo anterior no se habra 
perdido de forma irrecuperable. Cuando se ha editado y 
vuelto a guardar un archivo, tambien se creara una nueva 
version de BAK. Por lo tanto, es una buena Idea volver a 
guardar (SAVE) regularmente los archivos de modo que la 
copia de seguridad este siempre actualizada a la ultima ver- 
sion. 

A pesar de que no es necesario anadir extensiones, una 
vez implementadas resuftan una valiosa herramienta para 
organizar sus archivos; no solo en su propio beneficio (para 
visualizar informacidn sobre la organizacidn de archivos y 
encabezamientos), sino tambien para ia manipulad6n de 
grupos de archivos. Una de las mas utiles de estas manipu- 
laciones supone el uso de caracteres de '^mascara", que 
posibiiitan el emparejamiento de archivos. 
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Supongamos, por ejempio, que un director gerente ha 
escrito cierlo numero cfe memorandums en el mes de julio. 
Un tiempo despues quiza decida que estos archivos ya 
estan obsoletos y que ya no los necesita en so calalogo. 
Para suprimir tos memorandums de julio puede, por su- 
puesto, recorrer ef catalogo y borrar individualmente cada 
ijno de los archivos utilizando la instruccion ERA; [Dero si e! 
numero de archivos es elevado, este proceso sera largo y 
tedioso. Sin embargo, siempre y cuando hayatenrdo la pre- 
visi6n de darles a todos los memorandums del mes de julio 
la misma extension de archtvo, pongamos por caso. JUL, 
este proceso se podra llevar a cabo con una linica instruc- 
cion: ERA 0;* JUL (donde 0 es el nombre de unidad opclo- 
nal). La cofocaci6n de! asterisco antes del punto indica al 
CP/M que ignore el nombre de archivo primario y bon-e 
(ERAse) los archfvos que lleven la extension JUL. Este as- 
terisco tambiin se puede utilizar a la derecha del punto. 
Empleando asteriscos a ambos lados del punto, la instmc- 
cidn borrara todos los archivos de un disco, como ERA * .* . 



Supresion selectiva 

I z.z "' — r el director gerente consen/a todos 
Sl^ i r r s jfljo JUL. Ahora complicare- 

-loi i I : asimismo, que hay una canti- 

:2zie : I importantes que el no desea borrar. En 

2^ ess: i^Lz lugar al empleo del preffjo^ dado que 
ssfe borrana los archivos importantes de julio junto con los 
memofBTidums innecesarios. No obstante, nuestro director 
Q^ente ha diferenciado sus memorandums de otros archi- 
vos otorgandoles los nombres MEM1 JUL,MEM2JUL, y 
asi suoesivamente. E)e esia forma todavia es posible borrar 
todos los memorandums oon una sola instruccion m bo- 
rrar accidentalmente otros archros^ mecfaite d uso de b 
instruccion ERA D:MEM?JUL. Aqui se este itkSc^xJo di 
sistema operatSvo que bon^ todos los anchfvos que comien- 
zan por MEM y terminan con el sufijo JUL. El ? del cuarto 
^jgar le indica al CP/M que el cuarto caracter no es significa- 
tivo y que lo puede ignorar. 

Este proceso se puede adaptar a cualquiera de las once 
posibles postciones en un nombre de archivo. Es paiticular- 
mente titil en e! caso de que nuestro director gerente desee 
tcnar los memorandums tanta de JULio como de JUNio, 
dak) que ambos se reemplazarian por el formato 
MEM7.JU?. En on nombre de archive pueden aparecer 
combinaciones de * y ?, de modo que ERA D:????Q???/* 
borraria todos los archivos que tuvieran una Q en la quinta 
posicidn del prefijo. 

El empleo de los caracteres de "mascara" * y ? no esta 
initado a la instruccion ERA, sino que tambien se pueden 
usar con las instrucciones PIP, STAT y REN, entre otras. 
De modo que, para transferir un numero de archivos de un 
dfeco a otro, una instruccion tipica es PIP B:^A*/. Esta 
instmccfon buscara todos los archivos de la unidad A que 
coficuerden con el formato (que, en este caso, serian todos 
dtos) y los coplara en ef disco de la unidad B. De esta 
manera podemos utilizar caracteres de mascara" para co- 
par el contenido compieto de un disco en otro. 

rasts es'e '^omento, a lo largo de la serie hemos habla- 
X'^r"^:: "e3 oue seemplean para controlar el CP/M. 

a operative tambien hace un uso 
■ control para Ifevar a cabo mu- 
zas el caracter de control mas 
: lacion CTRL-C. La pulsacion 
-: "= una "carga en cafiente" del 
: - 3-- e CP M en el ordenador. Esto es 
: para volver a cargar el CP/M despues 
2 4uede a}igado, sino tambien al insertar 
jr dsoo nuew sn una de las unidades. 
*tecuatie que el CP M conserva una copia del "engan- 
tfii^d&fif disco en la memoria del ordenador. Cuan- 
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do intercambiamos discos en una unidad, debe informarse 
del cambio a! sistema operative, de lo contrario podria ge- 
nerar errores. Cuando hacemes una carga en caliente del 
CP/M, este reenganchara el contenido de cada unidad de 
disco, lo que nos permitira centlnuar. CTRL-C tambien se 
puede utilizar para interrumpir la ejecucidn de muchos pro- 
gramas, dado que el CP/M interrumpira automaticamente el 
sistema al reiniciaiizarse a si mismo. 

Muchos de los otros caracteres de control estan relacio- 
nados con ta edicibn de textos y los han adoptado numero- 
sos procesadores de textos que operan baio CP/M. Por 
ejempio, CRTL-H borrar^ el ultimo caracter, mientras que 
CTRL-U y CTRL-X borraran una Ijnea entera. SI se conecta 
una impresora, se puede enviar texto a la misma digitando 
CTRL-P, La pulsacion por segunda vez de CTRL-P inte- 
rrumpe esta operacidn. 

El CP/M utilza otros caracteres de control, muchos de 
los cuales han quedado obsoletos a raiz de los avances en 
materia de hardware y software. Existen varias razones por 
las cuales se han consen/ado estos caracteres, aun cuando 
sus funciones parecen haberse duplicado mediante otras 
tectas; por ejempio, ahora la mayoria de los ordenadores 
personales llevan instalada una tecia Delete. Una parte de la 
explicaci6n es de carader histdrico. Muchos de los prime- 
ros microordenadores no ten ran tecIa Delete o teclas para el 
cursor, de modo que las facilidades para edicidn en pantalla 
debian de estar incorporadas en el sistema operative. 

Otro motive para conservar el sistema es la compatibili- 
dad. Mientras que, con et correr de los anos, los caracteres 
CTRL y allabeticos han conservado sus equivafentes ASCII, 
puede que las tedas mas nuevas no los tengan: por ello, 
para preservar ia compatibtlidad, se han conservado los ca- 
mctares cie control. Por Mm, un usuario que se haya 
p^ido varios ^los con el CP;M se habra acostumbrado a 
lEaresias tedas. La aieraddn del sistema supondria que el 
usuario debeiia ahora volver a aprender el control desde el 
principio. 

Habiendo tenninado nuestro breve resumen de las ins- 
trucciones y archives tal come estan implementados en 
CP/M, estamos ya en condlctones de llevar a cabo la mayor 
parte de las funciones cotidianas utilizadas en el sistema 
operativo. 



Usando mascaras 

El uso de caracteres de 
"mascara" es una importanta 
caracteristica del CP/M. 
Entrando caracteres de 
"mascara'' en posicfones 
diferentes el ordenador, en 
efedo, ignorara los caracteres 
que haya en esa posicidn 
cuando busque en el directorlo. 
EHo significa que mediante la 
cuidadDsa asignacK^n de 
nombres de arcliivo, el jsuarlo 
puede manjpjiar listas enteras 
de archivos clasiflcados bajo 
encabezamlentos diferentes 



Tipos de "mascaras" 



FRADI?????5.BAK 




DIA10/05,BAK 

DIAGRM05.BAS 

DIA03/05.BAK 

DIA10/05.TXT 

DIA01/04.BAK 

DIA03/06.TXT 

DIA03/05.BAK 

DIA17/05.BAK 

DISPLY05.BAS 



Liz Dixon 
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Bricolaje/Trazador digital 



Garabatos digitales 



Finalmente, ofrecemos la 
segunda parte del programa del 
trazador para el BBC Micro 



La segunda parte del programa de! trazador contro- 
la el uso de este en una *'modalidad elastica". En 
lugar de simplemente ofrecer una funcion de di- 
bujo a mano alzada, cuando se selecciona la moda- 
lidad elastica se puede utilizar el trazador para es- 
pecificar los puntos dc origen y final de una linea, el 
centre y el radio de un circulo, o los tres vertices de 
un triangulo "solido". La sdccci6n de cada una de 
estas funciones, junto con una funcion de trazado 
de puntos, se realiza pulsando las teclas apropiadas 
a traves del menu visualizado en la parte superior 
de ia pantalla. De este menu se pueden seleccionar, 
asimismOj ias funciones Save, Load y Clear (lim- 
piar la pantalla), similares a aquellas para la moda- 
lidad a mano alzada mencionadas en el capitulo an- 
terior. Por consiguiente, esta nueva seccion permi- 
tc crcar patroncs complejos de una forma muy sim- 
ple, utilizando el trazador y algunas pulsaciones de 
teclas. Estos patrones se pueden guardar en disco o 
cinta para volver a cargarlos de nuevo. 

Los 4 procedimientos 

m PROCpunto 

La llamada a PROCdibujar (procedimiento ofrecido 
en la primera mitad del programa) con ffapart esta- 
blecida en uno, nos proporciona una forma sencilla 
de mover el cursor por la pantalla sin dibujar If- 
ncas. El cstablecimicnto dc flagart en uno asegura la 
selecci6n de la modalidad lapiz arriba antes de que 
se llame al procedimiento. Esta llamada esta inciui- 
da dentro de un bucle que tambien busca una pul- 
saci6n de tecla que podria terminar el bucle o utili- 
zarse para cambiar el color de primer piano, Ade- 
mas, si se pulsa el boton del trazador, se dibuja un 
punto en la poslcion actual del cursor y en el color 
actual del primer piano. Para evhar pulsaciones do- 
bles, el procedimiento no puede continuar tras ha- 
berse detectado una pulsacion del boton hast a que 
se libere el mismo. 

• PROCIinea 

La primera acci6n dci procedimiento es almacenar 
las coordenadas actual es del cursor, puesto que 
estas se emplearan para ubicar el extremo fijo de la 
line a elastica. Luego se borra el cursor y se traza 
una linca hasta un punto que corresponde a una 
nueva posici6n del cursor. Esta se traza en modali- 
dad de trazado Exclusive-OR, utilizando GC0L3. Si 
postcriormentc sc volviera a dibujar esta Imea, se 
borrana y todos los datos del fondo se restablece- 
nan a su condicion original. La calocaci6n de estas 
dos acciones de dibujo dentro de un bucle permite 
al usuario probar varias posiciones de hneaj como 



Instrucciones del trazador 



Menu princiiial 
Selecciaitar 

1 

2 

Menu de mano 

alzada 

Seleccioiiar 

S 
L 
M 
C 

Boton 

Menu elastico 
Seleccionar 

S.M.L,C 
P 



Funciiiii 

Modalidad de mano alzada 
Modaiidad ■elastica 



Funcion 

Guardar pant, en ctnta o disco 
Cargar pant, de cinta o disco 
Retornaral menu principal 
Limpiar pantalla 
Lapiz arriba/lapiz abajo 



Funci6n 

Igual que en mano alzada 
Trazar un punto en el color cfe 
primer piano actual. M. 
retorna al menu elastico 
Dibujar unalineaenel color 
actual de primer piano desde 
la pos, clef cursor al entrar 
hasta la pos. actual del cursor. 
Pulsar M 0 el boton para fijar 
la linea y retomar al menu elast. 
Relfenarun triangulo entre3 
puntos especificados mediante 
puis, del boton 
Dibujar un circuloenel color 
de primer piano actual. El 
centro esta dado por la pos. 
del cursoralaentraday e! 
radio variasegun la pos. 
actual del cursor. Pulsar M o 
el boton para dibujar el cfrculo 
y retornar al menu elastico 



Funcidn 

Selecciona el color fogico 1 
como color de primer piano 
(pordefecto: rojo) 
Selecciona el color Idgico 2 
como color de primer piano 
(pordefecto: amariflo) 
Selecciona el color Ibgico 3 
como color de primer piano 
(por defecto; bianco) 



Nota: Los colores logicos se pueden cambiar 
utilizando VDU 19paraelegirentre los 16 colores 
disponibles. P. ej., VDU 19,1,6,0,0,0cambiae[ 
color logico 1 por cyan (color real 6). El color de 
primer piano se puede volver a seleccionar en 
cualquier memento 



Colores de 
primer piano 
Seleccionar 

1 
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Trazador digital/Bricolaje 




si la linea fuera una ban da elastica fijada por un 
extremo a un punto fijo y por el otro al cursor de 
pantalla del trazador. Una vez satisfecho con !a po- 
sicion de una Imea, el usuario puede "fijar" la linea 
pulsando el boton del trazador o bien M en el tecla- 
do. En este caso el procedimiento omite dibujar la 
luiea una segunda vez, dejandola sin borrar, antes 
de retornar al menu principal. 

• PROCrellenar 

El procedimiento de relleno saca partido de la faci- 
lidad de relleno de triangulos del BBC, a la que se 
accede mediante el use de una instruccion PLOT 
85tX,y. Esta instruccion toma los dos ultimos puntos 
visitados y el punto especificado en la instrucci6n 
como los tres vertices de un triangulo y rellena la 
forma con un bloque solido de color. El procedi- 
miento se vale de un metodo similar al empleado 
en PROCpunto para permitir que el usuario trace los 
tres vertices del triangulo a rcUenar, utilizando el 
bot6n de) trazador. Las dos ultimas tineas del pro- 
cedimiento vueiven a visitar los tres puntos para re- 
llcnar la forma triangular. 

• PROCcirculo 

La liltima facilidad que ofrece e! programa permite 
que ei usuario especifique el radio dc un circulo uti- 
lizando el mismo metodo de banda elastica que el 
ampleado en PROCIinea. De hecho, precisamente 
para este fin se llama a PROCIinea desde el procedi- 
miento para dibujar el circulo. Una vez selecciona- 
do el radio, el control retorna a PROCcircylo, que 
antes que nada debe borrar la linea dejada por 
PROCIinea y borrar el cursor antes de dibujar el 
circulo. El centro del circulo se retendra en Xl y x2, 
las coordenadas del cursor al entrar en el procedi- 
miento, y PROCIinea proporciona las coordenadas 
de un punto de la circunferencia, (x2,y2). Utilizan- 
do estos dos puntos se puede calcular el radio del 
circulo y emplear un algoritmo estandar para 61- 
bujarlo. 




: suspropfasconclusianes 
: i ssgunda parte del programa Trazador digttai que 
; = : . . a la secddn del capitylo anterior, se puede 
"lit ::r para dibujar Ifneas rectas, circuJos ^triangulos 
: "sar visyaJIzaciones en pantalla como ^stas 



Prog. Trazador digital (II) 

2350 DEF PROCelastECa 
2360 PROCinforme_elaslica 
2370 REPEAT 

2380 respS=INKEYS(1):JFrespS<>"" THEN PROCpulsacion_elastica 
2390 Hagart=1:PR0Cdibujar 
2400 UNTIL flagsalida=1 
2410 ENDPROC 

2430 DEF PR0Cinforme_el3Stica 

2440 PROCcalc^y:arttx = x : anty = y; PROCcu rsor{antx, anty) 

2450 PROCreinfornnar 

2460 GCOL 0,1 :MOVE 0,920:DRAW 1 280,920 

2470 ENDPROC 

2480 DEF PROCreinfomnar 

2490 PRINT TAefl,1):SPCt79) 

2500 PRINT TAB(1J)r'S=SAVE L = Load M= Menu C= 

Limpiar R = CirculD" 
2510 PRINT" D=DibLijarlmea P^Punio F^ReJIenar 
2520 ENDPROC 

2540 DEF PROCpulsaclDn_elastica 

2550 IF re&pS="C" THEN CLS: PR OCinfornr»e_elastSca: ENDPROC 
2560 IFrespS=''M^' THEN llagsalida-l 
2570 PROCcambiar_color 

25a0 IF respS= R ' THEN PROCtitiJlo_circiJlo:PROCcircul{):PROCintorma_ 

ela$tica:ENDPROC 
LZ590,2600 

2590 IFrespS= D' THEN PROCtitulO_Jinea: PROCIinea 

2600 I F res pS = ' P ' THEN PROCtil LilO^punto : PR OCpunto : PROC I nf omi 

eJast»ca:ENDPROC 
2620 IF respS="S" THEN PROCgLjardar_pamalfa:PROCiJiforme^ 

elastica:ENDPROC 
2630 IF respS="L" THEN PROCcargar-^pantallaiPROCtnforme^ 

elastica: EN DP ROC 
2640 ENDPROC 
2660 DEF PROCtlturo^punto 
2670 PRINT TAB{1.1}SPC(79) 
26S0 PRINTTAB{15.1);"Mc}dalidadpijnto'^ 
2690 ENDPROC 
2710 DEF PROCpuntQ 
2720 REPEAT 

2730 f I agart = 1 : PRO Cd i b uja r 
2740 respS=INKEYS(1) 
2750 PROCcambiar^color 

2760 IF (ADVAL(O)AND 3K>0THEN PLOT 69. x,y: REPEAT UNTIL 

(ADVAMO)AJ4D3)-0 
S770 UNTIL resp$=^M" 
2760 PROCreinformar 
2790 ENDPROC 
2800 DEF PROCtitulo_Jinea 
2810 PRINTTAB(1,1)SPCf79) 
2820 PRINTTAe(15,1)rModaiidad linea": 
2830 ENDPROC 
2850 DEF PROCIinea 
2860 X1=x:y1=y:REPEAT 
2880 PRO Cca!c_Jty ; PROCcu rsor[antx, anty) 
2890 x2=x:y2=y:GC0L3,col(}LirM0VEx1,y1:DRAWx2,y2 
2900 respS=INK£YS[1) 

2910 IF{ADVAL(0) AND 3)<>0 THEN respS="M" 
2920 PROCcu rsortx , y) : antj< =x: a nty = y 

2930 IFrespSo-'M" THEN GCOL3.colour:MOVEx1 ,y1 :DRAW x2,y2 

2940 PROCcambiar—COlor 

2950 UNTIL respS='^M" 

2960 PROCreinformar 

2970 ENDPROC 

2990 OEf PRODitulQ_rellenar 

3000 PRINT TABf1,1)SPC{79) 

3010 PRINT TAB[15,1);' Modalidad rellenar" 

3020 ENDPROC 

3040 DEF PROCrellanar 

3050 F0RI=1T03 

3060 REPEAT 

30 70 f I ag art = 1 : PRO Gdibuja r; respS = I NKE YE(1 ) 
3075 IF respSo " "THEN PR OCca mb\ ar_co lo r 
3080 UNTIL (ADVAL(0)AND3)<>0 
3090 PL0T69,x,y;X(D=X:y(l)=y 

3110 REPEAT UNTIL (AOVAL(0)AND3)^0:REM ESPERAR SOLTAR 

BOTON 
3120 NEXT ! 

3T35 PflOCciiTsor(x.y):REM cursor apagado 

31 -iG -DH 1=1 TO 2;PL0T69,x(l),y(|);NEXT i 

3150 PLOT35.x,y 

3160 EXDPROC 

3130 0 EF PROCtitulo_ci rcuto 

3190 Pft]^fT TAB(1,1)SPC(79) 

32 00 PRI NT TAB [ 1 5 . 1) ; " MO DALI D AO 0 1 RCULO " 

3210 ENDPROC 

3230 DEF PROCcirculo 

3240 PROCiii^ea 

3250 SCOL3,colour:MOVEx1,yl:DRAWx2,y2:R£iVl BORRAFt 
LINEA 

3260 GCOLO,colour:REM VOLVER A MODALIDAD TRAZADO 

NORMAL 
3270 PROCcu rsor(x2,y2) 
3370 radio=SRQ((x2-x1)*2+{y2-y1)"2) 
3380 MOVExl + radiO^yl ' 
3390 FORan9Ulo=OT0 2*P3STEP0.1 
3400 0(=Kl+radiO"COS{an9UlO) 
3410 I7=y1 +radio''SIN[angufo) 
3420 ORAWrx.ry 
3430 NEXTangulO 
3435 DRAW xi+ radio .yi 
3440 ENDPROC 



El sigulente listado conslituye la 
segunda parte del programa 
para of trazador digital para el 
BBC Micro. Se la debe anadir a 
la primera parte del listado, 
of reel da en el capitulo anterior 
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Juegos 



Autopista 



He aqui un ejercicio peligroso, que desaconsejamos a quienes 
seen poco habiles. Esta escrito en basic para el micro Alice, de 
Matra. No olvide releer las lineas del listado 




Usted debe atravesar las cuatro vias de la autopista 
a una hora en que la circulacion es extremadamen- 
te densa. Afortunadamente un terraplen central le 
permite descansar un poco antes de iniciar la segiin- 
da parte de la travesia. Cada travesia finalizada con 
exito vale un punto. Si usted se estrella, pierde una 
de sus cinco vidas y el juego se reanuda despues de 
un pequeno intermedio musical. Pulse las ted as W 
para avanzar y 2 para retro coder. Un buen consejo: 
mire bien a ambos lados antes de cntrar en la cal- 
zada. 




5 REM ********************** 
10 REM * AUTOPISTA 

12 REM 

13 REM 

14 REMINICIALIZACION 

15 REM 

19 REMRESERVAESPACIOCADENAS 

20 CLEAR 250 
30 CLSO 

40 AS=" ' 
50 8S=" ' 
60 S=0 
70 NP-5 
80 P=367 
90 

-< = :--^ ^9i) 

"I 'V' \iCtAUZACIONCOCHES 

'z: =^T032 



190 - '^2 
200 " _i5 
210 Pn :r a ^23 
220 PRINT® P.PS 
230 X=RPJD(31) 

240 AS=RlGHTS(AS,X)-rLEFTS(AS.32-X) 

244 REM 

245 REM BUGLE PRINCIPAL 

246 REM 

250 PRINT® 352, 'VIDA(S) REST.'^;NP; 
255 REMDESPLAZAMIENTOGOGHES 
260 A$=RlGHT(AS,1) + LEFTSfAS.31) 
270 B$=RlGHT(B$,3l)-f LEFTS(ASJ) 
280 PR!MT@1283$; 
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290 PRINT® 256, AS; 

300 PRINT @1 60, A$; 

310 PRINT® 224, B$; 

315 REMMOVIMIEMTOJUGADOR 

320 D$-fNKEY$ 

330 P=P+32*((D$-"r)-(D$-'^W")) 
340 IFP>367THENP-367 
345 REMRUTAATRAVESADA? 
350 [FP=111 THEN 450 
360 C=PEEK{163S4-hP) 
365 REM PERDU? 

370 IFC<>96ANDC<>128ANDC<>191 

THEN 600 
380 PRINT® Pi;' 
390 PRINT @P,PS; 
400 P1= P 
410 D$=INKEY$ 
420 IFOSo" "THEN 330 
430 GOTO 250 

444 REM 

445 REMRUTAATRAVESADA 

446 REIVI 

450 PRINT® PI/' ^ 

460 PRINT® P,P$; 

470 SOUND 1,1 

480 FOR 1.0041 TO 200 

490 NEXT] 

500 PRINT® Pp^^ "i 

510 P-367 

520 P1-P 

530 S-S+1 

540 PRINT @0, 'JUNTOS :' ;S, 
550 PRINT "RECORD :";R 
560 GOTO 230 

594 REM 

595 REM PERDIDO 

596 REM 

600 NP=NP-1 

610 PRINT® P.CHR$(191); 



620 PRINT @ PI, " "; 

630 GOSUB1000 

640 IFNP-0THEN700 

650 P=367 

660 P1=P 

670 GOTO 230 

700 ]FS>RTHENR=S 

710 as 

720 PRINT 256;TUNT0S:";S, 
730 PRINT "RECORD :";R; 
740 PFilNT®330,''OTRA?'"; 
750 DS=iNKEY$ 
760 fFD$=" ^' THEN 750 
770 fFDS<>"N"THEN30 
7B0 END 

994 REM 

995 REMMARCHAFUNEBRE 

996 REM 

1000 SOUND 15,12 
1010 SOUND 15,9 
1020 SOUND 15,3 
1030 SOUND 15,12 
1040 SOUND 55,9 
1050 SOUND 45,3 
1060 SOUND 45,9 
1070 SOUND 15,3 
1080 SOUND 15,9 
1090 SOUND 1,3 
1110 D$-INKEY$ 
1120 RETURN 

2000 DATA 128 J 28, 151, 151, 155, 155, 128, 128, 12B, 128, 

128.151, 128.159 
2010 DATA 151 , 12B, 155, 128, 128, 128, 128, 128, 128, 128, 

151.128,155 

2020 DATA 128, 128, 128, 128, 147, 151, 155, 155, 128, 128. 

128,151,128,155 
2030 DATA 151, 128, 155, 128, 128, 151, 159, 159, 128, 128, 

128,128,128 
2040 DATA128, 128, 151, 128, 155, 151, 128, 155 



? 

i 
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El esperado regreso 
de Atari 



La f irma Atari hace su reaparicion en el mercado con el 
microordenador 130XE, que se destaca por su elegante diseho y 
sus 1 28 Kbytes de memoria 




El Atari 130XE es el primer 
producto qye la empresa lanza 
bajoladirecci^ndel actjal 
presidente, Jack Tramiel. Con 
128Kde RAM a bordo y a un 
precio que sale u)uy favored do 
frente at demuchos 
ordenadores con solo la mitad 
de memoria, Atari confia en que 
sea esta la maquina que ayude a 
la empresa a recuperarsu 
fofluna 



A pesar del hecho de que Atari fuera uno de los 
pioneros en el mercado del ordcnador personal ^ la 
prim era parte de ios anos ochenta no fue buena 
para esta firma. En 1984, tras sufrir severas perdi- 
das, se hizo cargo de Atari el ex director de Com- 
modore, Jack Tramiel, quien se aboco a la tarea de 
invertir la sueite del achacoso gigante de los orde- 
nadores. Su politica de comercializar tecnologia de 
ordenadores al me nor precio posible se hizo evi- 
dente enseguida en las tiendas, cuando los precios 
de los micros 6D0XL y 800XL dcscendieron sustan- 
cialmente de cara al mercado navideno. 

Esta jugada no fue suficiente para invertir la ten- 
dencia. Atari se enfrentaba a un circuio vicioso de 
la comercializacion de ordenadores; la disminucion 
de las ventas produce fait a de apoyo de software, io 
que a su vez contribuye a reducir las ventas aun 
mas Jo que significa escasez de fondos para invertir 
en maquinas nuevas. 

No deja de ser ironico cl hccho dc que fuera Jack 
Tramiel la persona que mas responsabilidad tuvo 
en colocar a Atari en esa critica posicion. Su agresi- 
va comercializacion del Commodore 64 hizo que 
Atari fuera casi barrida por su rival. A comienzos 



de 1985 la situacion estaba cambiando radicalmen- 
te. Commodore se encontraba con una caida de sus 
ventas y el fracaso del Plus-4 en producir un gran 
impacto en el mercado, micntras Atari anunciaba 
un sinnumcro de nuevos productos. La primera de 
las nuevas maquinas cs el Atari 130XEj un ordena- 
dor basado en el procesador 6502C. 

EI 130XE es esencialmente la misma m^quina 
que el ordenador Atari de ocho bits basico, que, en 
una u otra forma, ha estado en el mercado desde 
principios de los ochenta. La principal diferencia 
entre esta maquina y los primcros ordenadores 
Atari es el elegante nuevo estilo y la cant id ad masi- 
va de memoria: el Atari 130XE posee 128 K com- 
pletos dc RAM, 

La carcasa del ordenador tiene un aire may dis- 
tinto al de sus predecesores. La armaz6n externa , 
ligera y de plastico gris, posee el elegante dtseno 
que el publico espcra de un ordenador moderno, 
con Imeas redondeadas y tcclas anchas y esculpidas 
que facilitan la digitacidn. Las teclas poseen un re- 
corrido ligeramcnte mejor que el que ofrccfan los 
modelos anteriores, con la ventaja adicional de no 
traquetear cuando uno escribe. 



1789 



Hardware/Atari 130XE 



Al igual que los otros micros Atari basados en el 
6502, el 130XE posee cinco teclas de funcion pre- 
programada. Sin embargo, a diferencia de los mo- 
delos pre\1os. estas se han colocado cncima del te- 
clado principal en vez de sobre el lado derecho. 
Ahora estan moldeadas en el mismo plastico gris 
que el resto de la carcasa y estan disenadas en una 
elegante forma de paralelogramo y no de cuadra- 
dos. Estas representan una gran mejora respecto a 
las de ia serie XL, que eran de metal y su tacto era 
claramenie inestable e inseguro. 

Conexiones de interface 

Las interfact^s instaladas atras y a la derecha del 
nuevo Atari tambien dcparan pocas sorpresas. En 
el costado estan las esperadas puertas para palanca 
de mando tipo D de nueve patillas utilizadas por 
Atari y adoptadas desde entonces para casi todas 
las maquinas. En la parte posterior de la maquina 
esta ]a puerta de control en serie de 13 patillas que 
emplea Atari para acoplar y cnlazar en margarita 
perifericos tales como aparatos de cassette, unida- 
des de disco e impresoras. A la derecha, insertadas 
eo la carcasa. estan las interfaces para cartucho y de 
ampiiadon. 

La puerta para cartuchos permite a la maquina 
ejecutar la vasta cantidad de cartuchos de juegos 
Atarisofi, como Facman y Galaxians, que con el 
correr de los anos han sido uno de los punfos fuer- 
tes de la empresa. 

La puerta para ampliacion, sin embargo, se apar- 
ta un tan to del estandar anterior. Uis primcros or- 
denadores Atari tenian como bus de ampliacion un 
coneaor marginal de 50 vias. La maquina nueva 
tiene insialada como conector de cartuchos un bus 
mucho mas pequeno, de 14 vlas. Las interfaces res- 
tanies del 130XE son el conector para monitor 
compuesto. un enchufe hem bra RF para aparatos 
de tele% ision y el conector para fuente de alimenta- 
cion Atari estandar. 

Una gran memoria 

La elegancia del estilo y la compatibiiidad estan 
muy bien. por supuesto, pero Atari tambien las 
habia aplicado a la serie XL sin ningun cxito llama- 
tivo. Lo que distingue al 130XL de las primeras ma- 
quinas y lo que cons tit uye su evidente punto fuerte 
de ventas. es la disponibilidad de una gran cantidad 
de memoria a un precio reducido. Un microproce- 
sador de ocho bits, por supuesto, puede direccionar 
s61o 64 K de a la vez. Para direccionar el 

doble de esa cantidad, el ordenador ha de hacer 
uso del proceso que se conoce como conmutacion 
de bancos. Utilizando esta tecnica^ el ordenador 
puede "mirar" una ventana de 64 K de los 128 K 
total es. Si bien la tecnica no es per fe eta, y aunque 
las instrucciones extras necesarias para conmutar 
de un banco de RAM a otro conducen a unas veb- 
cidades de recuperacion algo mas lentas, si permite 
que un micro de ocho bits direccione mas memoria 
de la que, en otro caso, seria posible. 

En la actu alidad la tecnica de la conmiitaci6n de 
bancos es mas comun de lo que cabria pensar. 
Tanto el Oric Atmos como el Commodore 64 in- 
corporan mas de 64 K, y ambos utilizan la conmu- 
tacion de bancos como un medio para hacer un uso 
cabal de la memoria disponible. 



La unica diferencia del 130XE 
respecto a las puertas para 
perifericos de los Atari 
anteriores es la ranura para 
ampiiacion 

Conector 
RF 

Ei control RF est^ configurado 
de acuerdo ai estandar 
nortearrericano. Pbr io tanto, 
el cabie de ia antena viene con 
una caja ad i clonal que 
contiene ia iogica para 
adecuarse al estandar europeo 

Chips 

de RAM 

Losl28KdeRAM estan 
aimacenadosen estos dos 
bancos de chips de 8 K 



Chip de control de 
memoria 

Esle nuevo chip, bautizado 
como " Freddy'\ contiene ias 
rutinas de gestion de memoria 
y conmutacion de bancos 



Chips 
de graficos 
Los chips ANTiCyGTiA 
controian los graficos en 
pantalia del ordenador 



CPU 

Al iguai que todas las 
nidquinas anteriores de Atari, 
ei 130XEest^basadoen ei 
procesador6502 
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I para cartuchos 
La puerta para cartuchos 
permite al ordenador 
aprovechar la amplia gama de 
software Atari 




Puerta para perif^rlGos 

A travesdeesta interface en 
serie se pueden conectar entre 
sf en margarita los perifericos 
Atari, tales como unidades de 
disco e impresoras 



Puertas para palanca de mando 

El ordenador esta eq jipado 
con un par de puertas para 
patarcade mando que, 
naturalmente, respondenai 
estandar Atari 



Crilp m 

Un chip 6520 gestiona eJ 
controi de entrada/salida 



Chip de sonido 

Ei chip "POKEY " es 
responsabfe de fas 
capacidades de sonido de 
cuatrooctavasdef 130XE 



Lo que es inusual en cl 130XE es so precio. Aun- 
que mas caro que el Sinclair Spectrum y el Acom 
Electron, el 130XE es considerablemente mas eco- 
nomico que los precios de lista del BBC Micro y el 
Commodore 64. Para poder proporcionar un orde- 
nador de 128 K a ese precio y obtener beneficios. 
Atari necesita recortar de forma considerable los 
costos de prodiiccion, Hasta cierto punto, la natu- 
ralcza de la maquina en sf misma ha mantenido re- 
ducido el precio: el 130XE es, esencialmente, una 
maquina remendada, la que significa que los costos 
de desarrollo se han mantenido en un mfnimo. Las 
economias mas importantes han tenido lugar cn cl 
interior de la maquina. 

Recortando costos 

El area de memoria comprende 16 chips de RAM 
de 8 K. El costo de produccion de estos chips, que 
ya no se consideran como un producto de la ''tecno- 
iogia de vanguardia", ha caido dramaticamente en 
los ultimos anos y esto se ha refiejado en el precio. 
Otra forma de reducir los costos es mantener en un 
mmimo la cantidad de componenles dc la placa. 
Aunque muchos de los chips de la anterior serie XL 
se han incluido cn el 130XE con el fin de preser\^ar 
la compatibilidad, el trazado de la placa de circuito 
impreso es excepcionalmente bueno, y ofrece un 
aspecto mucho menos abarrotado que el de muchas 
maquinas cuya capacidad de memoria es de apenas 
la mitad. 

For ultimo, la finna Atari ha hecho fuertes inver- 
siones eo plaotas de ensamblaje automatizadas, de 
Im cuaies el 130XE es el primer producto. Todos 
los componentes de la placa se sueldan mediante 
maquinas. 

Dado que, en esencia, no se ha alterado ninguno 
de los chips de ROM, de graficos y de sonido, para 
el usuario el ordenador es exactamente el mismo 
que los modelos anteriores, con los excelcntcs gra- 
ficos y sonido que son propios de Atari. Uno de los 
cambios fundamentales que redundan en beneficio 
del usuario es el manual. Los man u ales de con suit a 
que acompanaban a los modelos anteriores estaban 
simplificados hast a cl pun to de que parecian estar 
dirigidos a ninos. El tutor de basic esta muy mejo- 
rado y la emprcsa ha ofrectdo en el apendice algu- 
nas especificaciones tecnicas. No obstante, para 
una explicacion completa sob re el dialecto, conti- 
nua siendo necesario adquirir el Manual de Refe- 
rencia del basic Atari, 

Aunque la gama de micros Atari reclama una 
mejora urgente, la Uegada del 130XE es en cierto 
modo un enigma. Los 64 K extras de RAM le pro- 
porcionan al program ad or muchisima mas memo- 
ria, pero sin embargo aun no hay ningun programa 
disponible para sacar partido de ellos^ aun teniendo 
en cuenta la compatibilidad con el software Atari 
ya existente en ei raercado. Normalmente, uno es- 
peraria que el lanzamiento de una maquina como 
^sta fuera una maniobra preliminar a una seria 
arremetida destinada al mercado de pequena ges- 
ti6n. Sin embargo, la nueva direccion de Atari ha 
negado taxativamente que tu vie ran esas intencio- 
nes. Quiz A la verdadera razon del lanzamiento del 
130XE es que Atari pretendia anticiparse al lanza- 
miento del Commodore 128^ una maquina compa- 
tible con el Commodore 64 que tambien posee me- 
moria extra pero cuyo precio es mas elevado. 



ATARI130XE 

DIMENSIONES 

350x 233 x63 mm 

GPU 

6502Goperandoa1,79MHz 
MEMORIA 

128 Kde RAM,24KdeR0M 
PANTAUA 

Vrsualizacion de textos de 40x24, 
320x192 pixels (alta resolucion) 
con 256 col ores disponibles 

INTERFACES 

Puerta para cartuchos, enchufe TV, 
conector para monitor compuesto. 
dos puertas para palanca de mando, 
puerta de entrada/salida en serie, 
interface paraampliacion 

: lUAJESmSPONIBLES 

BASIC Atari, logo, forth, pilot 

TECUDU 

62 teclas, incluyendo cinco teclas de 
funcfCn preprogramadas 

DOCUMEHTACraH 

El manual ofrece una explicaoidn 
completa sob re el basic Atari, si bien 
el tone general sigue siendo de una 
simplificacion excesiva. En el 
apendice se ofrecen explicaciones 
sob re las caracterlsticas de las 
interfaces y como conmutan fos 
otros 64 Kde RAM 

VENTAJAS 

El 130XE posee la ventajadeofrecer 
los puntos fuertes ya tradicfonales 
de Atari, y posee 64 K adicionales de 
RAM que se pueden utiiizar como un 
"disco de silicic" para 
almacenamiento y recuperacfdn 
r^pidos 

DESVENTAJAS 

El ordenador no resueive el 
probiema b^Sico de Atari, el de 
carecer de una ampira base de 
software de ffrmas indepandientes. 
El hecho deque el ISOXEsea 
esencia I men te una version remoiada 
de una maquina que lleva ya varies 
anos en el mercado, podn'a indicar 
que no generarael interns qyetarsto 
necesita la empresa para reafirmar 
su futuro financiero 
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Haciendo cola 



NJ001 



cola [[persona , ijersona , persoJiaj). El- 
obi'etivo anginal del mm, 
determiFiado porelusuario 







El 












biisca 




; . - 


en su. 






, base de 






datos 
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cola ([pe rsonal) 



A coia[[personaJJ IX]}:- 
/ y co(a[X) 



LlevancFo a Dabo una busqueda del 
primsro m proftindidad, el prolcg 
enctierrtra una pare[a en el nudo 1 Iras 
establGCer !a variable X en 
[persoria, persona}, ahora.la claiisiila 
reza: colaf [persona I 
[persona, pEfsona})):- cola 
(Ipersona, personal) 



Aliorael prolog esiablece 
cola ([persona, persona]} como sti 
obfelivo, parapoderdemostrarciue 
cola([persona i [persona.personaj]} 
esverdadera... 



£1 
mm 
tiusca 
en 3u 



Busqueda 
profunda 



A la liDra de pre gun tar 

Este diagrama de flujo muestra 
al PROLOG en accion, 
respondiendo a una sencilla 
pregynta formulada porel 
usuario. Observe que durante la 
ejecucion del programa, a la 
variable X se le dan dos valores 



diferentes, manteniendo, no 
obstante, ambos valores. 
Esto es posible porque el 
PROLOG trata a las variables 
como locales de cada 
invocacidn separadade 
una clausula 



Mientras que lenguajes como el Bv\sic y 
cl PASCAi. poscen tlujos de control 
secuenciales, pasando el control de 
sentencia en senlencia por estricto 
orden de arriba abajo {a mcnos que un 
buck o un GOTO lo inter runipa), en 
PROLOG el flujo de control asume la 
forma de una busqueda del primero en 
profundidad a traves de las clausulas del 
progrania. 

Pensemos en el programa como un 
arbol, con el objetivo (proposicion) a 
demostrar en la raiz y todos los 
subobjetivos como puntos de eleccion 
donde se dividen las ramas inferiores. 
Existen muchas formas de buscar en un 
arbol como este, pero el metodo que 
em pie a el prolog consist e en tomar la 
rama situ ad a mas a la izquierda y 
seguirla hast a la mayor profundidad 
posible- Mientras va probando cada 
rama. marca su recorrido, y cuando 
Uega abajo y no puede seguir adelante, 
retrocede hasta el punto de eleccion 
mas proximo, tomando la rama situada 
mas a la izquierda que aun no haya 
tornado y continua su avance a partir de 
alH ■ De esta forma, el sistema explorara 
todos los caminos a traves del arbol y 
habra intentado todas las formas 
posibles de demostrar el objetivo 
situado arriba de todo. 

Una busqueda del primero en 
profundidad que sea exhaustiva, ofrece 
plenas garantias de cubrir todos los 
caminos, pero puede llegar a scr un 
asunto muy largo. De hccho, el prolog 
consigue ahorrarse a si mismo algo de 
trabajo. Una clausula del prolog es, 
como ya hemos visto en el capftulo 
anterior, una regla que dice que el 
objetivo del encabezamiento es 
verdadero y los subobjetivos tambien: 

Objetivo: -subobjetivol ,subobjetivo2, 
subobjetivos... etc. 

y asi sucesivamente. Frobablemente 
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esto se comprenda mejor asi: 

IFsubobjetivol es verdadero 
AND subobietivo2 es verdadero 
AND subobjetivos es verdadero 
AND etc. 

THEN objetivo es verdadero. 

Dado que los objetivos estan 
relacionados entre si mediantc AND, 
toda la clausula fracasara si no se puede 
demostrar alguno de ellos, De modo 
que el prolog va trabajando a trav6s de 
los subobjetivos de izquierda a derecha 
y, si no consigue demostrar alguno, 
abandon a en esc punto y ya no sc 
preocupa por el resto. 

El rctroceso puede hacer que los 
programas se com port en de una forma 
que haga que el orden por el cual estan 
escritas las instrucciones sea casi 
irrelevante. Sin embargo, la ventajaes 
que el flujo de control, en vez de ser 
una cuestion fundamental como lo es en 
BASIC, tiene una importancia solo 
menor, dcj an do que us ted se concentre 
en la estructura logica de su problema. 

El hincapie que hace el prolog en 
una sentencia "declarativa" del 
problema no significa que usied no 
pueda ver comportarse a sus programas 
de forma procesaL La clausula en 
prolog: 

marciano{X):"num. de extremidades 
{X7),num. de cabezas (X.2), 
sabe programar en (X.cobo!). 

se puede leer declarativamente como: 
''X cs un marciano si X posee 7 
extremidades, dos cabezas y sabe 
programar en cobol" , Su lectura 
procesal seria: ''Para demostrar que X 
es un marciano, demostrar primero que 
posee si etc extremidades, luego, que 
posee dos cabezas, iuego, que sabe 
programar en cobol" . 

El prolog no tiene una "tipologia" 
tan severa como la ma von a de los otros 



lenguajes- Tampoco es exigenle cn 
cuanto a los tipos dc datos de los 
argumcntos de sus terminos. De modo 
que el termino pred(Argumento) se 
podria utilizar en ocasiones diferentes 
con la variable ArgumentO establecida 
como entero, como un ''atomo'' (como 
marty, venusiano, d24, etc), o como una 
lista. No obstante, el prolog trata a sus 
tipos de datos de formas diferentes, 
permitiendo, por ejemplo, manipular 
numeros aritmeticamente. 

Quien este familiarizado con el logo 
o el LISP ya se habra encontrado antes 
con el tipo de datos lista y las formas 
especiales que se emplean para 
manipular listas. En prolog una lista se 
escribe encerrada entre corchetes con 
los elenientos de la lista separados 
mediante comas. De modo que 
[manzana.pera, banana] es una lista de 
frulas, [a,f,e,g,r,x] es una lista de letras y 
asi sucesivamente. 

Para penetrar en las list as, el prolog 
nos permite separar un elemento por 
vez mediante la supresion del primer 
elemento. La notacion [Encabezamiento/ 
Cola] describe una lista con el eiemento 
Encabezamiento y cl resto de la lista en la 
lista Cola. La aplicacion de a nuestra 
lista de frutas nos dara [manzana I 
[pera, banana]], Como puede ver, las 
listas pueden tener como miembros a 
otras listas. Como caso especial, si 
tomamos la lista [z80] con un elemento 
y la descompo nemos con 1, obtenemos 
[z80 I []]. La Usta de la cola es [], que 
represent a la Usta vacia. 

El PROLOG permite la recursion que, 
en realidad, es el estilo normal de un 
programa en prolog. Una definicion 
recursiva es aquella que define algo en 
terminos de si mismo. En prolog 
podriamos escribir: 

cola([persona]). 
cola([personalX]>;-cola(X). 
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cola(fpefsonal) 
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^ cora[[persona|)IXj):- 
/ \ ■ cola[X) 



En el nudo 2 se ha hallado una pareja 
y, trasestabtofavariableXen 
[personajja clausula reza: 
[:a]a(jpefSona 1 [personal}):- 
colailpersoitaj) 



Ahona el pm% eslabJece 
coja((persona]) mm suobjellvo, 
pafa demostrar que rala{,[persoia I 
[persona]]) esverdadera... 
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A 
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^ coJa((personaj) fXj)> 
/ \cofa[X) 
f \ 
t \ 



InmnnSWeriCLieritra una 

parpMWm, deiTiGslrantfoque 
co!a{[persona] } es verdadera por 
consiguiente, que coJa(lpersona I 
[perso rallies verdadera, 
cola( [persona I [persorta, persona])) 
verdadera, y cola ([persona .persona, 
persorta|)es verdadera 
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Cuando hay dos o mas clausulas, como 
teoemos aqui ^ que posecn cl mismo 
encabezamicnto, se dice que se trata de 
un procedimimto. El p race di mi en to 
cola tiene una clausula que define a una 
cola como una lista que posee un 
elemento, persona, Luego posee una 
segunda clausula que nos informa que 
una cola tambien podna ser una lista 
con el elemento persona cn el 
encabezamicnto y con una lista llamada - 
X como su cola. Luego, a partir del lado 
derccho de esta clausula, vemos que X 
debe ser una cola. Si ie damos al prolog 
un objetivo como: 

cola([persona. persona, persona]). 

solicitaodole que nos diga si la lista 
[pefBom,pefsofia.pefsoiia] es una cola, 
primero bii^:a en su base de datos una 
clausula para emparejar con nuestro 
objetivo. La primera que hallara sera 
COi a( [ p e rs 0 n a] ) . Es ta no co ncuerda 
porque las list as no son identicas, de 
mo do que seguira explorando hacia 
abajo hasta la clausula siguiente: 
DOla([persona I X]):-cola(X). Esta 
tampoco concucrda y rellena los valores 
de las variables de este modo: 

cola( [persona I [persona, persona]]): - 
cola( [persona, persona]). 

Para demostrar que el objetivo del 
encabezamicnto es verdadero, debe 
demostrar que el subobjetivo lo es. De 
modo que el prolog toma 
cola{[persona, persona]) como su objetivo 
y comienza a explorar hacia abajo las 
clausulas desde arriba para hallar una 
pareja. Nuevamente, COla( [persona]) no 
concuerdaj pero la segunda clausula si: 

cola{[persona I [persona]]):- 
cola([persona]). 

Un punto importante que se debe notar 
aqui es que la variable X, que en la 
primera ejecucion se establecio en 
[persona, persona], ahora se ha 
establecido en [persona] . Pero se ha 
consewado el primer valor de X. Esto es 
posible porque las variables son locales 
a cada invocacidn separada de una 
clausula; por tanto, se puede pensar en 
cada llamada a COla( [persona I X]) como 
si se empleara una variable unica y 



separada. En prolog no existe nada que 
se parezca a una variable global. 

Ya emparejado el encabezamiento de 
este objetivo, paia demostrarlo 
necesitamos demostrar el subobjetivo a la 
derecha del simbolo ;-, que es 
COla( [persona]). Se inicia otra exploradon 
de la claasula base y esta vez se encuentra 
una pareja con cola ([persona]), que encaja 
directamente y significa que ahora 
cola{[persona, persona]) (nuestro objetivo 
previo) resulta ser verdadera. Rsto a su 
vez significa que CO la( [person a, persona, 
persona]), e! objetivo originaL es 
verdadero. 



El procedimiento COla nos muestra 
varias cosas importantes sobre el 
PROLOG. Por cjemplo, que la disposicion 
de las clausulas puede ser crucial, 
(Pruebe colocar las dos clausulas en ei 
orden contrario y vea lo que sucede al 
intentar demostrar un objetivo.) 
Asimismo, ilustra como dar clausulas 
adicionales es lo mismo que dar formas 
alternativas de proporcionar un 
objetivo, tal como si hubieramos utilizado 
un OR Idgico entre las clausulas. EUo 
significa que el prolog no necesita de un 
operador OR, si bien 6ste se suministra 
en la mayoiia de las jmplementaciooes. 



ila 

Pan stpiofaf sti lose de fblDs. 

c= -z '. ' z^rz ziz 

orce.i por 5 Cjs. sa v E 
PROLOG siempre elige primero la 
rama disponible situada mas a la 
izquierda, y siempre que 
encuentra un callajon sin sallda, 
"retrocede" hasta el punto de 
opGEon anterior 
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Programacion/Juego de simulacion 



El Nuevo 
Mundo (I) 

Dedicamos los ultimos 
capitulos a considerar los 
"complementos al basic'' 
necesarios 

El programa se escribio para el Commodore 64, 
pero utilizando un basic mmimo alli donde ello es 
posible. Los problemas de conversion para ejecutar 
el programa en el Spectrum quedan comprendidos 
en dos areas principaies: primcro, el Spectrum solo 
permitc utilizar nombres de variable de letra unica 
en matrices o contadorcs de bucles FOR.,. NEXT. 
Ofrecemos aqui una tabia de conversion. En segun- 
do lugar, la manipulacion de series en cl Spectrum 
es inusual en tanto y en cuanto no se dispone de 
LEFTS, MIDS ni RIGHTS, si bien todas poseen un 
equivalente en el Spectrum. Los usuarios del Spec- 
trum habran de referirse, para estas conversioncs, a 
los complementos que hemos ido ofreciendo con 
cada modulo. Ademas, los PRINT CHR$(147) se han 
de reemplazar por CLS, y las Imeas que aguardan 
pulsaciones dc tecla con la forma: 

<n.° lfnea>GET l$:IF !$=""THEN<n.' Imea> 
se han de reemplazar por: 

<n.' fjnea>LET l$=INKEY$:IF IS-''" THEN 
GO TO <n,'^ lmea> 

En el proximo capitulo ofreceremos la segunda 
parte del listado completo de este programa. 



Conversion de variables 
para el Spectrum 



Equivalente Finalidad 


Spectrum 


Microsoft 






TS(,) 


Categon'a/fortalezatrip. 


T(,) 


WG() 


Tasas salariales 


W() 


CC() 


Contadores categ. detrip. 


V() 


PA() 


Provisionesadquiridas 


AO 


PCQ 


Costo de las provisiones 


CO 


PN() 


Necesidades aprovision. 


MO 


oco 


Costos mere, a comerciar 


00 


0A() 


Cant. mere, a eomereiar 


GO 


HRQ 


lndic.de medias raeiones 


HO 


RR{) 


Indicadores de eventos 


(R) 


A0{) 


Cant, mere, eomerciadas 


E{) 


EQ(,) 


Valores de intereambio 


Q(,) 


VI 0 


Valores al zarpar 


B() 


V2{) 


Valores al regresar 


DO 


S1 


Cont. reduccion forlalezas 


S 


S3 


Contador impresidn lenta 


S 


S4 


Contador breve demora 


J 


S5 


Contador larga demora 


s 



1 REM 

2 REM^* Mgo 

3 REM MercanttI 

A REM " Nuevo Mundo 

5 REM *" 

6 : 

La primera seccton del programa inicializa las 
variables y matrices que se requeriran despu^s 

9 K$=^' PULSE CUALQUIER TECLA PARA CONTINUAR- 

10 DIM TSn REM TIPO./FORTALEZA DE LA TRIPULftClON 

11 CW=0:REMNUMERODETRIPULANTES 

12 M0=2000: REM DINERO INICIAL 

13 DIMWG(5):WG{1)-10:WG(2} = 25:WG(3)=15:WG(4)=20 
:W6[5) = 1&:REMSALARI0S 

14 WT-0:R£MFACTURASALARlALSEMANAL 

15 CM=16;REMTRIPULACI0NMAX 

16 DIM CS(5):CE(1)--MARINERO":CS[2] = -MEDICO": 
CJ(3)=''MECANfC0" 

17 C$M)='^OFICIAr:CSi:5:i = "C0CINERO" 

ia DIM CC(5):REM CONTADOR DE CADATlPO OE TRIPULAClON 

19 REM MATRICES DEAPROVISIONAMIENTO"" 

20 DIM USM):US{1) = "KILO":US(2J = "KILO":US(3)="KJLO": 
US[41S^BARRIL" 

21 DIM PS(4):P£f1)-^VEG":PSt2)-"fRUTA":PS[3)-''CARNE'-: 
PS(4)-^AGUA" 

22 OfM PAf4) 

23 DIMPC(4):PCt1) = .5:PG(2)=1:PC(3)=2:PC(4)-.5 

24 DIMPW{4]:PN[l)=2:PN(2)=1:PN(3) = 1:PN(4)-.5 

30 DIM0A(6) 

31 0IMD3(6) 

32 DSO)-' FRASCO DE MEDiGINA":DS(2) = "ARMA":DIi3)-"B0LSA DE 
SAL" 

33 DSH) = "BALADETELA":DS{5) = "CUCHILLO":DS{6) = "JOYA" 

34 DfM aC(6J 

35 OC(1)=1:OC(2)=5:0Cf3) = .2 

36 0G(4)-2:0C(5) = .5:0C{6)=1 

AQ JL=8:REMDURACI0ND£LVIAJE 

41 EW=0: REM SEMANAS EXTRAS 

42 DIMRR(16) 

43 REM INDICADORES PARA MOSTRAft SI YA HA OCURRIDO EL EVENTO 
AZARfN) 

44 RC=0 

45 REM CONTADOR EVEWTOAL AZAR HASTAAKORA 

46 RM=13 

47 GS- "N" REM INDfCADOR DE BUEN TIEMPO PARA USAR CON FACTOR 
MOTIN 

48 AS-"N^':B3-"N" 

49 DIM M(6):REM SENALA SI YASE HAN PRODUCIDO LOS EVENTOS 
MAYO RES 

60 D I M TS{ 3 ) :TS{ 1 ) = 'T ER LAS " :TS(2) - " FfG U R I LLAS ^${3} 

ESPECIAS" 

61 DIM VI (3);V1 (1 ) =2:V1 (2)- 2: VI (3)= 1 

62 DIM V2f3}: V2(1 ) =2+(INT|RND(1 )^1 )/2):V2(2) =2+0NT{RND{ir 

3)-1) 

63 V2(3)=2-^(INT[RNOft)'1).'2) 

64 DIM EQ(4,3} 

65 £Q{1J)=0.5:EQn,2i=0.5:EQ(1 .3)=1 

66 £Q{2,1)=5:EQ(2.21=5:EQ[2.3)-10 
57 £Q[3,1)=3:EQ(3,2)=3:EQ(3,3)=6 
66 EQ(4,1)-2:Ea(4.2)=2:EQ(4,3)=4 
69 DIMA0[3} 

80 PRINT CHRS[147):SS=- JUEGO MEftCANTIL NUEVO 
MUNDG^-:GOSUB9100:PRINT 

81 GOSUB92D0 

82 SS= '^ERES EL CAPITAN DE UN BARCO* " :GOSUB 91 0O:PRINT 

83 SS= QUESE DIRIGE AL NUEVO MUMDO SE' ':GOSUB 9100:PRINT 

84 SS= "CALCULA QUE EL VlAJE DURARA OCHO * ' GOSUB 91 00: PRINT 

85 SS= "SEMANAS, PERO PODRIADURAR MAS. DEBES* ':GOSUB 
3100:PRINT 

86 SS="CONTRATARUNATRIPULAClON, PAGARLES, 
COMPRAR"':GOSUB 9100:PRINT 

87 SS= "PROVISIONES, EQUIPO Y MERCANCIAS ' ";GOSUB 91 Q0:PRINT 
ee SS= 'PARA COMERCIAR DISPONES DE 2000 PIEZAS"':G0SU6 

9100:PRINT 

69 S$='DEOR0 PARA GASTOS.'": GOSUB 91 00: PRINT: GO SUB 9200 

90 PRINT:SS=" BUENASUERTE!*":GOSUB 9100:GOSUB 9200:PRINT 

91 SS=KS:GOSUB9100 

94 6eTPS:lFPS-"''THEN94 

95 GOSUB 9200 

Esta seccion (lama a las subrutinas que permiten^ 
que el jugador contrate unatnpulacion, proveaal 
barco de provisiones para ef viaje y adqutera las 
mercancias a comerciar en el Nuevo Mundo j 

500 GOSUB 1000 
550 GOSUB 2000 
600 GOSUB 3000 

605 REM^** LISTOPARAEMPEZAR^^- 
610 PRINT CHRS(1 47) 

615 SS-^AHORA ESTAS LISTO PARA EMPEZAR"^':GOSUB 9100 
625 SS="ELVIAJE.*":GOSUB910O 
630 GOSUB 9200 

635 PRINT:SS=XUENTASCON LASIGUIENTETRIPULACION:- ':GOSUB ' 

9100 
640 GOSUB 9200 
545 FORT-1 10 5 
650 IFCC{T)-0THEN670 
655 PRINT CC{T); 



Juego de simulacion/Programacion 




660 PRINT CS{T]; 

662 IF CC(T)=1 THEN PRINF ":GOTO B6e 
664 PRINT "S" 
66B GOSUBSZOO 
670 NEXT 

674 GOSUB9200 

675 PRINT:SS="YLASSIGUIENTES PR0VIS10NES:*":G0SUB 9100 
680 GOSUB9200 

m F0RT=1T0 4 

590 IFPA(T}=0THEN710 

695 PRINT PAtT);US{T);''SDE"; 

700 PRINT PS(T) 

70e G0SUB9200 

710 fJEXT 

715 GOSUB9200 

720 PRINT;SS=" TAMBIEN POSEES:*":GOSUB 9100 

725 GOSUB9200 

730 IFOA(1)=0THEN740 

733 IF0A(1)=1 THENSS= FRASCO DE MEDICINA '":GOSUB 735 

734 SS="FRASCOSDEMEDICINA*^' 

735 PRINT OA(1);:G0SUB 9100 

736 GOSUe9200 

740 IF0A(2)=0THEN75O 

743 IF0A(2) = 1THENSS="ARMA* ":G0T0 745 

744 SS= "ARMAS'" 

745 PRINTOA(2);:GOSUB9100 

746 GOSUB9200 

750 1F0A|3}=0THEN760 

753 IF0A[3}=1 THEWS$="B0LSADESAL"':GffT0 755 

754 SS=-BOLSASDESAL*" 

755 PRINT 0Af3);:GOSUe 9100 

756 G0SUB9200 

760 IFOA(4)=QTHEN770 

763 IF0A{4)=1 THEN SS-'^BALA DETEU*^':GOTO 765 

764 SS="BALASDETELA"' 

765 PRINT 0A(4);:G0SUB 9100 
765 GOSUB9200 

770 tF0A{5)=0THEN780 

773 IF0A{5) = 1 THEN SS^^CUCHILLO^^GOTO 775 

774 S$="CUCHILLOS*'^ 

775 PRINT 0A(5);:G0SUS 9100 
775 GOSUB9200 

780 IFOA(6)=0THEN790 

783 IF0A(6)=1 THEN SS-"JOYA" ':GOTO 785 

784 SS^'^JOYAS"" 

785 PRINT 0A(6):;G0SUB 9100 

786 G0SU3 92':>'J 

790 GC=;.^ 

792 p~ r - - : : EDAN 'jm- PCSISDEaBOr 

796 GCSw^ 

738 Gt^UB91Q0 

799 GETPS:IFPS= ''T>^EN7^9 

800 WT=0;REM PONER A CERO TOTAL SALARIOS 
SOI HS=''N" :REMINDICADORDE MEDIA RACION 
802 DIM HR(4):HR(1}=1 :HR(2)=1 :HR(3)=1 :HR(4)=1 

Aqui comienza el bucle principal, utilizando WK 
para descontar las semanas transcurhdas 

820 FDR WK=1 TO JL : REIVt EUCLE PRINCIPAL DEL VIAJE 

825 GOSUB 40D0:R£M INFORME ESTADO TRIPULAClON 

830 GOSUB 4200:REJV1 INFORME PROVISIONES 

835 GOSUB 4300:REM INFORME OTRAS MERCANCIAS 

840 GOSUB 9200: PRJNT CHH$(1 47) 

842 PRINT:PRINT: PRINT 

643 S$-"SEGALCULAQUEELVIAJE*":GOSUB910D 

844 PRINT" DURARAAUN0TRAS'';INT(JL-WK+1);SEMANAS " 

845 GOSUB 9200 

846 PRINT:SS=KS;GOSUB9100 

847 GET IS;IFIS='"" THEN 847 

850 GOSUB 5O0O: REM C0MPR08AR FACTURA SALARIAL 
855 GOSUB 51 OO: REM REPARTIRRACIONES 

860 GOSUB 5500 

861 REMGOT0 6ENERAREVENTOALAZAR 
870 GOSUB 6500: REM IR A EVENTD MAYOR 

875 IF HR(3) = . 5 AND RND[1K.5 THEN PRINT CHRS{147):G0SU8 6050 

878 REM ALBATROS SI ESCASEA LACARNE 

879 GOSUe 7200 

880 GOSUfl5300:REM INFORME DE FINAL DE SEMANA 
m NEXTWK 

890 REM LLEGADA AL NUEVO MUNDO 

891 GOSUB 10000 

892 GOSUB 10070 

893 GOSUB 10300 

894 GOSUB 10500 
999 END 

Aquf termina ef programa principal. El resto del 
proprama esta escnto en forma de subrutinas a 
las que se llama desde esta seccion principal 



- CONTRATAR LA TRIPULAClON " 



1000 PRINT CHRS{147):PRINr'ETAPA1 ■ 

1010 PRINT ^ — 

1012 PRINT 
1015 GOSUB 9200 

1020 PRJNT:PRfNrCATEGOftfAS OE TRIPULANTES DfSPONIBLES:'' 
1025 GOSUB 9Z0O 
1030 PRINT 

1040 PRINT "CATEGORIA DESCRIPCION SALARIO SEMANAL" 
1050 PRIMT " " 



1060 PRINT - 1 MARINERO 10 PIEZAS DE ORO' 

1070 PRINT 2 MEDICO 25 PJEZAS DE ORG' 

1080 PRINT '" 3 MECANICO 15 PIEZAS DE ORG' 

1090 PRINT ■• 4 OFICIAL 20 PIEZAS DE ORG* 

1100 PRINT - 5 COCINERO 15 PlEZAS DE ORO* 

1105 GOSUB 9200 

1110 PRINT:PR1NT:PRINT 

1120 SS="ENTR£LACATEGORIADETRIPULANTE 

REaUERIDA(1 - 5) * ' GOSUB 91 00 
1122 SS="0'F' PARAFINALIZARLAC0NTRATACION*-:GOSUB 

9100:PRINT:INPUT PS 
1125 CT=VAL[PS) 

1128 IF LEFT$(PS:i) = ''FTHEN PRINT: PRINT" FIN DE LA CONTRATACIONDE 

TRIPULACldN.":GOSUB92aO:GOT01310 
1130 IFCT>0ANDCT<6 THEN 1150 

1139 PRINT:PRINT 

1140 PRINT P$;:SS=" NO ES UNA CATEGORIA DE TRIPULANTE*":GOSUB 
9100 

1142 GOSU8 9200 

1145 SS-'^INTENTELO NUEVAMENTE, POR FAVOR" 

1146 GOSUB 9100 

1147 GOTO 1300 
1150 PRINT:PRINT 

1155 CN-CN+1: REM TRIPULAClON CONTRATAOAHASTAAHOPA 

1156 TS^CN,1HCT;REMCATEG0RIADETRIPULANTE 

1157 TS{CN.2)=100:REM FORTALEZA INICIAL 

1158 WT=WT+WG(T):REM SALARIOS TOTALES 

1159 CC(CT)=CC(CT)-Hl:REMC0NTAO0RCATEG0RIASDE TRIPULAClON 

1160 SS= "TRIPULAClON HASTA EL MOMENTO: " 
1170 F0RT=1 T05 

1180 PRINT S$:CC[T);" ";CS(T); 

1185 IFCC[T)>1 OR CCm^OTHEN PRINT "S":G0TO 1189 

1186 PRINT" 

1189 SS=" 

1190 NEXT 

1195 PRINT: PRINr'FACTURASALARIALSEMANAL TOTAL ";WT 

1200 IFCN=CM-1THEN PRINT:SS= "SOLO UN TRIPULANTE MAS' "iGOSUB 

9100:GOTO1295 
1202 IFCN=CMTHENPRINT:SS=" EL BAR CO YA ESTA 

C0MPLETOfr:GOSUB310O:G0TO 1310 
1295 REM 
1300 GOTO 1015 

^yZ ?r ^=KS:GOSllB 91 tX):PRlNT: GOSUB 9200 
'III ^r=SFPS='- THEN 1320 

\' >+RSii47); REM LlMPIAR PAHTALU 

:: : e^- etapa 2 — aprovjsionam iento*" 



. ■ " 7 .^2O0:PRM 
■ : - : = - . -AS CONTRATADO UNA TR^PULACION COMPUESTA 

:CNrMIEMBROS." 
2045 GOSUB 920O:GOSUB 9200 
2050 F0RT=1TO4 
2055 PRINT 

2060 PRlNT"CADAMIEMeRODELATRIPULACI0NNECESITARA " 

2070 PRINT" ALMENOS ":PN(T);'' ";lfS(T); 

2075 lFPN(T) = lTHENPRINr ";:GOTO 2085 

2080 PRINT" S"; 

2085 PRINT" DE ^PS(T) 

2085 PRINT" A ^PCtT);"' PIEZAS DE ORO POR ";U3[T) 

2090 PR I NT " PO R CADA SEM AN A Q UE 0 U R E E L VI AJ E . " 

2095 GOSUB 9200:PRINT:G0SUB 9200 

2100 PRINT"CUANT0S ";US{T);"SDE ";PS[T) 

2110 S$'' 0 ESEAS CO M PR AR * " : GOSUB 9 1 00 

2120 PRINT 

2130 INPUT PS 

2140 PAr)=VAL[P$):G0SUB9200 

2150 IFPA(T)>{{CN*8*PN(T))-1)THEN2260 

2160 IF PA(T)=0 THEN PRINT SI NO COMPRAS NADA DE":60T0 2180 

2170 PRINT"SI SOLO COMPRAS ^■;PAr):US[T); 

2175 IFPA(T) = 1 THENPRINT'^ DE":GOT02160 

2176 PRIWr'SOE" 

2180 PRINT PSr):'\":GOSyB9Z0O 
2190 PRINT 'ALGUIENPOORfAPASAR 
2200 S3=^'HAMBRE^ 
2210 IFT=4THENSS=-SED" 
2220 PRI NT SS; " ! " :G OS U B 9200 

2230 SS-^'QUIERES VOLVER APROBAR (S/N)":60SUB 9100 

2240 I NPUT PS: PS = LEFTS [PS , 1) 

2242 IF PSo^S" AND PSo'^N ' THEN 2230 

2245 IF PS^^N" THEN 2400 

2250 PA(T)=O:T=T-1:G0TO2410 

2260 IF PA{T)"PC(Tj>MO THEN 2270 

2265 GOTO 2400 

2270 SS= " NO TIENES DINERO SUFICIENTE PARA" :GOSUB 91 00 
2280 PRINT PA{T) 

2290 PRINT US(T);"SDE ";PS{T):GOSUB 9200 
2300 SS=TOR FAVOR VUELVEAPR06AR*":G0SUB 

91OO:PA(T) = 0:T=T-1:GOTO2410 
2400 MO-MO-[PA(T)Tqn) 

24 1 0 PRINTiSS-" PROVISIONES HASTA AHORA: ^ " :GDSUB 9100 

2412 GOSUB 9200 

2415 F0RTT=1 TO 4 

2420 PRINT PA(n);U$(n) 

2430 IF PA(TT)=1 THEN PRiNT" DE ";:GOTO 2440 

2435 PRfNT^SDE 

2440 PRINT P$fm 

2450 GOSUB 9200 

2460 NEXT 

2480 PRINT'DINEROQUETIENESAUN- 



;M0:" PIEZAS DEORO^ 



rn 
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2485 GOSUB9200:GOSUB9200 
2490 NEXTT 

2500 G0SUB9200:PRINT:SS="FJN D^LAPROVISIONAMIENTO"':GOSUB 

9100: GOSUe 9200 
2510 PRJNT:SS=KS:GOSUe 3100:PRJNT : GOSUB 9200 
2520 GETPS;1FPS="" THEN 2520 
2999' RETURN 

3000 REM "^^ ETAPA3 - OTRAS MERCANCIAS " ' ' 

3001 PRIHTCHR£(147):REMETAPA3 

3002 GUSUB92O0 ^ . . . ^ 
3005 PRINT" ETAPA 3 - OTRAS MERCANCIAS 

3010 PRINT" — — — " 

3020 GOSUB 9200 

3025 PRINT 

3030 SS- -HAV OTRAS COSAS QUE PODRl AN ' " iGOSUB 91 00 
3035 SS-'^SERLE UTILES PARA EL VIAJE, FOR *'':GOSUB 9100 
3040 SS=''£JEMPLO,MEOlCrNASyMERCANCIAS^":G0SUB9100 

3045 SS='*PARACOMERCIAR.'-;GOSUB9100 

3046 GOSUB 9200 

3050 SS-"PUEDES NECESlTAR TAMBIEN ESC0PBAS/":GOEUB 910O 
3055 GOSUB 9200:GOSUB 9200 

3050 F0RT=1T06 
3055 PRINT 

3070 PRINF'UN "mi]: 

3075 S$-" CUESTA*":GOSUB910Q 

3080 PRINT OC[T); 

3051 PRINT" PIEZADEORO"; 

3085 IF0C(T)=1 THEN PRINT" PIEZA DE 0R0":G0T0 3090 

3086 PRINT "PIEZASDEORO" 
3090 GOSUB 9200 

3095 S$="TEGUSTARIACOMPRAR tS/N)*-:GOSUa 9100 

3110 INPUT PS: PS=LEFTS(PS.1l 

3115 IFPS<>"S" AND PS<>"N" THEN30&5 

3120 IFPE="N"THEN3175 

3125 GOSUe9200 

3130 SS--CUANT0QUIERES^":G0SUB9100 

3135 INPUT PE 

3140 TT=VAL[PS) 

3145 IF0CtT)-TT>M0THEN3150 

3147 GOTO 3160 

3150 SS=-'NOTIENES DINERO SUFiC]ENTE"":GOSUB 9100 
3152 GOSUB 9200 

3154 S$=''PORFAVDR VUELVEAENTRAR*":GOSUB910O 

3155 GOSUB 9200:GOTO 3130 
3160 MO-MO-[OC[T)^TD 
3165 0A(T1=TT 

3170 GOSUB 9200 

3175 PRINT 

3176 PRINT" DINEROSOeRANTE= ";M0 
3200 GOSUB 9200:NEXTT 

3205 GOSUB 9200:PRINT:PRINT 

321 0 SS= "^FIN DE LA ETAPA 3' " iGOSUB 91 00 

3220 GOSUB 9200: PRINT 

3230 SS=K$:GGSUB9100 

3240 GET P$:(F PS = ■"■ THEN 3240 

3999 RETURN 

Desde el bucie principal del viaje se liama a las 
siguientes subrutinas para analizar el estado 
actual del barco y la tripulacion y confeccionar 
un infornne semanal para el juQador 

4000 REM INFORMS SOBRE EL ESTADO DE LATRIPULACION 
4010 PRENT CHR${147) 

4020 SS="' DIARIO DE NAVEGACION DEL CAP I TAN "*:GOSUB 9100 

4025 SS-^' ' — — '■^:GOSUB9100 

4030 GOSUB 9200 

4035 PRI NT-AL EMPEZAR LA SEMANAL WK 

4040 SS= El ESTADO DE LA TRI PULACION ES: ' "iGOSUB 91 00 

4045 GOSUB 9200: PR I NT 

4055 PRINT 

4060 F0RT=1T016 

4070 1FTS(L1]=0THEN4100 

4075 PRINT CS(TS(T.1)}:^' 

4078 IFTS(T.2) = -999THEN SS=''MUERTO 1t!!l[)"':G0T0 4099 

4080 I F TS(T, 2 }>75 TH EN SS = " M U Y SAN 0 " " : GOTO 4099 

4035 IF TS{T,2)>50 THEN SS= '^SANO) ' " :GOTD 4099 

4095 IF TS{T,2)>25 THEN SS='^ENFERMO!r":GOTO 4099 

409B SS-"MUYENFERMO \iy" 

4099 GOSUB 9100:G0SUB 9200 

4110 NEXTT 

4115 GOSUB 9200:PRINT 

4119 WW=0 

4120 F0RT=1T0 5 

4130 WW-WW+[CC(T)^WG{T)1 
4135 NEXT 

41 40 SS = " F ACTU R A S ALA R I AL PARA LA SE MAN A' " :G OS U B 91 00 
4145 PRINT WWr PIEZASDEORO' 
4150 GOSUB 9200 
4155 WT=WT+WW 

4160 SS= "TOTAL SALARJOS DEL VIAJE HASTA AHORA:*'^:GOSUB 9100 
4165 PRINT \)^fT;" PIEZASDEORO" 
4170 GOSUB 9200 

41 75 PRINT" DINERO RESTANTE = " ;M0; " PIEZAS DE ORO" 
4180 PRINT:SS=K$:G0SUB9100 
4190 GETIE:IFIS=" "THEN 4190 * 

4199 RETURN 

4200 REM INFORMESOBREPROVtSIONES 

4205 PRINT CHRS(147) 

4206 PRINrEMPEZARLASEMA}yA":WK:GOSUB 9200 
4210 SS='"TE QUEDAN LAS SIGUIENTES'":G0SUB9100 



4215 SS-"PROVISIONES:* IGOSUB 9100 
4220 PRINT:GOSUB9200 

4225 FORT-1T0 4 

4226 IF PAr)=0 OR PA[T)= -999 THEN 4240 
4230 PRINT PA(T);US=(T);"S DE ":P5{T) 
4232 X-INT{PA(THCN*PN(T))) 

4235 PRINT"(SUFICIENTEPARA";lNTtX);" SEMANAS)" 

4239 GOSUB 9200 " 

4240 NEXT 

4290 PRINT:SS=KS:GOSUB9100 
4295 GET iSilF l$=" "THEN 4295 

4299 RETURN 

4300 REM INFORME OTRAS MERCANCIAS 

4305 PRINT CHRS(147) 

4306 PRINT- AL EMPEZAR LASEMANA";WK:GOSUB 9200 
4310 SJ = "TAMB[ENPOSEES:''':GDSUB9100 

4320 PRINT:G0SUB9200 
4322 IF OA(1)-0 THEN 4332 

4325 PRINT 0A(1);:S£="FRASC0S DE MEOICfNA" ":GOSUB 9100 

4330 GOSUB 9200 

4322 IF OA(2)=0 THEN 4342 

4335 PRINT 0A[2};:SS=-ARMAS^":G0SUB 9100 

4340 GOSUB 9200 

4342 IF OA(3)=0 THEN 4352 

4345 PRINT 0A(3); :SS= -SACDS OE SAL* " :GOSUB 91 00 

4350 GOSUB 9200 

4352 IF OAH)-0 THEN 4362 

4355 PRINT 0A(4); :SS="BALAS DE TELA" ";GOSUB 91 OO 

4360 GOSU8 9200 

4362 IF 0A(5)=0 THEN 4372 

4365 PRINTOA{5);:SS-XICHILLOS*":GOSUB9100 

4370 GOSUB 9200 

4372 IF 0A(61=0 THEN 4380 

4375 PRINTOA(6);:S$-"J0YAS*":G0SUB9100 

4380 GOSUB 9200: PRINT 

4382 PRINrTE QUEDAN'^;MO;:SS=" PIEZAS DE ORO* "iGOSUB 9100 

4384 GOSUB 9200 

4397 PRINT:S$ = KS:GOSUB9100 

4396 GET IS:IF IS-'" THEN 4398 

4399 RETURN 

5000 REM COMPROBAR FACTURA SALARIAL , 
5005 IF WT>MO THEN 5010 
5008 GOTO 5099 
5010 PRINT CHR$(147) 
5020 PRINT:PRINT:PRINT 

5025 S$-"ENTRE LA TRIPULACION CORRE EL RUMOR*":GOSUB 9100 
5030 SS= " DE QUE NO TIENES SUFICIENTE^ " :GOSUB 9100 
5035 S$-"OROPARAPAGARLESCUANDOTERMINE*":GOSUB9100 
5040 GOSUB 9200:PRINT 

5050 S$=' LOS ANIMOS SE ESTAN EXALTANDO !!"":GOSU&9100 
5055 GOSUB 9200:PRINT 

5060 SS=-ESPEREMOS QUE CONSIGAS'":GOSUB 9100 

5065 SS="OBTENER ALGUN BENEFICIOr":GOSUB 9100 

5066 GOSUB 9200 

5070 PRINT:SS=KS:GOSUB9100 
5080 GET lS:lFtS=" "THEN 5080 
SQ99 RETURN 

5100 REMREPARTIRRACIONES 
5103 PRINT CHRSif 47) 

5-05 :^S=- REPARTIENOO LAS RAZ0NES^"G0SU6 91O0 

5 1 06 SS-- — — -"""GOSUB 9100 

5107 GOSUB 9200:PftlNT-SEMANA";WK;PRINT 

5108 H5- 'N" 
5110 F0RT=1 TO 4 
5112 HR(T)=1 

5115 IF PA(T)>0 THEN 5180 

5120 PRINr'NOQUEOA";P$(T):" ![!!":GOSUe 9200 

51 30 SS - ' LA TRI PU LAC I ON SE ESTA D£6 1 LIT ANOO ! I " " : GOSUB 9 1 00 

5135 WF-10:G0 SUB 9300 

5139 GOTO 5290 

5180 X={PN(T)XN)-gL-WK+1) 
5185 JFPA(T)<X THEN 5200 
5190 GOTO 5270 

5200 PR I NT " QU EDA PO GA " ; PS (T) 
5205 GOSUB 9200 

5210 SS= 'QUIERES PONER A LA TRIPULACION A*" GOSUB 9100 
5215 PRINrMEDIARACIONDE";PS{T] 

5220 INPUTIS:IS=LEFT$(IS,1) 

5221 IF 13<> "S ' AND IS<> "N" THEN 5220:REM ERROR EN ENTRADA 
5225 IF l$-"N" THEN 5270 

5230 HR(T)=,5:HS="S" 
5240 WF=5:GQSUB9300 

5250 SS= "LA TRIPULACION SE ESTA DEBILITANDO! ' " :GOSUB 9100 

5270 X=PN(T)*HR{T)*CN 

5272 IFX>PA(T)THENX = PAtT) 

5275 PA(T) = PA(T) -X 

5280 I F P A[ T) = 0 TH EN PA (T) - - 999 

5285 PRINT X:US[r);"S DE '"iPSfT);" REPART3DAS" 

5290 PRINTiGOSUB 9200:NEXT 

5295 PRINT:SS = KS:GOSU6 9100 

5296 GfTlS:lF IS-"" THEN 5298 
529^ RETURN 
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Puertos y canales 
en el Spectrum 



Continuando con nuestro analisis del sistema operativo del 
Spectrum, vamos a ver como el ordenador envia los datos a la 
pantalla y a la impresora ZX por medio de canales 



En el Spectmm de Sinclair el medio habitual de 
entrada de datos es d teclado, y las salidas habitua- 
les son una pantalla de televisor o una impresora 
ZX. Cada uno de estos instrumentos de hardware 
se denomina canal en el sistema del Spectrum. Asi, 
la pantalla es Ilamada canal de salida. Los datos que 
fluyen desde o hacia el ordenador en forma de ca- 
racteres que van a la pantalla o vienen del teclado, 
son llamados una corrienie (stream). Una corriente 
o flujo de datos puede ser dirigida a traves de los 
diferentes canales, en el supuesto de que el hardwa- 
re de canales sea capaz de manejar la corriente de 
una manera correcta. 

En el proximo capitulo habiarcmos con mas de- 
talle dc los canales y las corrientes. Mientras tanto, 
empezaremos por examinar el sistema de E/S, de- 
teniendonos en la rutina de ''salida de un caracter", 
que se halla en la direccion &0010. Ei caracter en- 
viado a esta rutina es lanzado a la pantalla o a la 
impresora, segiin el canal previamcnte sclecciona- 
do. El dibujo i lustra los diferentes canales de un 
Spectrum no ampliado y los numeros de las co- 
rrientes asociadas a ellos. Los canales son conoci- 
dos con una letra y las corrientes con un numero. 



En el Spectrum no ampliado solo actuan las co- 
rrientes 0, 1, 2 y 3. El OS dispone las corrientes y 
!os canales conforme al cuadro que vemos en el 
margen. 

Asi, cuando dcscamos dar salida a un caracter 
por un deterniinado dispositivo habremos de decir- 
le al Spectrum en que corriente lo deseamos- Para 
escribir en pantalla, lomaremos la corriente 2, ya 
que es la que se asocia con el canal Sj para lo cual 
emplearemos una rutina ROM en la direcci6n 
&1601 que dira al OS la corriente que hemos selec- 
cionado. El numero de la corriente se coloca en el 
registro A, antes de que sea Ilamada la rutina, y 
esta abre posteriormente el canal hardware asocia- 
do actualmente con dicho numero. Por ejemplo, 
para abrir el canal S para una salida, haremos 



LD 

CALL 



A,2 

&$1601 



Una vez abierto el canal, el envio por el de un ca- 
racter se hace simplemente colocando el codigo del 
caracter en el registro A y ejecutando despucs una 
instruccion RST para llamar a la rutina con direc- 
cion &0010. 




Cruzar el canal 

S: Parte superior de la 



Empleaifo en la saliita 
para la parte inferior de 
la pantalla (el biasic lo 
emplea para sus 
mensases de erroi) y en la 
entrada desde el teclado 
Impresora 

Con el Spectmm. los dates pueden translerirse desde Jos 
perileficos o fiacfa ellos en "comentes" dingidas por medio de 
cWereiilescanaies asociados a eitas. Tras el encendido, los 
canafes K, S y P se asocian a las corrientes 0 (y 1 } , 2 y 3 
respectivamente. Asi. PRiNT #2 [es decir, la corriente 2; 
pantalla) eQuivale a la instruccion PRINT normal. Ejennpio: PRINT 
#2; "Esta nota se escribira en la pantalla" 



GAMLK del Spectrum 



CANAL P de impresora £X 





Canal 


0 


K 


1 


K 


2 


S 


3 


P 
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Lenguaje maquina/Sistemas operativos 



Esto se parece en algo a la llamada OSWRCH del 
BBC Micro, salvo que la llamada se hace directa- 
mente a la direccion de la ROM y no a traves de un 
vecloi. El canal S opera s^obre el area de la pantalla 
que es accesible con el PRINT normal del basic. Sin 
embargo tambien es posible acceder a las dos Imeas 
inferiores que el interprete del basic utiliza habi- 
tualmenle para dar sus mensajes de error. Como se 
puede ver en el dibujo, estas Imeas forman parte 
del canal K. 

Para enviar un caracter a estas lineas, basta con 
que abramos el canai K, asi: 

LD A,0 
CALL &1601 

Fgualmente, el canal de la impresora puede abrirse 
cargando el registro A con un 3. 

No solo ios caracteres habituales pueden enviar- 
se a traves de cualquier canal, sino tambien los ca- 
racteres de control. El efecto resultante de estos 
ultimos caracteres depender^ del canal empleado, 
pero esto significa que podcmos obtener las equiva- 
lencias en c6digQ maquina de PRINT AT, PRINT INK, 
PRINT PAPER, etc. EI cuadro que sigue muestra al- 
gunos codigos de control iltiles y lo que realizan al 
ser pasados por el canal S o el K. Es claro que va- 
ries de ellos no tendran efecto alguno si se envian a 
la impresora ZX (por medio del canal P). 



Cod. 


Parametros 


Efecto 


8 




Cursor en espacio a la izquierda 


9 




Cursor en espacio a la derecha 


10 




Cursor una linea hacia abajo 


11 




Cursor una \\m hacia arriba 


12 




Delete (borrar) 


13 ' 




E^TER 


16 


n 


INK n [necesita un byte mas) 


17 


r 


PAPER n (neces. un byte nnas) 


IB 


n 


FLASH n (necesita un byte mas) 


19 


n 


BRIGHF n (neces. un byte mas) 


20 


r 


INVERSE n (nee. un byte nnas) 


21 


n 


OVER n (necestta un byte mas) 


22 


in 


AT y,x (necesita dos bytes mas) 






para las coordenadas i e y) 


23 


n 


TAB n (nec. un parametro mas) 



Los bytes requeridos de mas por algunos codigos 
de control son los parametros que normalmente 
acompanan a estos en una instrucci^n del basic. 
Asi, por ejemplo, para ejecutar ana orden PAPER 
3, enviariamos simplementc los bytes 1 7 y 3 al canal 
S. Este fragmento de programa muestra el equiva- 
lente en codigo maquina de PRINT AT 10JO;"A". 



3E02 


10 


Id 


a,2 


labre canal S 


CD0116 


20 


call 


#1601 


jselecclonardo corriente 2 


3E16 


30 


Id 


a, 22 


;distintivo de AT 


D7 


40 


ret 


#10 


; rutin a de sacar un caracter 


3E0A 


50 


Id 


a,10 


:ordenada y 


D7 


60 


rst 


#10 




3E0A 


70 


Id 


a,10 


;abscisa x 


D7 


80 


rst 


#10 




3E41 


90 


Id 


a,65 


cddigo ASCII de "A" 


D7 


100 


rst 


#10 




C9 


110 


ret 






No es dificil, que digamos. 


Una salved ad notable 



en esta lista de codigos de control la constituye el 
codigo para CLS que no esta. Para borrar la pantalla 
debemos Uamar a toda una rutina ROM de direc- 



cion &05DB. Es esencial que el canal S este abicrto 
antes de Ilannaria, y es tambien necesario que rea- 
bramos el canal S dcspues de haberlo usado si de- 
seamos que imprima cualquier otra cosa en la pan- 
talla. Esta rutina borrara la pantalla: 



3E02 


10 


Id 


a,2 


:abre canal 3 


C00116 


20 


call 


#1601 


CDDBOB 


30 


cafi 


#06db 


;borra pantaHa 


3E02 


40 


Id 


a,2 




CD0116 


50 


call 


#1601 


;reabre canal S 


C9 


60 


ret 







Una cualidad titil de la rutina ''salida de un carac- 
ter" es que los numeros pasados a ella que repre- 
s^ntan iostrucciones del basic son transmitidos por 
la rutina c impresos completamente, Asi: 

LD A,249 
RST &10 

imprimira, si se selecciono el canal S, P o K Ja ins- 
truccion RANDOMISE en la pantalla. 

Las instrucciones para graficoSj como PAPER, INK 
y BRIGHT, realizadas a traves de > rutina "salida de 
un caracter" son solo operativas para la secuencia 
de salida de caracteres (se dice que son Itenvi tern- 
porales del color). La instruccion PAPER fuera de 
una sentencia PRINT, es permanenie y opera hasta 
que se emite otra instruccion PAPER. 



AnR-p 




PAPER 



BRIGHT 



FLASH 



MASK-P 



t t 



PAPER 



BRIGHT 



FLASH 



PFLAG 



P T P T P T P t| 



L 



J L 



J L 



PAPER 9 INKS INVERSE OVER 

BIT=1:G0NFG ACTIVA BIT=0;CONFG INACTIVA 



Las dos variables de si stem a que nos interesan son 
ATTR-P y MASK-P. EI esquema anterior muestra 
c6mo estas variables controlan dife rentes aspectos 
de la visualizacion. Bn ATTR-P los tres bits que 
controlan el color de PAPER y de INK de manera 
permanente se dan, con sus valores respectivos, eti 
el euadro de la pagina siguiente, encima de la pri- 
mera columna de texto. Si el bit de FLASH o BRIGHT 
es uno, la configuracion es operativa. La variable 
ATTR-P se halla en la direccion 23693. 

MASK-P tiene de direccion 23694 y todo bit 
puesto a uno en este byte hace que los atributos en 
pantalla situados en la posicion relevante de impre- 
sion no se alteren con el contenido de ATTR-P. 
Otra variable impoHante es la PFLAG que esta en la 
direccion 23697. Damos tambien un cuadro sobre 
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Sistemas operativos/Lenguaje maquina BBj 




— 


Bits 


Color 




000 


r^egro 




001 


Azul 




010 


Rojo 




Oil 


Magenta 




100 


Verde 




101 


Cyan 




110 


Amarillo 




111 


Blanco 



esta variable. El OS la usa para indicar PAPER 9, 
INK 9, INVERSE y OVER, 

Hay ademas dos variables en las direcciones 
23695 y 23696 y son ATTR-T y MASK-T. Se dispo- 
nen de modo semejante a las variables ATTR-P y 
MASK-P, pero controlan los colores temporales 
(los usados en las sentencias PRINT y en los eslable- 
cidos enviando codigos de controi por medio de la 
nitina RTS &10) . 

Para cstablecer colores mediante ATTR— P y 
MASK-P basta con manipular el contenido de las 
variables de sistema, alterando solo los bits que nos 
interesen. 

Esto se puede realizar facilmente en ei Z80 me- 
diante las operaciones logicas AND y OR. Asi, para 
ejecutar una instruccion permanente PAPER 1 ;INK3, 
estableceremos la variable ATTR-P de la siguiente 
manera: 



0 


0 


0 


0 


1 


0 


1 


1 1 





L 



J L 



PAPER ^ 

mediante este c6digo: 



INK 3 



LD 
LD 



A.11 

(23693).A 



:?tno ocurre con las mstrucciones 
- e INK del basic, los nuevos co~ 
■ zue ha sido impreso antes y 
_ . : coior PAPER mientras no 
" ? _S r equivalente. 
_ . . t[ ^Dectrum forman 
" . - 1 e - ■ iic, Veamos 



Al emplear 
- : :6 de colores 
P, sesun 



. ^j^Wi^^,^...- 

zri^'.is rutinas no es dii: :. 
aiierando las variable^ A 
acabamos de describir. 

Las rutinas en si son faciles de emplear. La pri- 
mera, PLOT, se llama en la direccion St22E5. Sus 
coordenadas le son pasadas mediante el par de re- 
gistros BC (B para la ordenada y, C para la abscisa 
x). Asi, para ejecutar PLOT 100,100 desde un pro- 
grama en c6digo maquma simplemcnte ejecutare- 
mos lo siguiente: 

;ordenada y 
;abscisa x 



LD BJOO 

LD C,100 

CALL &22E5 ;lo ejecula 
RET 



Los cambios de color se realizan con facilidad. La 
siguiente rutina traza un punto rojo en la pantalla y 
despues restaura ATTR-P a su estado previo antes 
de volver al basic. 





10 


id 


a, (23693) 


F5 


20 


push 


af 


E6F8 


30 


ind 


248 


F602 


40 


or 


2 


0664 


50 


Id 


bJOO 


0E64 


60 


Id 


ClOO 


CDE522 


70 


call 


#22e5 


F1 


80 


pop 


af 


32SD5C 


90 


Id 


(23693), a 


C9 


100 


ret 





;toma ATTR-P del reg A 
:y Iq lleva a la pila 
;pone los 3 bits inf a 0 
;pone bit 1 para tinta roja 
:ordenada y 
;abscisa x 
;ilama a PLOT 
:restaura el contenido 
;orlglral de ATTR-P 



Hasta ahora nos he mos centra do en d canal S. 
^Que decir del canal K y sus facilidades de salida? 
Si se quierc, es posible escribir en la parte inferior 
de la pantalla, pero si el OS o el interprete genera 
un mensaje, este se sobreimprime. Si empleamos 
este canal para entradas, no se necesita ni siquiera 
llamar a la rutina de ROM. El teclado es inspeccio- 
nado cada 20 microsegundos y se afectan algunas 
variables de sistema scgun se haya pulsado o no 
alguna tecla. Dos ejeniplos de empleos son LAST-K 
(con direccion, 23560), que retiene el codigo del 
car^cter correspond iente a la tecla ijltimamente 
pulsada, y una variable de sistema con direccion 
23556, que reticne et valor 255 si en ese momcnto 
no se ha pulsado tecla alguna. Sc puede usar la ruti- 
na para que espere hasta que se pulse una tecla y 
despues lleve el codigo del caracter al registro A, 
Consiste sencillamcnte en comprobar el contenido 
de la direccion 23556 y ver cuando no es 255. El 
valor contenido en LAST— K sera en ese momento el 
de la tecla recien puisada. 



:compmetja si se pulso 
:algiina tecla 
;stgLjen comprobando 
;lieva LAST-K al reg A 



Antes de abandonar e! teclado, repasemos un par 
de variables de sistema de bastante utilidad. 





10 :futina OBTiNCION CARAC 


3A045C 


20 key: 


Id 


a,(23556) 


FEFF 


30 


cp 


255 


2BF9 


40 


jr 


z.leey 


3A0B5G 


50 


Id 


a,(23560) 


C9 


60 


ret 





VariablB 


Dlfeeciin 


Descrlpcldn ^ 


REPDEL 


23561 


Retardo de un 50avo de segyndo antes de que el teclado comience 






repeticion. Se puede alterar este valor y el retardo antes de que el teclado 






inicie ia repeticion 


REPPER 


23562 


Retardo entre fa segunda repeticim del teclado y las siguientes. Tambi^n se 






puede alterar (POKE) 


PIP 


23609 


Duraci6n del sonido que acompana la teda pulsada, tin valor mayor genera 






un pitido 



Otro canal del Spectrum no ampliado que nos sera 
util es el canal P, empleado por la impresora ZX. 
Tiene habit ualmente 3 corrientes asociadas. De 
este modo: 

LD A,3 
CALL &1601 

abrira el canal P y si se cone eta la impresora ZX se 
imprimir^n los caracteres que sigan. Esta claro que 
el BASIC hace un uso muy amplio de los dLferentes 
canales: PRINT y LIST utilizan el canal S. LPRINT y 
LUST el canal P e INPUT otiliza el canal Podemos 
anadir nuestros propios canales a estos tres que 
acabamos de examinar, de manera que podamos 
accede r con facilidad a algun dispositivo adicional 
como el microdrive, otras impresoras u otras confi- 
guraciones hardware. 

En el proximo capitulo examinaremos este punto 
con mayor atencion. 
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Software/Shadowfire 



Facto 
lital 



LttpHaQonistas it Is ac€l6n 

Vemosaqui. en situaciones 
: 'r^r"e?. aires de los 
zi^iz i ii cue ei jugador tiene 
zi i i. =- Snadowflre. A 
2 zz. rzi ~z"<sQ hafia en 
-zzi :r "■:v''^"snto, con 
z s:":-^a:: caido las 
: : 'e:: :"5> Duede 

Mc": 'f; , ;e "= a en 
TTDCa cac 05 a:aq^5. 
Nu^vafii^itG^ SB destacan las 
poslbles dinecclones que puede 
tomar y , a la izquienla de ia 
pantalla. aparecefi stis 
adversarios Bn forma de tconos. 
Maul, undroidede bataiia, 
aparece con una pantalla de 
objetos. La seccidn del centra 
de la parte inferiorde fa 
visualszacion muestra ios 
objetos que lleva actualmente 
consigOn y a la izquierda 
aparece n los objetos que se 
hallan cerca de el y que puede 
recoger. Las mstrucciones se le 
envian al ordenador 
desplazando un cursor (una cruz 
blanca) hastael Icono 
seleccionado y pulsando el 
boton de disparo de la paianca 
demando 



El control del cursor mediante la 
seleccion de iconos le confiere 
a "Shadowfire" una excitante 
dimension 



Hasta el observador mas indiferente se habra per- 
catado ya de que los juegos por ordenador se est^n 
volviendo cada vez m^s sofisticados. En lugar de 
reproducir servilmcnte juegos de estilo recreative o 
de limitarse a juegos de aventuras basados s61o en 
texto tornados del formato de Calabozos y drago- 
nes, los disenadores de juegos para ordenadores 
personates cst^n desarroilando su propio estilo. 
Estos juegos combinan muchas de las caracteristi- 
cas de [os formatos rccreativo y de estrategia para 
producir una diversi6n que dura bastantc mas de 
los cinco minutos mas o menos que dura la accion 
recrealiva, y que es mas exigente incluso que los 
intelectualmente complejos enigmas de los juegos 
de aventuras. 

El argumento de Shadowfire basicamente el 
siguiente: el general Zoff, un desertor, ha captura- 
do al embajador Kryxix, quien posee los pianos 
para un nuevo tipo de nave espacial denominada 
Shadowfire. El jugador ha de rescatar el embajador 
antes de que este se vea forzado a revelar los pla- 
nes, y dispone de 100 minutos para cumplir su mi- 
sion. Para ayudarlo a reahzar el rescate cuenta con 
seis personajes, cada uno de ios cuales posee dife- 
rentes puntos fuertes y de biles. 

Para introducirse a bordo de la nave espacial de 
Zoffj su equipo debe ser * 'tele transport ado " . El 
unko miembro capaz de organizar csto es el zanga- 
no Man to J de modo que primero debe ser enviado 
el para que tienda el haz teletransportador que se- 
guiran ios demas. 

Sin embargo, antes de que usted los despache, es 
aconsejable proveer a cada personaje de las armas 
disponibleSj en funcion de sus cualidades y su 
"talon de Aquiles". 

Shadowfire utiliza un sistema exclusive para des- 
plazar los personajes, perm i tie n doles recoger obje- 
tos y iuchar. A difereocia de otros programas de 
aventuras, que exigen que el usuario digit e instruc- 
ciones tales como "avanzar norte" o "recoger 
l^ser", este juego permite lievar a cabo todas las 



Zark Mondor 
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accioncs mediante iconos y un cursor movil: algo 
asi como el sistema operative empleado en cl 
Apple Macintosh. Por ejemplo, para proporcionar 
granadas de mano al lider del equipo, Zark, usted 
debe seleccionar el icono de este, Tras elegirlo, la 
pantalla pasa a una visualizacion grafica de su fuer- 
za, su estamina y otros atributos. En el lado dere- 
cho de la pantalla hay tres iconos *'monitores'' que 
representan el movimiento, la modalidad de batalla 
y la pantalla de objetos. 

Seleccionando la pantalla de objetos con ei cur- 
sor (que se puede mover desde el teclado, median- 
te la paianca de mando o un lapiz optico), esta Gam- 
bia otra vez, pasando a visualizar los objetos que se 
hallan en las inmediacioncs del personaje, asi como 
varios iconos de "actividades". Escogiendo el icono 
"recoger" y desplazando despues el cursor hasta el 
icono de la granada, se equipar^ a Zark con gra- 
nadas. 

Una vez armado y "teletransportado" hasta la 
nave espacial, d equipo comenzara a buscar al ge- 
neral Zoff y al embajador Kryxk. La nave espacial 
se compone de numerosas habitaciones y pasillos, 
algunos de los cuales contienen armas o I laves que 
le permitiran abrir puertas cerradas, mientras que 
otros ocultan guardias enemigos, a ios que habra de 
destruir antes de poder seguir adelante. Si usted ca- 
rece de la Have apropiada, puede requerir los servi- 
cios de Sevrina. quien se especializa en hacer saltar 
cerraduras. 

Para emplcar de la mejor forma posible los 100 
minutos de que dispone, debe trazar una estrategia. 
Algunos personajes se desenvuelven mejor que 
otros en ciertas situaciones y, por lo tanto, es reco- 
mendable tener a la persona correcta en el lugar 
adecuado y en el momento oportuno. 

Lo que hace de Shadowfire un juego tan intere- 
sante es el control por cursor. Con el proceso de 
seleccion de iconos, el jugador puede reaccionar 
ante las situaciones con mayor rapid ez que si hubie- 
ra de digitar cada instruccj6n por separado. 




Tor Ik 



Maul 
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Inteligenciaartfficial/Aplicacioiies 




Aprender 
a aprender 

Para resolver muchos de los 
problemas que se presentan en 
el campo de la Al es preciso 
crear un sistema que aprenda 
por SI solo 



Si, con el correr del tiempo, un sistema de ordena- 
dor ha perfeccionado su ejecuci6n de una tarea de- 
terminada sin ser preprogram ado, cabe afirmar que 
ha aprendido. Es importante destacar que ello su- 



pone un criterio acordado, o normalizado, eo rela- 
ci6n al cual se pueda medir al sistema. En ausencia 
de una forma acordada de evaluar ei progreso, no 
tiene ningun sentido hablar de aprendizaje. Por 
consiguiente, un algoritmo de aprendizaje intenta 
cumplir uno o mas de los siguientes cometidos; 

• Cubrir una gama mas amplia de problemas. 

• Ofrecer soluciones m^s exactas. 

• Obtener respuestas a un costo inferior. 

• Simplificar ei conocimtento codificado. 

El ultimo punto da por sentado que la simplifica- 
cion del conocimiento almaccnado es valiosa, aun 
cuando no re suite en perfeccionar el rendimiento 
de la tarea del ordenador. Ello puede ser asi si el 
sistema comienza con un conjunto de reglas .y 
acaba con otro conjunto, igualmente eficaz, que re- 
sulte ser mas comprensible para nosotros, 

EI aprendizaje de la maqutna se puede apHcar en 
muchos campos; pero los sistemas de aprendizaje 
de mayor exito se han aplicado a problemas de cla- 
sificacion. 



Ian MaKinnell 



Inteligencia crilica 

Los psic6[ogos han sugerido que el nino aprende 
mediante ia formacion de estructuras de reglas, 
conocidas como esquemas, a menudo mediante un 
proceso de ensayo y error, comprobando hipdtesis 
(las regtas) y conservando aquellas que ofrecen 
resultados correctos. En muchos casos el proceso 
de aprendizaje lo dirige alguien que posee un 
conocimiento sobre los resultados ideales (e! 
cntico). El critico {o maestro) ayuda a! nino (el 
aprendiz) a evaluar y refinar su conjunto interno de 
reglas, que lo ayudar^ a perfeccionar su 
rendimiento ante una tarea determinada. Los 
sistemas de aprendizaje Al intentan reproducer este 
proceso mediante la creacfon de una base de 
co-^ocimientos que se pueda utilizar junto con un 
x^">-to de aprendizaje de ejemplos y un metodo 
evuur e! rendimiento de cada regla 




Sjstema Ideal 



^aflda 
ccirrecta 




Ejecutante | ^^^^^^ 



Reglas (base 
de conocimientos) 



Cn'tico 



Aprend 



1> 



Deseado 



Actual 



ilRADA 





□ 

cuadrado 



cuadrado 



ENTRADA 



(paral^togramo) 
jcuadrado! x oO 



£IJTANTE/ 
DEREGUSV 
KDIDIZ 



tsmco 







(cuadrado 

\cuadfado!^_\ . 



Alumno 



Afumno 



Maestro I 




nciJadrado!\ , 
SALIDA fr>fii€> 
Alumno 



r 1) Ur oiadrado liene ^ 
A Mas. ] 
!) Todi» M ixlos liar 
la rfiisma longtlLxl 



Ma es t 



IncflrrectQ.. pew^ 
^^amtxis regies sgn bue^ 

mis rec'as 



hogrrecto. tus- 
1 do5 H- reglas son i 
\^ buenes perp $~ ' 



Maestro ^ ^ 

PASO 4 



PAS03 



PASO 2 



PASOl 
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Aplicaciones/lnteligencia artificial 



El objetivo de un sistema de este tipo consiste en 
tomar un dato de entrada y clasificarlo, identificar- 
lo o interpretarlo de alguna manera. 

Se ban probado di versos procedimientos para 
obtener mejoras automaticas del rendimiento, sien- 
do Artbur Samuel, con sus clasicos estudios del 
aprendizaje de ia niaquina mediante el juego de 
damas, el pionero de dos de los metodos m^s sim- 
ples: el aprendizaje de rudna y el ajuste de pard- 
metros. 

El ajuste de pardmetros, un metodo en el cual los 
coeficientes y [os parametros del programa se ajus- 
tan repetidamente al objeto de mejorar el rendi- 
miento, es simpiemente una especie de tecnica de 
optimizacion. Este metodo se ha estudiado de 
forma exhaustiva en la literatura sobre matematica 
aplicada y, por lo tanto, esta relativamente bien 
comprendido. EI aprendizaje de rutina es completa- 
mente "no creativo", y puramente una tecnica de 
compresion del almacenamiento, mientras que los 
metodos que consideramos aqui' son capaces de ge- 
neraiizar y, por tanto, aprender la respuesta apro- 
piada en una srtuacion hasta entonces desconocida. 

Todo sistema disenado para crear nuevos conoci- 
mientosy, portanto, mejorar su rendimiento, debe 
incluir los siguientes componentes fundamentales: 

• Un conjunto de estructuras de datos que repre- 
sente el actual nivel de pericia del sistema (las re- 
glas). 

# Un algoritmo de tarea (el ejecutante) que utilice 
las regfas para dirigir la actividad de resolucion del 

Cliarles Darwfn {1809-1882) problema. 

--stsorpasde Darwin sobre la ^ modulo de realimentacion (el cMco) que 
especjesseadaptanyse compare los resultados actuales con los objetivos 

:^ rfeoci 0 n an a s I m i s mas en dese a dos . 

-BscuestaasL/madjaambfente m El mccanismg de aprendizaje propiamente 
dicho (ei aprendiz) que emplee la realimentacion 
^^^iros mas fuertes y mejor ^nti<^0 para corregir las reglas. 

iC-3C'-3dcs para criar la siguiente 

:e-r z' y transmltirie sus HI metodo de representacion eleeido para codifi- 

. : . "r..:," .^^i^^ car el conocimiento del sistema es al menos tan im- 

:i-:r :f Vi r^: 3 edela portante como los detalles del algoritmo de apren- 
'."z-j aueios dizaje. En consecuencia, antes de construir un sis- 
ini':/: \ A .^^i;^ tern a de aprendizaje. es esencial asegurar que el 
.! ^ lenguaje de descripcion empleado con el sistema 

:^:r : : if :: - ."::s ae Sea capaz de expresar las clases de distinciones que 
j_: 15 li : 11 - li: :^ J^*oes seran necesarias, problema nada trivial. 
_ - : : Suponiendo que podamos re solver el problema 

: : . . _ '-'^^ de idear un lenguaje de descripcion adecuado. nos 
I , , . : queda el problema de automatizar la generacion de 

5=:f : : :■ i li : i; ::i::^ descripciones prccisas mediante el mismo. 

Una forma de enfocar el problema es hacer 
como si se tratara de una busqueda a t raves de 
TO das las descripciones posibles con el fin de hallar 
^1^^ Y ^^^^H aquellas que sean utiles en un contexto dado. Un 
Y_ ^ ^^¥^^^^^1 sistema de Al que aprenda a ciasificar puede co- 

vo^^^^^H menzar con una serie de parametros que se utiliza- 
^ ' ^^^^^B ran para efectuar una clasificaci6n. En la fase de 

aprendizaje. el sistema podr^ generar y evaluar 
otras descripciones mediante la combinacion, de 
ina u otra manera, de los parametros originales, 
conserv'ando las descripciones que sean de ayuda 
para una clasificacion correcta y descartando las 
que no sir\'an. La can rid ad de descripciones genera- 
das que sean validas sintacticamente puede ser as- 
tronomica. y. cuanto mas exprcsivo sea el lenguaje 
de descripcion. mas explosivo sera este problema 

combinatorio. 
JBC Hulton Picture Library 
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Es evidente que se debe hallar alguna manera de 
dirigir la busqueda ignorando al mismo tiempo la 
inmensa mayoria de descripciones potenciales que 
sean irrelevantes. 

Numerosos metodos ban funcionado bien como 
casos de aprendizaje *'libres de ruido", en los cuales 
las clasificaciones estan bien definidas, con pocas 
dreas oscuras entre las clases. Sin embargo, tratar 
con datos "ruidosos'' es un problema que plantea 
mas desafios, Veamos ahora un procedimiento 
comparativamente simple que parece funcionar 
bastante bien en este segundo caso, 

BEAGLE {Biological Evolutionary Algorithm 
Generating Logical Expressions: algoritmo de evo- 
lucion biologica que genera expresiones logicas) es 
un sistema de ordenador que produce reglas de de- 
cision mediante la iriducci6n a partir de una base de 
datos. Como tal, direcciona el problema (con fre- 
cuencia eludido) de saber de donde provienen las 
reglas de un sistema basado en reglas. BEAGLE 
trabaja segun el principio de la ''seleccion natural", 
en e! que las reglas que no se adaptan a los datos se 
suprimen y se sustituyen por "mutaciones" de re- 
glas mejores, o por reglas nuevas creadas mediante 
la uni6n de dos reglas mejor adaptadas. Las reglas 
son expresiones booleanas representadas mediante 
estructuras arbor escentes. 

El software original estaba compuesto por dos 
programas en pascal: HERB (Heuristic Evolutio- 
nary Rule Breeder, creador de reglas evolueionistas 
heuristicas) y LEAF (Logical Evaluator And fore- 
caster: evaluador y pronosticador logico). 

HERB exige que el usuario cree tres archivos de 
entrada: uno de datos. otro de resultados finales y 
un archivo de reglas vie jo, que puede estar vacio. 
Produce como salida un archivo de reglas nuevo, 
que es al menos tan bueno como el viejo. El archi- 
vo de datos contiene el conjunto de aprendizaje, 
para el cual se conoce la pertenencia a la categoria 
correcta. Asimismo, el usuario ha de llenar una ma- 
triz de resultado finaU que define el valor o costo de 
clasificaciones conectas e incorrectas. 

LEAF es mis simple que HERB. Toma se nci lla- 
ma nte un archivo de datos del mismo formato que 
el conjunto de aprendizaje y ejecuta sobre el un 
archivo de reglas. Se le puede solicitar que impri- 
ma, entre otras cosas, una iista ordenada de ele- 
mentos del archivo de datos de aquellos que tengan 
mayores probabilidades de encajar en una clase 
dad a (tal como la delina el archivo de reglas) hasta 
aquellos que menos probabilidades tengan de en- 
cajar en la clase. 

El algoritmo BEAGLE consiste en repetir el 
procedimiento siguiente durante un cierto numero 
de "generaciones" (una generacion es una pasada 
completa a traves de los datos de aprendizaje), 
L Evaluar cada regla en cada muestra de acuerdo 
a la matriz de resultado final, dandole una prima a 
las reglas mas cortas. 

2, Colocar las reglas por orden descendente de me- 
ritos y suprimir la mitad inferior, 

3, Reemplazar las reglas *'muertas" aplicandole un 
procedimiento de emparejamiento a un par de su- 
pervivientes elegidas al azar, re comb i nan do, por 
tan to, porciones de reglas buenas. 

4, Transfer mar unas pocas reglas elegidas al azar 
(pero no la superior) y aplicarles a todas las reglas 
nuevas un procedimiento TIDY, preparado ya para 
la proxima generacidn. 



Inteligencia artificial/Aplicaciofies 



El procedimiento TIDY reduce ciertas redundan- 
das sintacticas (cn ingles) que se puedan habcr ge- 
nerado, como dobles negaciones y expresiones 
constantes, dejaiido el arbol dc rcglas *'podado" 
esencialmente con el misrao conjunto de reglas, 



con la excepci6n que estara expresado de forma 
mas sucinta, Este metodo para la generaci6n dc re- 
glas nuevas se basa en las ideas darwinianas sobre 
la evolucion: para criar a la nueva generacioD solo 
sobreviven las reglas mas aptas. 



morme meteorolbgico 

Un ejempio de sistema de aprendizaje es el que 
utifiza el registro del tiempo de un dfa para 
pronosticar Si lloveraal diasiguiente. Para 
determmaresto fa maqoina debe "aprender" una 
regia buena. El sistema puede empezar con una 
serie de caracterfstfcas sobre el tiempo; 
precipitaciones, intensidad del sol, velocidad 
maxima de! viento y presidn del afre (todo eJlo 
medido por latarde, pongamosporcaso). Para 
poder aprender las reglas que permitiran que la 
maquina formule pronosticos adecuados, se debe 
reunir un conjunto de registros de datos. For cada 
registro se sabra si ilovera at dia siguiente. Un 
registro tipico serfa: 



Lluvia 
Sol 

Viento 
Presion 



0 

7.2 
22 

1017 



Generaciones de reglas 



B sistema debe producir reglas (tal vez, al 
principio, de forma aleatoiia) y utilizar el 
aprendizaje para comprobar su validez. Las reglas 
se pueden retener como componentes, tales como; 

Caracteristicas Viento 

Constantes 10 

Operadores de comparacibn > o < 

Operadores Idgicos AND, OR y NOT 

y ^stos combinarse en expresiones como: 

sol <4 AND presion <1000 

Tras cada pasada de aprendizaje se pueden 
consemr las reglas buenas y desechar las malas, 
sustituyendo estas pornuevas regfas "criadas" con 
partes de fas reglas buenas restantes. Desarrollando 
regfas que mejoran su rendimiento a cada pasada 
de entrenamiento, la maquina debe mejorar su 
capacidad para pronosticar el tiempo de manana 

GENERACION 



PADRE 





HUOS 



Lluvia > 0 J)C^ ^ 




l> 6 6 



NIETOS 



A partir de una descripcibn 
in ml, como 
"lluvia>1 se pyede 
generar una serie de rruevas 
descripciones transform an do la 
sentenciaorlglnaf o 
com bin an do la con otras 
sentencias. De esta forma se 
puede procfucirunirbolde 
C5scendientes a partir de una 

ca descripcion, y conslderar 
e joDceso de aprendizaje como 
una busQueda de descripciones 
adecuadas a traves del drboi. 
Dado que las aplicaclones 
repetidas de una transformacfon 
pueden llevar a la regeneraci6n 
de un nudo ancestral (como 
wws en el ejempio), el espacio 
(tetiBl)ajo implicito es en 
isaTMlad una red 



/•iyTluvia 




BIZNIETOS 



6 t> (i^^^S^t 
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Replica perfecta 



At impartir la instruccidn 
SYSGEN, el CP/M se copia a si 
mismo de un disco a otro 



Hasta ahora en esta serie hemos venido examinando la 
gama de instrucciones disponibtes en CP/M y ya esta- 
mos en condiciones de llevar a cabo todas las funcio- 
nes que se podrian necesitar en casa o en la olicina. 
Podemos cargar, editar, guardar y transferir los diver- 
sos tipos de archivos que estan definidos por el CP/M, 
asf como examinar sus propiedades. No obstante, hay 
una fiincion vital que no hemos realizado hasta el mo- 
mento: a saber, copiar el propio CP/M. 

Como es obvio, es sumamente importante poder 
transferir el CP/M a otros discos; no solo para proveer- 
nos de una copia de seguridad, sino tambien porque 
muchas aplicaciones requieren colocar en el disco una 
versidn del CP/M especlalmente instalada. Un ejempio 
de ello es el Dr. logo en el Amstrad, que in corpora una 
version del CP/M hecha a medida en la misma cara que 
el lenguaje que, a su vez, contiene procedimientos ex- 
tras para editary colorear. 



Formando 
pistas 

S : r I -"ivsr partedeun 
c ::: :f :=::sCP M esta 
c " : T Zi'i archivos del 

ei::r rr? fsis reservadas 
p='= si propio 
CS -3 : '.z : 'stene el 
ci'ziz:' ;f a";"que, que 
c£'" r.anente^l 
CP Vr^rf r:-didoy&[ 
reset, z- ii :_e as pistas 
uno y cl£ 'r: i'i" e. Sistema 
CP M propiamentc dicho. 
Tras e\i&B estan ias pistas del 
directorio- que relienen Ids 
FCB, que muestjan 
exactamefrte donde estan 
situados [OS registros de que 
consta cada archivo 



CARGADOR 
E ARRANQUE 



PROGRAMASDEL 
SISTE^^ACPIW 

PISTA{S) DEL 
0IRECT08I0 





RESERVADO PARA LOS 
- ARCHIVOS DEL USUARIO 



Coplar el CP/M es bastante simple. En el disco del 
sistema se proporciona una instruccidn transitoria lla- 
mada SYSGEN; al ejecutaria, el programa Je presentara 
una serie de preguntas, segun las caracteristicas del 
sistema, que se pueden utilizar para transferir el CP/M 
ai disco de destino. 

Esto sLfena muy tad I. Sin embargo, la operaci6n 
plantea algunas cuestiones interesantes sobre la natu- 
raleza del CP/M. ^Por que necesitamos una instruccidn 
especial? tPor que en un listado del Dl Recto rio no 
aparecen ni el CP/M ni sus instrucciones residentes 
(Incorporadas)? Y, ademas, ^cdmo lee realmente el 
CP/M un directorio? Para responder a estas preguntas, 
centremonos en la construccidn de! CP/M. 



El OS que se carga en el ordenador se puede dividir 
en tres partes, cada una de las cuales maneja una parte 
determinada de la operacidn de disco. La parte con la 
que usted estara mas famillarizado es el CCP {Console 
Command Processor, procesador de instrucciones de 
consola); que parece natural puesto que se trata de la 
"fachada" del sistema, el area que en via informacidn 
al monitor de video e interpreta las instrucciones que 
se digitan en el teclado. 

Sin embargo, hace muchas mas cosas entre basti- 
dores. Cuando se digita informacidn y se entra por ef 
teclado, el CCP da por sentado que la informacidn re- 
presenta instrucciones y, en consecuencia, estas se 
transfieren al area de buffer del CCP a traves de otra 
parte del sistema denominada BIOS {Basic Input/Out- 
put System: sistema basico de entrada y salida). El 
CCP realiza, entonces, una comprobacidn de las ins- 
trucciones residentes para ver si su instruccion corres- 
ponde a alguna de ellas. De ser asf, esa instruccidn se 
ejecutara de inmediato. Si la instruccion no es ninguna 
de las "incorporadas", el CCP dara por sentado que es 
transitoria y la buscaraen el disco del sistema. Una vez 
focalizada, se cargara en la memoria y se ejecutara. Si 
el CCP no consigue encontrar la instruccion, generara, 
por supuesto, un mensaje de error "file not found" 
(archivo no hallado). En el caso del CP/M, el CCP vi- 
suaiizara el nombre de la instruccion en letras mayus- 
culas, seguidas por un signo de interrogacidn. La 
causa de que la instruccidn se visual ice en mayusculas 
es que una de las tunciones del CCP es convertir todas 
las instrucciones en minusculas a mayusculas, para 
adecuarlas al sistema de denominacidn de archivos del 
CP/M 

Sistema basico de 
entrada/salida 

El BIOS es un conjunto de rutlnas (conocidas como 
activadoras de perifericos) que mantpuian todas las 
tunciones de entrada/salida del GP/M. Su final idad 
principal consiste en gestionar los penfericos que 
esten conectados en cada momento al sistema (in- 
cluyendo el teclado y la pantalla: el CCP se limita a 
enviar e interpreta r inlormacidn a traves del BIOS). El 
sistema utiliza parametros proporcionados por el CCP. 
Si usted deseara "disehar a medida" el CP/M para eje- 
cutarlo en otra maquina, es el BIOS lo que tendria que 
alterar para que el programa se pudiera ejecutar de 
forma correcta. El motivo de ello (aparte de que el 
CP/M tenga ciertas exigencias de hardware) es que el 
metodo de administracion de perifericos puede experi- 
mentar grandes variaciones entre maquinas diferentes. 
La tercera parte del CP/M es la seccion que se ocupa 
directamente de la gestion del disco. Esta secddn se 
denomina BDOS (Basic Disk Operating System: siste- 
ma operative basico de disco). Este es el componente 
menos "visible" del CP/M y, sin el, el CP/M sena inca- 
paz de alcanzar su objetivo fundamental. BDOS es el 
software que administra los archivos en disco, asigna 



CP/M/$oftware 



areas para almacenamiento y mantiene a[ dfa el direc- 
torio, A continuacion, veamos cdmo se distribuye eJ 
espacio de almacenamiento en un disco flexible, 

Sectores "soft" y "hard" 

Desde el punto de vista del hardware, un disco esta 
dividido en 40 pistas. Las versiones modernas del 
CP/M tambien tend ran tas pistas dfvididas en sectores 
soft (asi llamados por que es el software el que deier- 
mina los sectores). Los tipos mas antiguos de siste- 
mas de disco flexible subdividian las pistas en sectores 
hard, que eran leidos mecanicamente por medio de 
hardware. 

La mayoria de las pistas de un disco flexible se utili- 
zan para almacenar informacidn del usuario; no obs- 
tante, hay tres pistas (en un disco de 5 Va pulgadas) 
reservadas para que las utilice el CP/M. Estas pistas 
exteriores (numeradas del 0 al 2) contienen ei breve 
programa CBrgador del arranque (l^mbm conocido 
como monitor resldente), que permite que el CP/M se 
cargue a si mismo en e! ordenador sin que haya nmgun 
sistema operativo de disco presente en memoria. Estas 
pistas tambien contienen el sistema CP/M propiamente 
dicho. Es la informacion de estas tres pistas la que se 
instala en el disco mediante la instruccion SYSGEN. 

Los sectores (a ios que se alude en t^rminos CP/M 
como registros) contienen 128 bytes de informacidn. 
Se pueden agrupar registros entre si para formar una 
unidad: una unidad puede contener hasta 128 regis- 
tros, Un arctiivo CP M :Ledf ^e!?-?^ ^="5 r^'^s 
itfBttedes. ft?rlQlaiftt_- i : : ir ^ e . 
maxnp 13 por 12: :: : _:: -zfiBS). 

peqneno, 00 se lo poc; r.-. -. _ : egistro. 
Tampoco sera posible, en term ::s : i:: acomo- 
dar todos los registros de un archivo por orden se- 
cuenciai en disco. Por consiguiente, un sistema opera- 
tivo de disco debe poseer algun metodo para saber que 
sectores de un disco se estan utiiizando para cada uno 
de ios archives particu lares. 

En CP/M, esta informacion se conoce como FCB 
(File Control Btoctc. bloque de control de arctiivos). En 
yn disco de 5 Va pulgadas, estos FCB estan retenidos 
en la cuarta pista (que se conoce como pista del dlrec- 
torio). Este metodo de indexacidn de arcliivos es lei do, 
escrito, alterado y administrado por el BDOS. Un FCB 
se compone de hasta 33 bytes de informacion y retiene 
todos los datos necesarios para posibilitar que ei BDOS 
identifique y localice cualquier archivo en un disco. 

El FCB se compone, en primer iugar, dei "ttpo de 
entrada", un unico byte que retiene la identidad de la 
unidad de disco en la cual reside actualmente el disco 
que contiene el archivo. Los ocho bytes siguientes 
contienen ei nombre del archivo seguido por tres bytes 
que est^n reservados para la extension. Los bytes dei 
12 al 14 se utilizan para retener la extension totai 
del archivo, mientras que ei byte 15 retiene el contador 
de registros (que indica cuantos registros tiene ei ar- 
chivo). Los 15 bytes siguientes contienen el mapa de 
asignacidn de disco del archivo. Por ultimo, ei ultimo 
byte retendra el siguiente ndmero de registro a acceder 
(en caso de que el archivo ocupe mas de los 16 K que 
se pueden describir mediante un solo FCB). 

(iuando se ha abierto un archivo mediante la ejecu- 
cidn de una instruccion, ei CCP crea una version del 
FCB en el area de memoria normalmente reservada 
para instrucciones transitorias. La informacion extra 
acerca del arcliivo (como su longitud, su cantidad de 



registros y su asignacion de sectores) la proporcionara 
el BDOS cuando encuentre un archivo cuyo nombre 
concuerde con el creado por el CCP. La razdn de colo- 
car un FCB en la memoria es para que ei BDOS pueda 
actualizar raptdamente ios datos retenidos en el mien- 
tras fas instrucciones del CP/M manipuian el archivo. 
Final izadas estas operaciones, el BDOS escribira en 
disco la versi6n final del FCB, teniendo en cuenta (a 
longitud de registros y asignacion de sectores alte- 
rados. 

Ahora podemos retroceder un paso y resumir cdmo 
recupera el CP/M sus archivos. Cuando el CCP recibe 
una instruccion desde el terminal, inter preta ia primera 
palabra como la instruccion. Si la instruccion no esta 
residente en la memoria, el CCP enviarci el nombre del 
archivo al BOOS a traves del sistema de "mensajeria" 
BIOS. Ei BDOS buscar^ entonces la pista del directorio 
del disco hasta hallar una pareja para el nombre de 
archivo en uno de los FCB, Si el archivo es de instruc- 




Sistema 
tripartito 

El sistema operativo CP/M 
estS rfividido en tres 
componentes princi pales, 
cada uno deioscuaJes se 
conecta en interface con una 



parte diterente del ordenador. USUARIO 
El CCP envE'a y traduce Ja 
informacion hacia y desde et 
usuario, mientras que el BIOS 
se encarga de !a 
admlnlstracion de perif^rlcos. 
Por ultimo, el BDOS se 
encarga de la adminlstracion 
de software de archivos de 
disco 
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Clones (COM), el BDOS examinara el mapa de asigna- 
cion del disco para descubrir que sectores del disco 
estan ocupados por el archivo; una vez iocaiizados, los 
copiar^ en la memoria, en cuyo punto se ejecutara la 
instruccion, 

Esto puede significar que se requiera el BDOS para 
hallar otro archivo sobre ei cua! actuar, asi como pa- 
ra buscarlo y cargarlo en la memoria. Cuando se carga 
un archivo en la memoria, el BDOS tambien proporcio- 
na ios datos de FCB adecuados a una version vac fa de 
un FCB que haya reparado el CCP. Este FCB se actual i- 
zara a medida que avance la ejecuci(5n. Al tinai del pro- 
grama de instrucciones, ia version actualizada se voN 
vera a copiar en el disco mediante el BDOS. 
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Efectos laterales 



Veamos como el prolog incorpora 
'"efectos laterals" y vaiias 
caracteristicas "extralogicas" 



El PROLOG, como hemos visto, es un 
lenguaje esencialmente logico, pero 
ciertas funciones que necesita ifevar a 
cabo un lenguaje de programacion, 
como leer y escribir archivos y efectuar 
caicolos aritm6ticos, son basicamente 
procesales y no se ajustan con 
comodidad a la logica de predicado. 
Con el tin de hacer frente a estas 
fufidones. el prolog posee una cantidad 
de predicados incorporados. Algunos 
de estos ope ran en -base a efectos 
laterales: write(Termino) , por ejempio, 
triunfaia siempre, pero, como efecto 
lateral, llevara a cabo alguoa funcion 
udl (en este caso, escribir el valor de 
Termino en el can a! de salida actual). 

En PROLOG, todas las entradas y 
salidas se manipulan a traves de efectos 
laterales. 

Escribir archivos en prolog es lo 
mismo que escribir en la panlalla. Un 
predicado, te! I (Nombrearcliivo)(r^//: 
decir). le indica al prolog que en via 
tod a futura sal Ida al archivo 
espedficado; told (dicho) cierra el 
arcMvo. De modo similar, 
see(Nombrearchivo) (see: ver) le dice al 
PROLOG que lea el archivo mencionado, 
y seen (\isto) restablece el status quo. El 
prolog puede enviar codigos ASCII 
utilizando put{C6digo) (put: poner), 
mientras que get (obtener) lee valores 
ASCII. 

Para efectuar aritmetica, el prolog 
posee % arios predicados incorporados 
que en re alidad son f undone s que 
evalua el interprete. Uno de tales 
predicados '^e valuables" es IS (es), Este 
se utiliza de la siguiente manera: 

CI isCH-1. 

Que, en basic, equivale a: 

C1=C+1. 

Observe que C is C+1 sienipre fracasara 
en prolog, mientras que el C=C+1 del 
BASIC funcionara siempre 
perfectamente. Esto se debe a que 
lenguajes como el basic, fortilw, 
PASCAL J ALGOL y c emplean la asignacion 
destructiva. Es decir, al asignar el 
resiiUado de la expresion (a la derecha 
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de una sentenda de asignacion) a la 
variable (a la izquierda), todo valor que 
este retenido en esa variable se 
sobreescribira. 

El PROLOG no utiliza la asignacion de 
ninguna manera. En cam bio, em plea la 
unificacion. Esto es, una vcz que se ha 
ejemplificado una variable, toda otra 
ocurrencia de la misma variable en la 
totalidad de la clausula toma el mismo 
valor. Por tanto, decir que C is C + 1 
seria como tratar de dark a C dos 
valores difcrcntes al mismo tiempo. 

El predicado incorporado not (no) se 
utiliza para introducir informacion 
negativa y se define de modo que not(X) 
ser^ verdadero si X es falso y viceversa, 
igual que el NOT booleano del basic. 
Para que not(X) sea verdadero, el 
PROLOG debe primero demostrar que X 
es falso. Esto lo hace de una forma 
bastante candorosa: juna cosa es falsa si 
no se puede demostrar que sea 
verdadera! Imaginemos que tenemos el 
siguiente program a en prolog: 

Version en prolog estandar: 

lenguaje(pascaLdificjl) 
lenguaje(cobol,dif(dl) 
lenguaie(basic,sencillo) 
lenguaje(prolog,senctllo) 

Versi6n en micro-prolog: 

(lenguaje Pascal dificil) 
{lenguaje Cobol difidl) 
(lenguaje basic senciilo) 
(lenguaje Prolog senciilo) 

que lista unos pocos hechos acerca de la 
facilidad que entrana la programacion 
en di versos lenguajes. Podnamos 
formular prcguntas tales como: 

lenguaje{basic.DIF!CULTAD). 

donde DIFICULTAD es una variable, y el 
PROLOG respondera: 

DIFlCULTAO=sencillo. 
Pero si preguntamos; 

lenguaje(basfc.facil}. 

el PROLOG nos responde no. Ello se debe a 
que el objetivo que hemos planteado no 
se puede demostrar porque no csta ni 
explicit amen te enunciado en la base de 
datos, ni se puede derivar de otros 
heChos y reglas. El prolog, por 
supuesto, no eomprende el significado 
de las palabras, de mc^do que no puede 
saber que sencllfo y facil significan lo 
mismo. 



Esta idea de la "negaci6n como fallo'' 
es uno de los puntos mas debiies del 
PROLOG y se debe al metodo de prueba 
logica que utiliza el interprete. Este es 
I lam ado resoludon y no puede 
manipuiar informacion negativa 
directamente. Por ejcmplo, 
consideremos esta regia: 

not(A):-B,C,D 

(que afirma que X no es el caso si B, C y 
D son verdaderos). Esto no se puede 
escribir en prolog porque en el 
encabezamiento de una clausula no 
puede haber una negaeidn. 

Caracteristicas 
extralogicas 

El PROLOG no es un lenguaje puramente 
dcclarativo. Ya hemos visto como e! 
ordenamiento de las clausulas en el 
cddigo fuente puede influir en la forma 
en que funciona el programa. en 
especial en los procedimientos 
recursivos. De hecho, la pureza de su 
logica se puede diluir aun mas mediante 
cl empleo de las Uamadas caracteristicas 
'^extralogicas' , fail (fallo) y CUt (corte). 

La primera de estas, fail, se puede 
explicarfacilmente. Se trata de un 
predicado que fracasara siempre que se 
lo encuentre. ^Por que necesitamos a 
fail? jLa razon principal es la de 
niantener trabajando al prolog! Si 
estamos utilizando nuestro programa de 
ienguajes y preguntamos: 

ienguaje(Lang, senciilo). 
el prolog respondera: 

Lang = basic 

y se detendra, Encuentra la primera 
clausula de su base de datos que 
concuerda con el objetivo que hemos 
planteado y, habiendo demostrado el 
objetivo, ya no busca mas. Pero puede 
que queramos obtener una lista de 
todos los lenguajes sencillos. Podcmos 
obligar al prolog a producirla si 
anadimos una regla como; 

Version en prolog estandar; 

ltstasencillo;-lenguaie( Lang .senciilo). 
write(Lang),nl,fail 

Version en micro-prolog; 

((]istasencillo)(lenguaje X senciilo) 
(PX)PPFAIL) 



Ahora, si digitamos listasencillo, d 
PROLOG replicara: 

basic 

prolog 

no 

Lo que sucedio es que el prolog mtento 
demostrar el objetivo listasencillo 
demostrando en primer lugar 
fengLfaje(Lang,sencillo). Hallo el hecho 
!enguaje( basic, send H o) y establccio la 
variable Lang en el valor basic. Asi sc 
demostro cl primer subobjetivo. Paso al 
siguicntc y, con Lang siendo basic, 
encontr6 Write(basic). Puesto que write 
triunfa automaticamente (escribicndo 
basic como un efecto lateral), paso liI 
subobjcfivo siguiente, que es fail Este, 
por supuesto, fracaso, de modo que el 
PROLOG rctroccdio a write. Dado que al 
retroceder write (y los otros predicados 
evaluables) tampoco volvieron a 
triunfar, el prolog retrocedio aun mas 
hasta lenguaje(Lang,sencillo) e intento 
hallar otra forma de demostrar su 
veracidad. 

La otra caractenstica, CUt (ique se 
escribe !), tambi6n se utiliza para 
controlar el retroceso. Un CUt es un 
predicado que siempre triunfa. No 
o^$£3jiie. como efecto lateral, impide 
que el interprete retroceda a t raves dc 
eL Esto efectivamente congeia 
cualquier opcion sobre los valores de 
variables tomados previamente en un 
procedimiento. Asimismo, impide que 
se prueben clausulas alternativas en el 
mismo procedimiento, Un uso 
import ante de CUt es, en conjuncion con 
fail, asegurar que no se vuelve a probar 
otra vez una clausula deliberadamcnte 
lallida. Podriamos definir un predicado 
faltante cmpleando ! y fail del siguiente 
modo: 

Version en prolog estandar: 

faJtante(Clausula):- Clausula,! .fail. 
faltante(Clausula). 

Version en micro-prolog: 

((faltante X)(?X)/FAIL 
(faltante X) 

que es verdadero si la clausula dada 
como su argumento no csta incluida en 
la base de datos, y falso en caso 
contrario. Asi, podriamos preguntar: 

t2."ante(lenguaje(basic,sencillG)). 

PaiB demostrar faltante(lenguaje(basic, 
serdllo)) . debemos demostrar 
/enguaje(basic,sencillo). Esto es 
verdadero porque existe como un hecho 
en la base do datos. Pasando al cut, este 
:r.--^d3. automaticamente J pero iucgo fail 
zuc fiacase toda la clausula entera. 
in el Dit* el PROLOG habria 
^i-:crcxiC' e mteniado hallar otra 



forma de satisfacer Clausula. No 
obstante, el cut se levanta como una 
pared infranaueable en su camino y , 
dado que no existe ninguna otra forma 
de satisfacer el objetivo, todo debe 
fracasar. Asimismo, debido al cut, el 
FKOT-OG no buscara clausulas 
alternativas, dc modo que 
faltante(Clausula) acaba siendo falso 
(porque Clausula erix verdadcra) y 
nosotros no desperdiciamt)s csfuerzos 
buscando alternativas- 

Este ejemplo en particular ilustra un 
aspecto muy importante del prolog: 
puede tratar a su propio programa 
como un dato. Ello hace de este 
lenguLijc una opcion ideal para la 
programacion de inteligencia artificial. 
Este, junto con otras tccnicas de 
programacion avanzada del prolog, 
ser^n los temas del prdximo capitulo. 




De un lupra otra 

En el jitimo capitulo del prolog crearemos un 
programa para hacer que un robot s& desplace por la 
habitaclori ilustrada arrlba. Su5 poslctores se 
almacenar en el fornriato lLigar{puerta)etc. , y el robot 
se desplaza utilizando jr(Lugar1 Xtjgar2), Esto 
supone, en primer lugar, demostrar el subobjetivo 
lugar(Lugar1 ), es declr, establecer que el Lugart 
existe y que se puede efectuar un movim lento desde 
otros sjbobj'etivos sera necesario demostrar 
al objeto de planlficar un programa de [a ruta? 



Complementosal PROLOG 

PROLOG ten aiusioh ai oroenadorde 
Digital Equipment Corporation en el coal 
se implemento por primera vezj, y esta 
ampliamente reconocido como el 
estandar. Lamentabfemente, la 
implementacion del prolog mas popular 
para microordenadores (micro-prolog) 
ies una de las pocas versiones que 
difieren de estaf La otra implementacion 
principal para micros (prolog-1) se 
acerca mucho al estandar oeg-10 (asi 
como su sucesora, proloo-2). Los 
programas en micro-prolog se escnben 
enteramente como listas, de forma muy 
similar a la empleada en lisp, Sin 
embargo, al programador se le evita el 
esfuerzo de utilizar esta diffdl notacidn 
mediante la ejecucion de un programa 
pantalla denominado simple, que est^ 
escrito en MrcRo-PROLoe y proporciona 
una sintaxis aiternativa. Existen mochas 
pequenas diferencias entre eJ micro- 
prolog y la version estandar, que hacen 
que los dos dialectos ofrezcan un 
aspecto bastante diferente. El micro- 
prolog coloca ai predicado como el 
primer elemento de una lista. Por 
ejemplo; 

casa_de(martB,marciano). 

apareceriacomo: 

(casa^de Marte Marciano) 

MICRO-PROLOG tambi^n elimlna todos los 
conectores, tales como y comas, de 
modo que una clausula como: 

casa_Je(Planeta,Criatura):- 

nacido(Criatura,Ciudad), 

en(Ciudad,PJaneta). 



tendna el siguiente aspecto: 

Cicasa de x y)(nacido y z)(en z x)) 

que se puede leer como una lista de tres 
subfistas, Sfendo la primera el 
encabezamiento de la clausula. El 
programa Simpfe hace que esta sintaxis 
sea facii de comprender y, con su 
notacion de infijos para los predicados, 
la clausula podria tener este aspecto: 

X casa de y si y nacido z y z en x 

que serfa aun mas facil de comprender si 
no fuera por el hecho de que eJ micro- 
prolog solo permite x,y,z,X, Y o Z (o una 
de estas seguida por un digito) como 
nombres de variables. Entre las otras 
diferencias se incluye el empleo, por 
parte de! micro-prolog, de parentesis en 
vez de corchetes para las listas; la 
separacidn de argumentos y elementos 
de la lista con espacios y no con comas; 
la utiiizacidn de un 'f en lugar de un '1' 
para cut; y dar los predicados 
incorporados en letras mayuscuias, 
Asimismo, los predicados incorporados 
poseen nombres no estan dares y, en 
algunos casos, no hacen exactamente 
las mismas cosas que sus equivalentes 
estandarizados; pero esto ya es bastante 
comun entre los dialectos de lenguajes 
de programacion. El micro-prolog si 
posee una util caractenstica de la cual 
carece el OEC-lOy prolog: nos permite 
crear mddulos de programas. Los 
modules permiten escribir programas en 
unidades funcionales y luego 
combtnarlas, sin preocuparse por 
conflictos entre los nombres de los 
predicados. Ello le confiereal prolog una 
cierta dosis de estructuracidn, pero, as( 
y todo, el micro-prolog aun dista mucho 
de ser un lenguaje estructurado 
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Primero de su clase 



Con una inmejorable relacion caltdad/precio, el RM Nimbus 
irrumpe confiadamente en el mercado de gestion 



Ala conquista deunnuevo 
territoiio 

El RM Nimbus representa en 
cierto modo una ruptura para 
sus tabricantes, Research 
Macfiines, Basado en el 
procesador fntel 801 86, cam 
de direccionar hasta un 
megabyte dememoria, la 
m^Quina sugiere que la empresa 
est^ yendo mas alia de su base 
educativa, establecfda ya 
solidamente, con las miras 
pueslas en tin campo 
sumamente lycratrvo: e! 
mercado de gestion 



Research Machines Ltd es un nombre no muy co- 
fiocido en circulos ajenos al educative. En los ulti- 
mos anos la empresa se ha establecido como pro- 
veedora de microordenadores de ocho bits de gran 
calidad en escueias y colegios. El ordenador am- 
pliable 3S0Z y la maquina en red 4Sf)Z causaron un 
gran impacto desde el momento en que se Uevo a 
cabo en Gran Bretana el proyecto gubernativo 
''Los microordenadores en la educaci6n'\ convir- 
tiendose en la unica competencia seria para el BBC 
Micro de Acorn. 

A pesar del hecho de que ordenadoras como cl 
380Z se consideraron revolucionarios en el momen- 
to de su lanzamiento, ahora existe una demanda de 
mayor potencia de proceso, y esto s6lo lo pueden 
proporciunar los proccsadores de 16 bits. En res- 
puesta a esta demanda, Research Machines ha lan- 
zado un nuevo micro de 16 bits bajo el nombre de 
Nimbus. 






Obviamente, desde que apareciera el 380Z la in- 
dustria ha experimentado un considerable desarro- 
!io. El extremo superior del mercado en la actuali- 
dad esta dominado per el IBM PC y toda una mul- 
titud de "compatibles'*, la mayorfa de los cuales se 
basao en el procesador 8088, Aunque el 8088 es 
mas rapido que el ZSO, ya esta comenzando a pare- 
cer algo'anticuado. En favor de la empresa se debe 
reconocer que, al desarrollar el Nimbus, no ha 
caido en la tentacion de producir simplemente otro 
clono del IBM. En cambio, ha optado por basar ia 
maquina en el chip 80186, mucho mas veloz, un 
autentico procesador de 16 bits capaz de ejecutar 
hasta un mill6n dc instrucciones por segundo. El 
resultado es un ordenador que deja muy rezagada a 
la mayor parte de la competencia. 

Aunque d Nimbus no es compatible con el IBM, 
el 80186 es un pariente cercano del 8088 y opera 
bajo el sistema operativo MS-DOS estandar. Asi- 
mismo, el teclado tambien se puede configurar al 
formato IBM, asi como el sistema mas familiar de 
Research Machines utilizado para el 380/480Z. Asi, 
el teclado esta equipado con 10 teclas dc funciun 
programablCj un teclado numerico y una letra para 
ALTernar el juego de caracteres. El tacto de las te- 
clas es excelente en comparacion con cualquier otro 
del mercado. 

La version que presentamos aqui es el Nimbus 
PC2, Equipado con unidades de disco gcmelas de 
3 Vz pulgadas formato Sony, existe tambien una 
version con unidad de disco individuah dcnomina- 
da PCI. Cad a uno de estos discos puede almacenar 
hasta 720 K de in forma cion y estan siendo adopta- 
dos por una cantidad creciente de productos de 
"tecnologia punta''. 

La decision de in corpora r estas unidades, asi 
como otras varias caracteristicas avanzadas, proba- 
blemente haya si do lo que disuadi6 a RM de produ- 
cir una maquina compatible con cl IBM, en favor 
de un ordenador mas en consonancia con la ''tccno- 
logia punta". La maquina IBM utiliza ei antiguo 
formato de 5 Va pulgadas, que es mas delicado que 
su cquivalcnte Sony y posee una me nor cap acid ad 
de almacenamiento. Hubiera parecido extrano que 
RM instalara unidades de disco que cstan quedan- 
do progresivamente anticuadas y que hubieran en- 
torpecido el rendimiento de su maquina, sobre 
to do si se tienen en cuenta sus otras caracteristicas 
avanzadas. 

Esto plantea el problema dc la compatibilidad de 
software entre los anteriores orden adores de Re- 
search Machines, que utiiizaban discos de 5 V4 pul- 
gadas, y el Nimbus. La empresa lo ha solventado 
proporcionando faci!idades para permitir la adicioii 
de otras unidades de disco, incluyendo, por supu es- 
to, una de 5 V4 pulgadas. Esto significa que el Nim-. 
bus puede leer unidades de 5 V4 pulgadas en forma- 
tos PC-DOS, MS-DOS o CP/M, caracten'stica que 
representa un s61ido argumento de venta para 
todos aquellos usuarios de orden adores de forma- 



RM Nimbus/Hardware 



tos diferentes que preferirian no renunciar a todo 
su software actual, 

Dcbajo de las unidades hay dos conectores para 
cartuchos de ROM. Estos son compatibles con la 
puerta para cartuchos instalada en el 480Z, aunqae 
aun es escaso el software disponible basado en 
ROM. A la izquierda hay un conector que permite 
la instalaci6n de un dangle. Este es un dispositivo 
para proteger el software que impide que los usua- 
rios ejecuten un programa sin unOj aim cuando po- 
sean una copia del software. 

El software que se proporciona con el Nimbus 
incluye un disco de sistema MS-DOS, el Wordplan 
y Muitlplan de Microsoft, asi como el logo y cl 
BASIC propios de RM, Cuando se carga el software, 
uno comienza a apreciar la excelente maquina que 
es ei Nimbus en realidad. En especial, son sorpren- 
dentes las facilidades para graficos proporcionadas 
desde basic. 



El BASIC RM 



El BASIC que viene con el Nimbus cs un desarrollo 
de la Version 5 de RM. Teniendo en cuenta que la 
base fundamental de RM es la del mercado educa- 
tivo, no es sorprendcntc que el lenguaje posea va- 
rias Instrucciones disenadas para fomentar la pro- 
gramacion estructurada, si bien no tantas como la 
ulterior Version 6 B.^sic. El basic RM del Nimbus 
contiene estructuras de instruccion tales como RE- 
PEAT., UNTIL PROC-^NDPROC V GLOBAL, peio care- 
ce del posteiior DO .W4iLE. 

Por ocra pane. Rcscauli Madiiiies ha aoadido 
2%iiQas instniockMKS thies disenadas pam series de 
a\"uda a los programadores de juesos. Las instmc- 
dones JOVX, JOYY y MOUSE pueden utilizar la pa- 
lanca de man do y el raton opcionales; la instruccion 
BUTTON inicia los efectos producidos por estos dis- 
positivos. 

Los graficos, el sonido y otros atributos se selec- 
cionan desde basic utilizando la inStruccidn SET se- 
guida de los parametros que se requieran, Median- 
le el uso dc est a instrucci6n se pucdcn sclcccionar 
colores de primer piano y fondo (definidos por las 
instrucciones PAPER, BRUSH y PEN), dibujar lineas 
y cfrculos y seleccionar fuentes, direcciones y tama- 
no de los caracteres. Tarn bien es posible elegir lo 
que el manual describe como ''estilos" y *'patrones 
vacilantes", produciendo el efecto de un color que 
es una combinacion de los puntos comprendidos en 
el area. 

Aparte de la amplia gama de efectos que se pue- 
den producir en el Nimbus, es notable la velocidad 
a la cual se dibujan los graficos en la pantalla desde 
basic, comparable a muchos ordenadores de 16 bits 
programados en codigo maquina. 

Los discos se organizan en directorios y subdirec- 
torios. Esto significa, por ejemplo, que para poder 
entrar basic, usted debe entrar al directorio de 
BASIC desde el directorio principal. Esto se realiza 
desde MS-DOS y el propio basic mediante la ins- 
truccion CHange D I Rectory (cambiar directorio) , 
CO. para mas brevedad. Siguiendo est a instruccion, 
el usuario debe especificar los nombres de "sende- 
res** que se requieren con el fin de obtener el direc- 
iorio en cue st ion. Esto puede sonar un poco com- 
pfcado. pero permite (y tambien estimula a ello) 
oranizar los directorios de una forma sistematica. 
Desde el sistema operativo es posible la creacion de 





Ampliacion 
potencial 

BRM Nimbus ema bien 
provjsto de interfaces. El 
ordenador posee dos 
conectores para paritalla, una 
puerta para raton/palanca de 
mando, y una interface 
Pico net, puerta para 
impresora y no menos que 
ires iineas de potencia 
auxiiiares- Las importantes 
pyertas de E/S Pi con el y para 
impresora utilizan ei eatandar 
de enciiufe BT introducido 
recierrtemente, que muciios 
usyarios con equipos mas 
antrguos no podr^n co nectar 
de forma directa, Ei enchyfe 
de cafriildn BT {que vemoa a 
la fzquierda) es una interlace 
en serie capaz de maniputar 
senaies tanto de entrada como 
de saiida. Hay seis Itneas 
disponitiles, que se pueden 
disponer en numerosas 
configuraciones para 
transmision, interconexion 
y otras apficaciones 



nuevos senderos y directorios. adcmas del estable- 
cimiento de nuevos senderos entre directorios exis- 
tentes. 

Siendo fiel a su filosofia de diseno para el Nim- 
bus, Research Machines ha optado por ia tccnolo- 
gia del ''estado del arte" en vez de las puertas para 
perifericos est an dares. El Nimbus posee tres lineas 
de salida de potencia se par ad as desde la unidad 
principal del ordenador. En la esquina superior iz- 
quierda de la maquina se halla una salida dc 2A 
desde cl transformador principal de potencia, y a lo 
largo del panel posterior hay dos salidas mas pe- 
querias, de 12 V y 5 V, 

Entre las otras interfaces que se proporcionan 
hay una puerta Piconet, que se rnstala como un en- 
chufe telefonico BT estandar. El Piconet permite 




MacNimEtus 

Entre los programas de demostracion Que se proporcionan con el 
Nimbus hay un paquete de g rati cos activado por ratdn. Al igual 
que mtichos programas dedibujopor raJon, la pantalla guarda m 
notable parecido con la deJ Apple Macmtosh. Sin embargo, a 
diferencfa de este. en la pantafJa se pyeden visualizar basta 16 
coJores distintos at mfsmo tiempo 




La gestlon de entfada^safida 
se controla desde este 
proce^ador 




gobemar desde una unica puerta hast a 30 periferi- 
cos se parados, cad a uno de elfos conectado a traves 
de un modulo extemo. La conexion en interface se 
realiza en serie y esta construida de aeuerdo al es- 
tandar RS422. Es esta nueva conexion de alta velo- 
cidad la que perraite al Nimbus controlar los 30 dis- 
pos^itivos. 

Lamentablemente, en muclios casos el RS422 no 
es directamente compatible con el antcnor cstan- 
dar RS232, de mode que si usted desea utilizar 
estos dispositi^ os habra de obtener interfaces ade- 
cuadas. 

Tambien se proporciona una facilidad de red que 
permite conectar el Nimbus a una red compuesta 
por otros ordenadores de Research Machines a tra- 
ves del conector coaxiaL 

Interface para impresora 

La interface para impresora es una inclusion curio- 
sa. Se ha instalado como un enchufe telefonico BT 
identico a la puerta Piconet. y no responde exacta- 
mente al estandar. Ademas, la puerta unicamente 
es en serie y esta disenada de aeuerdo al estandar 
■RS422. 

El resto de las interfaces que se proporcionan ya 
son mas familiares. Hay un conector D de nueve 
patillas que facilita la conexion al ordenador de una 
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PJaca de RAM 

Esta version particular del 
ordenador posee RAM esrtra 
proporclonada por esta placa 
accesoria 



Ciiips de RAM 

En su version estandar, el 
Nimbus viene equipado con 
128 Kde RAM 



ChipZSQA 

Al objeto d& poder leer y 
procesar discos RM 
formateados para usar con 
ordenadores 380Z/480Z, RM 
ha incluido como 
segyndo procesador el 
familiar Z80A 



Interface Soft Key 

Conocida corrientemente 
como puerta "dongle'V esta 
interface asegura que^ cuando 
no esta instalado un dongle, 
sea imposiblecoptar 
pro gram as sin autorizacidn 




Control de disco flexible 

Esta placa, que esta instalada 
en una de las ranuras de 
ampliacion, control a las 
unidades de disco 



Unidades de disco 

El Nimbus PC2 viene equipado 
con un par de unidades de 
disco formato Sony 





Conectores pera pantalla 

El Nimbustienedos 
conectores para pantalla: uno 
para video compuesto, el otro 
un conector para color RGB 



Puerta para rat6n 

En este conector D de nueve 
patillas se enctiufa un 
controtadoropcionalderaton 
ode palanca de mando 

RAMde video 

El WimbtiStiene64KdeRAM 
ExdtiSTTOs para la memona de 



ROM cfe grsficos 

Las excepcionaies faciiidades 
para graficos del Nimbus son 
producldas poreste chip 



en tres 



CPU 

CorazOn del Nimbus, el 
procesador Intel 801 86 es uno 
de los chips m^s avanzados 
de fos que se ytilizan en la 
actual id ad 




Puerta s para carttchos 

Hay instaladas dos puertas 
para cartuchos, para software 
basado en ROM 



Fuente de allmentacldn 
et^ctrica 

proporcionaimente.el 
Nimbus posee una fuente de 
allmentad6n mas grande que 
la mayon'a de los otros 
ordenadores, debido a la 
cantidad de saJIdas auxiiiares 
de potencia que posee 



palanca de mando o, mas probablemente, un 
raton, al objeto de ejecutar aplicaciones tipo Ma- 
cintosh (los programas de demostracion conticnen 
un programa de dibujo que, aparte de los graficos 
en color, guarda un notable parecido con la panta- 
lla Macintosh, si bicn carece de muchas de las facili- 
dades de MacPaint). 

Se proporcionan dos conectores para pantalla. 
uno de los cuales, para monitores RGB, ejecuta la 
pantalla cn color Cub que RM ha disenado espe- 
cialmente. El otro es un conector de video com- 
puesto destinado a pantallas nionocromaticas. For 
ultimo, hay un enchufe DIN para el tcclado. 

En el extremo izquierdo (mirando hacia la parte 
posterior de la maquina) hay cuatro puertas de am- 
pliacion en las que el usuario puede agregar placas 
extras. Estas incluirian bancos adicionales de 
RAM, interfaces digital/analogico, etc. A diferen- 
cia de otros muehos fabricantes que insisten en que 
esta clase de trabajo solo lo ban de realizar los rc- 
prescntantes autorizados, en su guia para el usuario 
Research Machines ha ofrecldo instrucciones com- 
pletas para que ustcd instale sus propias placas. 

Documentacidn completa 

El manual que se entrega con el Nimbus responde 
muy bien al elevado estandar que la gente ha Ikga- 
do a esperar de RM. La infonnadon que con tie ne 
incluye una guia para piiudpiantes sobre el MS- 
DOS y los dm?05, jimto cofi un estudio detaHado de 
las puems. 

Lo unico que se ©dm eo felta es im analisis del 
chip procesador 80816 que. aunque pnobablemente 
no fuera de gran udlidad para la inmensa mayon'a 
de usuarios, si servina a los programadores que 
pretendieran desarroilar su propio software en la 
maquina- 

Aun es demasiado pronto para decir a quicnes 
les resultara mas atrayente el Nimbus. Decidida- 
mente, es una maquina de una gran calidad que, de 
entrada, vale casi la mitad que su unico rival serio, 
el IBM PC/AT. No cabe duda de que el ordcnador 
tendra una buena acogida, pero el volumcn dc ven- 
tas dependera de la estrategia de comercializacion 
deRM. 

Las universidades y otros grandes establecimien- 
tos educativos que ya tienen establecidas buenas re- 
laciones con RM son potenciales adquirentcs de la 
maquina, y no se preocuparan demasiado por el 
apoyo de software: con toda probabilidad, desea- 
ran escribir el suyo propio y podran transferir el 
software RM que ya pose an. Las velocidades y las 
facilidades para una prog ram aci6n scncilla repre- 
sentaran, obviamente, convincentcs argumentos de 
vent a, asi como la cantidad de perif<^ricos que se 
puede n instalar. 

Sin embargo, para que el Nimbus satlsfaga su po- 
tencial en el mercado de gesti6n (potencial que, 
evidentemente, esta a I alcance del ordenador). Re- 
search Machines ha bra de con veneer a los usuarios 
de gestion de que pondra a su disposicion el softwa- 
re adecuado. RM habra, asimismo, de adaptar las 
interfaces al estandar Centronics y RS232 que se 
utiliza en la mayoria de las oficinas. Si Research 
Machines consigue introducirse en ei sector dc ges- 
tion, el Nimbus podna convertirse en un iniportan- 
te desafio para los actuales hderes del mercado, 
ACT/Apricot e IBM, 



RM NIMBUS 



400 x350x110 mm 



Jntel 80186 operando a 8 MHz 

Maximo de 80x25 caracteres de 
texto, 640x250prxelsen 
modalidad a cuatro colores, 
320x125 en mod alidad a ocho 
colores 



Enchufe para red, puerta 
Piconet, puerta para impresora, 
salidas de potencia de 12 V, 5 V 
y 2A, conectores para monitor 
compuesto y RGB 



BASIC RM, LOGORMyPASCAL RM 

83teclas rncJuyendo teclado 
numerico y 10 tecJas de funcion 
programable 

Losm5'_3 e = - osy 

informs ! :_f : .rir ^rirs 

sef menos densos y mis ladtes 
de leef que m de la 
documentacidn anterior 

I 1 

El r^imbus tiene muy pocos 
competicfores asu mfsmo 
precio. La tecnologiaavanzada, 
junto con su sencillezde uso, 
excelentes graficos y buenos 
manuales, haran que la maquina 
SB convierta en un produoto de 
exito 



A! menos a corto plazo, quiza la 
tecnologia sea demasiado 
avanzada; el resto de la industria 
no esta aun a la alturadel 
Nimbus y, portanto, tal vez 
hay a escasez de ciertas 
interfaces 



mi 
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Muy corriente 



Veamos aKora como f luyen los 
datos a traves de los canales 
hasta la impresora o la pantalla 
en un Spectrum 



Deciamos que siempre que se enciende o restaura 
el Spectrum, unas determinadas corrientes se aso- 
cian con determinados canales en el proccso de ini- 
cializacion. Est as asociaciones son las que resumi- 
mos en el siguiente cuadro: 



Canal 




Descripcifin del eacial 


K 


0 


Teclado y parte inferior 


K 


1 


d& la pantalla 


S 


2 


Parte principal de la pantalla 


P 


3 


Impresora ZX 



Sin embargo existen otras corrientes a nuestra dis- 
posicioo no cmpleadas por el Spectrum normal. Se 
observara que la siguiente descripcion corresponde 
a un Spectrum sin Interface 1 ; todo se altera si cm- 
pleamos redes de area local, microdrive o interface 
serial. 



STRMS 4> 





Empleado por 
el OS del 

Spectrym para 
5U5 propias 
corrientes 












LO 


datos corriente 0 


HI 


LO 


datos corriente 1 


HI 






LO 


datos corriente 15 | 


Hi 






^^^^^^^^ 





Estos dispositivos seran analizados mas adelante. 
Las otras corrientes est^n numeradas del 4 al 15, y 
pueden tambien asociarse con cualquier canal de 
E/S que se necesite intercomunicar. 

El OS del Spectrum registra cu^l de las corrien- 
tes se asocia a cada canal en uso. Esta inforraa- 
ci6n se guarda en una tabla de 38 bytes Uamadas 
STRMS (de streams: corrientes), que puede encon- 
trarse en el area reservada para las variables de sis- 
tema con direccion 23568. Hay seis bytes al comien- 
zo de la tabla cmpleados por el OS del Spectrum 
para sus propios fines. Segtin estos, cada una de las 
16 corrientes esta representada por una entrada de 
dos bytes. La disposici6n de la tabla es la que mues- 
tra el dfbujo. 

El siguiente fragmento en basic imprimir^ el 
contenido de esfe area de la memoria para que 
usted pueda conocerlo: 

10 FOR 1=23568 TO 23604 STEP 2 
20 PRINT PEEKI+256*PEEK(I+1) 
30 NEXT ! 

Nos dara todas las entradas de dos bytes. Las tres 
primeras son los detalles de las corrientes intemas 
del Spectrum, siguiendo despues con las entradas 
dc las corrientes de la 0 a la 15. Los valores en esta 
ultima parte dc la tabla actoan como punteros de 
otras entradas en una tabla distinta, situada en 
cualquier parte de la memoria y a la cual apunta 
una variable de sistema llamada CHANS. Esta varia- 
ble sc encuentra en la direccion 23631 , y la direc- 
ci6n de la tabla de CHANS puede hallarse asi: 

PRINT PEEK 23631 + 256^PEEK 23632 

Esta variable de sistema nunca sera tratada con 
POKE. La expresion que acabamos de darle propor- 
ciona el inicio de la tabla de registro de canales ^ que 
contiene varios detalles informativos sobre cada 
canaL 

El valor leido de la tabla STRMS sirve de mdice 
de esta tabla de registro de canales. Una entrada de 
la tabla STRMS da el (despiazamtento H- 1) desde el 
comieozo de la tabla de registro de canales de la 
informacion sobre el canal que se esta usando con 
una determinada corriente. Asi la entrada de 1 
tabla STRMS para corriente 3 (a la impresora) es 16. 
Si se resta uno de <^stc obtenemos un desplazam len- 
to de 15. Por lo tan to los datos correspondientes al 
canal P se encontraran en la direccidn: 

(PEEK 23631 +256'PEEK 23632)+15 

(siempre suponiendo que se acaba de encender el 
ordenador y no se han alter ado las asociaciones 
corrientes-canales despues de la inicializacion). 

Si los datos que estan en una entrada de la tabla 
STRMS son cero, esto indica que la corriente toda- 
via no ha sido asociada con ningun canal. Este es el 
caso, en un Spectrum no ampliado, de las corrien- 
tes que van de la 4 a la 15 despues de la inicializa- 
cion. 

Cada entrada en la CRT es de la forma: 
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byte fo 


Direcci6n de la rutin a 
de salida para e! canal 


byte hi 


byte fo 


DirecGi6n de la rotma 
de entrada para el canal 


byte hi 


n 


Byte unico que representa la letra 
cddigo del canal en ASCII {asi, K, 
SyP) 



Una entrada de la tabia STRMS apunta al segundo 
byte de cada entrada de la tabla de registro de cana- 
les (CRT), por eso hay que restar uno antes de su 
empleo. Esta tabla esta en el coraz6n mismo del 
sistema de E/S del Spectrum. Si un canal no puede 
lievar a cabo una operacion de E/S, la entrada de la 
direccion adecuada en la tabla CRT apuntara a una 
rutina en la ROM que generara eJ mensaje de error 
lm3\\6 I/O Device (dispositivo de E/S ilegal). Asi, 
para un canal de s61o salida (como es el canal S) la 
direccion de la rutina de entrada apuntara a esta 
rutina de error. En caso cootrario, la rulina adecua- 
da de la ROM para salidas o entradas sedan las 
apuntadas por las entrada5^ de ia tabia. 

Examinemos la entrada del canal P en la tabla, 
Recuerdese que en circunstancias normales es un 
canal de solo salidas, que envia datos a la impresora 
ZX. Los datos para este canal en la enirada de la 
CRT son: 




La entrada para el canal S se halla en (CHAI\IS)+5, y 
los datos del canal K estan en (CHANS) +0. (CHANS) 
es la direccion retenida en la variable de sistema 
CHANS. 

Con las instrucciones OPEN# y CLOSE# podemos 
asociar corrientes no empleadas a uno de los cana- 
les que hasta ahora hemos examinado. Pero estas 
dos instrucciones realmente se ulilizan para asociar 
las corrientes a otros canales en el sistema amplia- 
dOj tales como los que ofrece la Interface L Incluso 
de esta manera examinaremos brevementc el em- 
pleo de estas instrucciones sin Interface L Per 
ejemplOj 

OPEN #4/'S" 

asociara la corriente cuatro al canal S, Si se realiza 
esta instrucci6n y despues se examina la tabla 



Apunta a la rutfna 
GP Print Out en la 
direccian 09 F4 en 
la ROM 



Apunta a la rutina 
generadora de error 
en la ROM, 
direccion 15C4 

Cddigo ASCII 
de "P" 



STRMS, se vera que se ha hecho una entrada en la 
posidon correspondiente a la corriente 4. En la 
sentencia podemos hacer uso de variables, 

10 LFTnM 
20 LETcS-'-S'^ 
30 OPEN #n.cS 

hara exactamente lo mismo que la sentencia ante- 
rior, Cuando se abre un canal de esta forma, las 
instrucciones PRINT# y LIST# le permitiran enviar 
datos al canal a traves de la nueva corriente, As^i 
podemos anadir: 

40 PRINT #4; ^'Hota' 

que se imprimir^ en la pantalla, L!ST#4 dara un 
listado del programa que esta en pantalla seguji sa- 
bemos. Si una corriente se ha asociado con un canal 
tanto de entrada como de salida, se puede usar 
tambien la instruccion INPUT#. Estas sentencias 
PRINT e INPUT ampliadas soio tienen utilidad cuan- 
do se puede disponer de los canales que proporcio- 
na ia Interface 1, como veremos. 

Cuando se finaliza con una detemninada combi- 
nacion de corriente y canal, y se desea disolver el 
emparejamiento, usaremos CLOSE#. Asi, en nues- 
tro ejemplo, CL0SE#4 independizara la corriente 4 
del canal S, Llegados aqui, todo intento de enviar 
datos a esta corriente "cerrada"' generarA un men- 
saje de error. 

Las instrucciones PRINT#,LIST#,INPUT# e 
INKEY# pueden usarse tambien con las corrientes 
de la 0 a ia 3. 

Estas corrientes estan siempre abiertas, como 
puede comprobar ejecutando lo siguiente: 

10 CL0SE#2: REM deberia cerrar el canal S 
20 PRINT#2; "Hola" 

No aparccera mensaje alguno de error (ei OS se 
encarga de abrir el canal de nocvo antes de pasar- 
le informacion). Consideremos ahora la instruc- 
cion LIST#. 

LIST#3 

equivale, en circunstancias normales, a LLIST: ei 
programa se list a en la corriente 3, la cual, como 
acabamos de ver, se asocia con el canal P. Las 
instrucciones LIST#0 y PRIIMT#0 son bastante inte- 
resantes ya que estas llegan a imprimir en la parte 
inferior de la pantalla (que normalmente cae 
fuera del dominio de las sentencias PRINT). Llega- 
dos a este punto, adviertase que cualquier texto 
que se halle impreso en esta parte de la pantalla 
sera sobreescrito por medio de una indicacion o 
mensaje de error del sistema operativo. En cirom^ 
tancias normales la instruccion PRINT#3 equivale a 
LPRINT. 

Por ultimo, se puede modificar el conqKHtg- 
miento de un canal en el Spectrum para que i^ali- 
ce algo diferente dc aquello para lo cual fbelKis- 
lizado. For ejemplo, el canal P es moififieadi^ a 
menudo para permitir que una impre 
nics sea controlada por cl Spectrum y i 
ce apropiada. Si aZteramos la entrada&la] 
de salida en la entrada adecuada de fa CKF. tis 
instrucctones LPRINT y LLIST eEvimaa^iQftm^^ 
rutina que maneja la impresora CeaBmiciw Kmb- 
ralmente, no resulta preciso qae §e HA Ha 
impresora; puede ser una puens^^fi^ocBil- 
quier dispositivo de salida. 
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Programa "Imprimir en alt-res" 



Este programa intercepta Jos 
datos que se envian por eJ canal 
P y Jos desvra a una rutina que 
permile a I usuario la facNidad de 
Imprimir en alta resolucion. El 
listado puedeserentrado 
media nte un ensamblador 
corrlenfe [el CHAM^P, DevPac o 
Picturesque, p. ej,),Siusted 
carece de un ensamblador 
tendra que entrarlo en 
codificacibn hexadecimal, 
empleando un monitor o bien 
mediante el Cargador en Hexa 
que aqui ofrecemos. Una vez 
digitadoeste cargador y 
ejecutado, se le pedira que digite 
la direccidn de inicio (que es 



6506S). Se esperaahora que 
drgite el c6digo hexa, que puede 
ser entrado s6lo mediante dos 
di'grtos a la vez. Porejempio, la 
linea del c6digo: 

2130FE 
habr^ de ser digitada de esta 
man era: 

21 (ENTER) 

30 (ENTER) 

FE (ENTER) 
Entrado el cbdiga, falta tan s5lo 
pulsar S para dar por finalizado 
el programa, Es el momento de 
la suma de control (que es 
29155), que le indrcara Si 
cometid algun error. La nueva 



instruccidn que proporciona el 
programa tiene este formato: 

LPRINTATX.Y;'^MENSAJE" 

donde X debe valer entre 0 y 
168,eYentre0y243. Envezde 
''IVfENSAJE" puede estar una 
variable en serie o un numero. 
Cuando la serie que se imprime 
con la nueva instruccion 
sobrepasa un borde de fa 
pantalla, vuetve a empezar por el 
comienzo de la misma linea, 
pero no pasa a una Imea mas 
abajo. Las coordenadas X e Y 
funcionan de id§ntico modo que 
con la instruccion PLOT del 
Spectrum 



Cargador hexa 

10 CLEAR 63999 
15 POKE 23658,8 
17 DEFFNH(HS}-t6^(C0DE 

(H$)-4S-7'(HS(1]>"9''))+(CODE 

(HSE2})-^8-7'[H£(2)>'^9"J) 
2D INPUT "DfFecc;idninicio'';a 
25 LETZ=A 
30 INPUT [aj, LINE a$ 
35 IFAS= "STHEWGOT090 
40 PRINT3,a$: POKE 23692,255 
50 F0RZ=lTOLENAS/2 
60 POKEa.FN H{aS[((r2)--l) TO}): LETa=a+1 
70 ^IXTi 
80 GO TO 30 

90 INPUT "CKECKSUM:";D 
1 00 LET C=0: FOR B=Z TO A-1 : LET C=C+PEEK B: 
NEXT0 

110 IF C=D THEM PRINT " CtuJilicaddn perfecia ' 
120 PRINT "Vaya. lacodilicadiin no hasido oorretta" 



Listado assembly 







ORG 






PIXAD 


ECU 


22AAH 




UDQ 


EQU 


23&75 




CHARS 


EQO 


23M6 




EMAei 




"Hace qu6 Ids {jatos en CHAN apyntsn a nuestra rirtlna" 


2A4F5C 


LD 


HL,(23&311 


010F00 




LD 


BC,i5 


03 




ADD 


HL.BC 


013AFE 




LO 


BC,00-IT 


7\ 




LD 




£3 




INC 




70 




LD 


(HL),B 


C3 




RET 


"Guarda ne^s. y ilaina a fiuevi rulina impnesoia' 


bo-iT 




ES 


PUSH 


HL 


C5 




PUSH 


8C 


U5 




PUSH 


DE 


FS 




PUSH 


AF 


CD46FE 




CALL 


D0IT1 


Fl 




POP 


Af 


01 




POP 


DE 


CI 




POP 


BC 


El 




POP 


HL 


eg 




RET 


"Cdinpriiebasl scontitneel cQti. de contraNS AT" 






FS 


boiTi 


PUSH 


AF 


3A10FF 




LD 


A.(ATFLG) 


FE»D 




CP 


0 


2m 




JR 


NZ,GETXP 


fl 




POP 


AF 




ATCHO 


CP 


22 


201 D 




JFl 


NZ.CRCHO 


alFF 




LO 


A.255 


321 OFF 




LD 


(ATFLG),A 


C9. 




RET 




FEFE 


GETXP 


CP 


25^; 


2m 




JR 


Z.GEIYP 


F1 




POP 


AF 


321 6FF 




LD 


(XPOSI).A 


211 OFF 




LD 


HL.ATFLG 


35 




DEC 


m 


C9 




RET 


Fl 


GETYP 


POP 


AF 


3217FF 




LD 


(VPOSO.A 


mo 




LD 


A,0 


321 OFF 




LD 


tATFLG).A 


C9 




RET 


"Compru^ba el dato de fin de impreskifi Z(qui aqui es el 13)" 


F£OD 


CRCHQ CP 


13 






JR 


NZ.VCHRO 


C9 


SKI PC 


RET 


"St el cddigo en a esl^ entre 32 y 126 o si" 














"es un <^d- UOG entonces hella su dalo en la mem.' 


FE20 


VCHRC 


CP 


32 


3600 




JR 


CPRNT? 



FE80 




OP 


128 


3&1C 




JR 


C.FOHR 


FE9C 


UDGCQ CP 


144 


3804 




JR 




FEA5 




CP 


165 


3604 




JR 




3E3F 


PRNT? 




' Para t<odcf s ios demas cfidiioos iinpriitiii^ uri ?" 


LD 


A, 63 


ISlO 




JR 


FGHR 




j=UDGC SOB 


"H^lla ti dato de UDG o de car. en la mem." 


069D 


144 


91 nfinn 
■Cl uuuu 




LO 


HL,0 


Or 




LD 


L.A 


29 




ADD 


HL.HL 


29 




ADO 


HL.HL 


29 




aDO 


KL.HL 


EB 






DE.HL 






LD 


U 1 ^1 rrvp'^ 

nL,(U-DG) 


19 




ADD 


HL.DE 


130C 




JR 


PR NIT 


210000 


FCHR 


LD 


HL 0 


6F 




LO 


L.A 


29 




ADD 


HL,HL 


29 




ADD 


HLHL 


29 
EB 




ADD 
EX 


hlIhl 

DE,HL 


2A365C 
19 




LD 
ADD 


hl'^chars) 


010700 


PRMIT 


LO 


BC'7 


09 




ADD 


hl!bc 


2218FF 




LD 


(CHRAD), HL 








"Comprueba &i lai posieiones X e Y son cornBctas'" 




LD 




rtrtf 




CP 


249 


D231FF 




JP 




3A1 7Ff 




LD 


169 


FEA9 




CP 


3078 




JR 




ED4B16FF 




LD 


BC.(XPOSI) 






CALL 


PIXAD 


321 AFP 




LD 


"Tpm^ et prirne^roonpuma de pixels o car. Impress" 
B.a 


221 8FF 

060S 




LD 
LD 


C5 


PRNLP 


PUSH 


BO 


2AtBFF 




LD 


r1L,(LnnAUJ 


7E 




LD 


A,(HL) 


2B 




DEC 


HL 


221 BFF 




LD 


^r-LrnjhriY ui 
(IrPlnflUjHML 


6F 




LD 


L,A 

"Si fl CP^j. dc piwls pjimerm no ha de movtr^e" 
~denlrc> dsl byts ds visual., esle saLti adel^ntd' 


3A1AFF 




LO 




PEOD 




CP 


0 


CAE6FE 


; 


JP 


ZkPUTIT 

"Mueve el conj. de pixels en los byt&s de visual," 
"h^cis Is posici6n correct'^i del pixel" 


47 




LD 


B,A 


2S0O 




LD 


H,0 


CG3D 


ROTLP 


SRL 


L 


CB1C 




RR 


H 


A7 




AND 


A 


10F9 




DJNZ 


ROTLP 




PUTIT 




"Lo pone en la posiclAr) derecha de la pants lla' 


hU&Hl Srr 


LO 


DE,{DrADDj 


1A 




LD 


A,(DE) 


AO 




XOR 


L 


12 




LO 


(DE),A 


3A1AFF 




LD 


A.^riXrU; 


FEOO 




CP 


0 


■CAFAFE 




JP 


Z.PST 


13 




INC 


DE 


1A 




LD 


A.(OE) 


AC 




XOR 


12 
18 




LD 
DEC 


(DEJ.A 


2A16FF 


PST 


LD 


HL,(OrADD) 


CD1EFF 




CALL 


ULfNE 


2213FF 




LD 


jUp-AUU|,PlL 






POP 


BC 


lUCfl 




DJNZ 


PRNLP 

"Anade 3 a 13 poslc. X para que el siguiente cer,~ 
"se irrprirna en espacio borrado" 


3A1oFF 




LO 


A^JtrUbl) 


0606 




ADD 


8 








"Si se lleaa a1 fin de lines vuelve el" 
"inicio PERO NO bafa urta linea" 








FEF9 




CP 


249 


DA12FF 




JP 


CSTAFT 


3E00 




LD 


A.O 


321 6FF 


STAIT 


LD 


(XPOblli.A 


09 




RET 




00 


XPOSI 


DEFB 


0 


00 


ypOSi 


DEFB 


0 


0D€0 


DFADD 


DEFW 


0 


00 


PIXPO 


DEFB 


0 


0000 


CHRAD DEFW 


0 


00 


ATFLG 


DEFB 


0 

"Mueve la direc. eri HL un pixel grriha de la pant." 


rp 


IILINE 


PUSH 


AF 


70 




LD 


A,H 


25 




DEC 


H 


E907 




AND 


7 


20DA 




JR 


NZ , END 


7D 




LD 


A.L 


0620 




SU8 


32 


OF 




LO 


L,A 


3304 




JR 


C.END 


7C 




LD 


AH 


ceoa 




ADD 




67 




LD 


H,A 


Fl 


END 


POP 


Af 


C9 




RET 


"Creavaiios errores" 


Cf 


ERRB 


RST 


& 


OA 




DEFB 


10 


CF 


ERR& 


RST 


8 


04 


FINIS 


DEFB 
END 


4 
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Sistema so noro 

Iniciamos un nuevo proyecto: el diseno y la construccion de una 
Interface MIDI para el BBC Micro y el Commodore 64 



Las especificaciones de la MIDI {Musical Instru- 
ment Digital Interface: interface digital para instm- 
mentos musicales) esbozan ei hardware y el softwa- 
re necesarios para un sistema que permita que los 
instrumentos equipados con la interface se comuni- 
quen entre sf. Fuesto que la comunicacion es de 
una naturalcza digital, cn d sistema MIDI pode- 
mos tambien introducir un micro personal para 
controlar otros instrumentos o almacenar datos en 
su memoria, ya sea en cinta o en disco. Las especifi- 
caciones de hardware de la interface nos permiJen 
construir una placa de circuitos conectable, facil de 
const ruir y cconomica. 

Una vez construida la interface, se puede progra- 
mar al ordenador para que interactue con otros dis- 
positivos del sistema MIDI, escribiendo cl software 
adecuado. Mas adclantc incluircmos cstos listados. 

Desde la introduccion dc las primcras espccifica- 
ciones MIDL en agosto de 1983, el mundo de la 
musica electronica se ha visto inmerso en un am- 
bient e de confusion y malentendidos sobre lo que la 



interface puede y no puede hacer. Esto se debe a 
que a ios miisicos no les preocupa la naturaleza de 
la comunicacion entre los elementos electronicos, 
sino que la mayoria de ellos solo se interesan (y con 
razon) en lo que un sistema determinado les puede 
ofrecer en terminos de actuacion musical, 

A lo largo del curso explicaremos las cspecifica- 
cioncs MIDI con una terminologia que les resultara 
mas familiar a los programadores que a los musi- 
cos, y les proporcionaremos a us ted, de este modo, 
la niisma informacion basica que utilizan los disena- 
dores de equipos que prctcudcn que sus productos 
sean compatibles con el estandar. 

En primer lugar hemos de hacernos alguna idea 
sobre la naturalcza de los dates comunicados por la 
MIDI. La mejor mancra de entenderlo es conside- 
rando las diversas partes de un sistema de musica 
electronica como los perifcricos de un ordenador. 
Puede ser que la distincidn entre esios componen- 
tes no se haga evidenie de inmediato: por ejemplo. 
un ttpico sintetizador ix>lif6mco mcMiemo en reali- 



Hardware MIDI estandar 

Por lo general la jnieriace consia ae aos secciones: 
yna para recibir datos y otra para transmitirlos. 
Cada una posee sus propios conectores, 
etiquetados MIDI IN y MID] OUT, respectivamente. 



Puede haber on tercer conedor, MIDI WW, que 
eiivia una copta de los da^ en MIDI IN Esto es 
pam tadMBT la conexfon de rec8ptores multiples en 
cadena sm la necesidad de multipFes MIDI OUT en 
el transmisor. Abajo vemos el diagrama de 
circuitos del hardware de la interface 



OPTOAISLANTE 

PC-900 



OsS V 



270 ohmios (para PC-900) 




DESOE UART 



> — P>0 'A>0 V>/ 

220 ohmios T 



Hot THRU 

Reproducido por cortesia del 
International M!OI Users Group 
(gmpo internactonal de usuarios 
deMIDI) 

Kotas: 



MIDI OUT 



1. 



El optoaislante que se indica 
es un Sharp PC-900 
(puede utiltzarse un HP 
6N1 38 u otro optoaislante 
modificado) 

Puertas "A": IC o transistor 
Las reslstencias son 5 % 
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dad esta constituido por dos componentes separa- 
dos, si bien por lo general se hall an contenidos en la 
misma caja, Los dos componentes son el teclado (d 
dispositivo de entrada) y el sistema de ciicuitos 
para la generacion de sonido {el dispositivo de sali- 
da). En la modalidad de operacion normal, el dis- 
positivo de entrada esta conectado directamente 
con el dispositivo de salida; la pulsacion de una 
tecla produce de inmediato una salida de sonido. 

Esta situacion es similar a la de una sofisticada 
maqnina de escribir eleclronica, en la cual los dos 
componentes (el teclado y el mecanismo de impre- 
sion) se pucden conectar entre si de modo que los 
datos de entrada sc reproduzcan de forma inmedia- 
ta. Sin embargo, es may facil reconocer el teclado y 
la impresora como los perifericos potenciales de un 
ordenador central, que leera los datos de entrada y 
los procesard antes de enviarlos al dispositivo de 
salida. Esto, por supuesto, ya nos resulta familiar: 
se trata de un procesador de textos. 

En cl caso del sintetizador es importanle destacar 
que la interface (interna) entre el teclado y los ge- 
neradores de sonido es puramente digital. El tecla- 
do acta a simplemente como un controlador del sin- 
tetizador, de la misma forma en que el teclado de ia 
m^quina dc escribir actua como un controlador 
para el mecanismo de impresion. Del mismo modo, 
el enlace se puede romper insertando un ordenador 



entre los dos dispositivos, formando un sistema 
procesador de musica. En este caso la musica no se 
representa como un patron de variaciones de pre- 
sion de aire (como cl producido por un disco fono- 
grafico o un disco compactOj en el que la musica se 
codifica digitalmente), sino como una secuencia de 
eventos entrados en el teclado musical y transmiti- 
dos subsiguientemente al dispositivo de salida. La 
funcidn de los circuitos para generacidn de sonido 
es la de convertir estos eventos en senates electrdni- 
cas que se reproduciran como sonido mediante un 
sistema de aitavoz/amplificador. En consecuenciaj 
la MIDI introduce por primera vez la seria perspec- 
tiva de controladores que no sean teclados, tales 
como instrumentos de cuerda o vienlo, siempre 
que sus respectivas salidas respondan a las especifi- 
caciones MIDL 

Hay uo bueo ejemplo de sistema para procesa- 
miento de mi^sica que, aunque primario, es muy 
conocido, y se remonta a mucho antes de la edad 
del ordenador moderno. La pianola era un tipo es- 
pecial de piano que podia tocar una miisica grabada 
en forma de patron de agujeros en uo rollo de 
papeL Mientras el papel rodaba a traves del piano a 
una velocidad constante, un mecanismo detector 
captaba la secuencia y combinaciones de agujeros, 
cada uno de los cuales representaba una nota dada. 
Los martillos del piano golpeaban entonces las 



Circuito del optoaislante 




ENTRADA 



SALIDA 



DIODOEMISQROELUZ 



FOTOTRA^ESISTOR 
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Byte de datos en serie MIDI 



E! segundo requisito del hardware MIDI especilica 
que ta Imea de entrada debe estar aisfada del 
equipo recC'Ptor para evitar bucles a tierra en el 
sistema. Estos se deben evitar porque tienden a 
manifestarse en forma de un zumbido muy audible 
a lafrecuencia de la red electrica (50 Hz). Este 
problema se puede superar mediante un dispositivo 
denominado optoacopiador u optoaislante. Se trata 
de un circuito integrado con una conexion optica (y 
no eiectrica) entre su entrada y su salida (ver 
diagrama). Las dos patiltas de entrada del chip 
optoaislante estan conectadas a un LED interno, 
similar a las iuces Indicadoras rojas de la parte 
frontal de las unidades de disco. Un LED emite luz 
cuando se aplica un voltaje en la direccidn positiva- 
En ef optoacopiador el LED no esta visible 
externamente, pero, en cambio, flumina un 
fototransistor que permlte que [a corrlente pase a 
traves suyo cuando cae luz sobre ^1. La senal log tea 
(fow o high) de la entrada se transfiere entonces a 
la salida sin ninguna conexion eiectrica. La MIDI 
especitica que ei optoacopiador ha de necesitar una 
corriente de menos de 5 mA para encender el LED, 
y que los tiempos de ascenso y cafda en la salida 
deben ser inleriores a dos microsegundos 
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coerdas apropiadas. Asi, la musica se codificaba en 
el papel como una secuencia de eventcxs tie pulsa- 
ciones de teclas. 

La distancia de un agujero a travis del papel re- 
presentaba la altura de la nota, y la distancia a lo 
largo del papel representaba el momento en el cual 
habia de tocarse la nota. jEra concebible, entonces, 
editar la mtisica! Por ejempio, si se perforaba una 
nota equivocada, se la podia localizar y tapar, 
mientras se perforaba en el roilo la nota correcta. 
La codificaci6n de los datos de este modo tiene mu- 
chas analogias directas con los primeros sisteinas de 
almacenamiento de datos en ordenador, que em- 
pleaban fichas perforadas. 

Un procesador de musica moderno se puede 
contemplar como una version actualizada del siste- 
ma de pianola. E! pape! se reemplaza por la memo- 
lia del ordenador y el soporle de almacenaniiento 
magnetico, y el piano se reemplaza por un sintetiza- 
dor con una interface de ordenador. Ahora la edi- 
cion es simplemente cuestion de procesar los datos 
de la memoria del ordenador mediante un progra- 
ma adecuado. 

Pero antes de que podamos hacerlo (y, en reali- 
dad, incluso antes de que podamos mtroducir los 
datos en el ordenador) necesitamos saber dos cosas 
fundamentals acerca de la MIDL La primera de 
^stas es el tipo de transmision de datos utilizado y, 
la segunda, el formato de los datos. Estos dos facto- 
res corresponden a ios componentes de hardware y 
software de las especificaciones de la interface: en 
este capitulo nos ocuparemos del hardware que se 
requiere para nuestro proyecto. 

Transmision de datos 

Lo primero que necesitamos saber es como se 
transmite uo byte de datos a traves del enlace. La 
MIDI opera como una interface en serie asmcrona 
operando a 3L25 Kbaudios. Ello significa que solo 
se puede transmitir un bit de datos a la vez, y que el 
receptor y el transmisor no estan sincronizados 
entre si mediante serial es de reloj comunes. La des- 
ventaja de este metodo de transmision de datos es 
su escasa velocidad. No obstante, puesto que el en- 
lace se compone de apenas dos cables, exige cables 
y conectores muy sencillos y economicos- 

La MIDI especifica que se ban de utilizar los co- 
nectores estandares DIN de cinco patillas y 180" 
(con conectores profes ion ales de audio XLR de 
tres patillas como opcion). Esto contribuye a man- 
tener reducido el costo de la interface, favorecien- 
do su incorporacion a instrumenfos de precio eco- 
nomico. 

La principal critica de que es objeto la MIDI es, 
en realidad, su baja velocidad de transmision en 
serie y, como veremos, las demoras de transmision 
pueden vol verse bastante notorias en un sistema 
grande. Sin embargo ^ en el lado positivo hay que 
destacar que la velocidad de transmision es sufi- 
cientemente lenta para la limit ad a velocidad de 
proceso que pueden afrontar los ordenadores per- 
son ales, 

Los datos MIDI se envian en grupos de 10 bits, 
cada uno de los cuales representa un byte de datos 
mas un bit de comienzo y un bit de finaL Cuando 
no se estan enviando datos, la Ifnea normalmente 
est a establecida a un voltaje alto (+5 V para la 
MIDI). El inicio de una transmision se senala me- 



diante la puesta a low (0 V) de la Imea durante un 
periodo de un bit (el bit de comienzo), Entonces se 
envian los ocho bits de datos (el MSB, bit mas sig- 
nificativo, en primer lugar) seguidos por un penodo 
de un bit a un nivel mas alto senalando el fin de los 
datos. Por consiguiente. la transmision de cada 
byte lleva un total de 10 penodos de un bit, lo que 
equivale a 10/31.25 K=320 microsegundos. Como 
pod rem OS comprobar mas adelante en el proyecto, 
este es un numero muy importante que los aspiran- 
tes a programadores de MIDI deben tener pre- 
sente. 

Cuando la interface est^ inactiva, la linea se halla 
a un nivel de voltaje alto. El receptor inspecciona la 
linea continuamcnte atento a la primera aparicion 
de un nivel bajo; el bitde comienzo dc una transmi- 
sion. El receptor sabe entonces que se esta envian- 
do un byte de datos y puede cstablecer su contador, 
que cuenta periodos de un bit y medio desde la de- 
teccion del bit de comienzo. I ranscurrido este pe- 
riodo, el receptor estara a medio camino del perio- 
do de bit que contiene el MSB de los datos y, per 
tanto, puede dctcctar de forma fiable si el bit es un 
uno o un cero. Los bits restantes se reciben contan- 
do sucesivamente siete periodos de un bit y detec- 
tando cada vez el nivel . 

Por ultimo, se verifica el bit de detendon en 
busca de un nivel alto, para comprobar que los 
datos estaban correaamente "delimitados" por 
los bits de comienzo y de final. ApHcando este nie- 
todo de comonicaddn. no es necesario que ios re- 
iojes fiei receptor y el transmisor esien suKiooiza- 
dos con exactitud. siinpli&caiMio aue ma& la ioterfa- 
ce. Sin eni5aigo^ la dSferenda no debe ser tan acu- 
sada coma para causar errores de temporizacion 
hada el fin del b\te y. por consiguiente. la MIDI 
especifica una tolerancia de un 1 % en la frecuencia 
estandar del reloj. 

La interface es relalivamente rapida, consideran- 
do su naturaleza en serie (la RS232 opera a una 
velocidad maxima de 19.2 Kbaudios) y, por tanto, 
Ios cables de conexion deben tener una longitud 
maxima de 15 m para evitar tiempos de ascenso y 
caida excesivamente lentos. 

Demoras de transmision 

En este punto con vie ne analizar la limit acion fun- 
damental de la MIDI, a saber, las demoras de 
transmision entre instrumentos. En general, un 
mensaje de nota encendida/apagada se compone de 
un total de tres bytes. El tiempo que consume en- 
viar este mensaje es, en consecuencia, de 3x320 
microsegundos=0.96 ms. Consideremos ahora la 
situ acion de un si stem a de secuenciador de can ales 
multiples donde, pongamos por caso, puede ser ne- 
cesario enviar 20 de estos mensajcs a la vez. Esto 
significa que la ultima nota de! grupo Uega aproxi- 
madamente 20 ms mas tarde de lo previsto. 

Muchos secuenciadores que emplean grabacion 
en tiempo real utilizan una resolucidn dc tempori- 
zacion de tres o cuatro milisegundos para reprodu- 
cir adecuadaniente Ios matices de temporizacion de 
una actuacion hum an a, Por tanto, una demora 
de 20 ms puede conducir a una temporizacion per- 
ceptiblemente deteriorada cuando se reproduce la 
grabacion. 

En ei proximo capitulo analizaremos el software 
de las especificaciones MIDI. 
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El Nuevo Mundo (II) 



He aqui la segunda parte del 
listado completo de nuestro 
juego de simulacion mercantil 

El juego esta escrito en un basic minimo y, por 
tanto, se podra ejecutar en ei BBC Micro con unas 
pocas alteraciones. Las prmcipales modificaciones 
que es necesario introducir en el listado que ofrece- 
mos atanen a la instmccion para limpiar la pantalla 
y af metodo de efectuar una pausa para la pulsacion 
de una tecla. A lo largo del listado, at If donde apa- 
rezca la instruccion PRINT CHR$(147), ios usuarios 
del BBC Micro han de reemplazarla por CLS. 

EI codigo utilizado para aguardar una pulsacion 
de tecla en la version de El Nuevo Mundo para el 
Commodore 64 (que es la version que listamos 
aqui) implica estahleccr un bucle para tomar (GET) 
caracteres desde el teclado. El buclc tcrmina cuan- 
do se recibe un caracter distinto a la serie nula. Este 



tipo de construccibn aparece en muchos lugares del 
listado del programa, del siguiente mode: 

<n." linea>GET 1$:IF l$= THEN<n.^ [inea> 

Ei BASIC BBC posee una instruccion especial con el 
mismo efecto que la anterior, pero mas simple. 
Siempre que aparezca esla construccion, los usua- 
rios del BBC deben reemplazarla por: 

<n.^ linea>l$=GET$ 

En el BBC Micro, las diferentes modalidades de 
visualizacion tienen diferentes requerimientos 
de memoria. Al objeto de dejar libre para el pro- 
grama la maxima cantidad dc memoria de basic, 
los usuarios del BBC Micro debcn seleccionar la 
modalidad 7. Esta es la modal id ad que se seleccio- 
na automaticamente cuando se enciende el ordena- 
dor. Sin embargo, para ascgurarsc por completo, 
los usuarios de esta maquina quiza deseen anadir 
una Ifnea extra al comienzo del programa: 

5 MODE 7 



5300 REMINFORMEDEFIWALDESEMANA 
5305 PRINT CHRS(147) 
5310 SS-" 
5312 SS~ " 
5314 GOSUB9200 
5316 PRINT:PRINT" 
5318 GOSUB9200. 



DIARIODENAVEGACION- 



iGOSUB 91 OO 
:GOSLQ91O0 



m DELASEMAI4A ";WK 



Este bucle comprueba si durante la semana ha 
faflecido algun tnpulante, y reduce 
consiguientemente el numero de thpu [antes, CN. 



5320 X-0 

5325 F0RT-1T016 

5330 if TS(T.2K>-999 THEN 5350 

5335 X=X+1 

5340 TS{T,1}=0:TS(L2)=0 
5345 CN-CN-1 
5350 NEXT 

5355 IF X-0 TUEN 5400 
5358 PRfNT:PRI«T 

5360 SS = 'T URANTE LA SE MANA PASADA * 



GOSLie 0100 



Si tia mueilo toda latripulacidn (lo que se 
indicarfa mediante CN=0), el juego termina 

5365 IFCN>0THEN5J90 

5367 SS- ' M U RIO TO DA Lft TRIPU LACION QUE QUEDABA' " :GOS UB 91 DO 
5369 GOSUe 9200 PRINTiGOSUB 9200 

5373 SS- 'EL BARCO VA IRREMISIBLEMENTE A LA DER I VA* IGOSUB 9100 

5374 60S J6 920O 

5376 SS= ' POR EL OCEANO DESIERTO. :GOS UB 91 00 
5378 GOSUB9200 
5380 PRINT:PRiNT 

5382 S$- EL J UEGO HA TERM IN ADO* ' :GOSUB 91 00 

5384 PRlNT:PFtJNT 
5386 GOSDB 9200: END 
5388 GOTO 
5390 PRINT X: 

5392 IFX-1 TEN Si= '^MIEMBRO DE LATRIPUUCJOH HAFALLECJDO*^' 

5394 IF Xol THEN SJ- MIEMBROS DE LA TRIPULACION HAN FALLf ODD' 
5396 GOSUB9100 

5395 G03UB 9200 
5400 PRINT: PR I NT 

6Se ha agotado alguna provision? De serasi, se 
imprime un mensaje en tal sentido 

54DS &S="AHORATEHASQlEDADOSIN " 
5410 F0RT=tT04 
5^T5 [F PA(T}<>-999 THEN 5440 
5420 PRINT SS; PS m 



5425 PA(T)-0 

5423 SS=" Y" 

54 40 NEXT 

5450 GOSUB 920O 

54S5 REIWCALCULARNJEVAJL 

Se calcula el total de la fortaleza de la tripulaci6n 
explorando TS(J y, si resulta infertor a la mitad 
de la fortaleza total, se anade tiempo extra mm 

5460 X=0 
5465 F0RT=1T016 
5470 X=X+TS(L2} 
5475 NEXT 

5480 IF X>7g'9 THEN 5494 

5481 PR [NT: PRINT 

54&2 SS - "LA TRIPU LACION SE HALLA POR OEBAJO DE LA FORTALEZA 

TOTAL "IGOSUB 9100 
5483 SS= DE MANERA QUE EL VIAJE PODRIADURAR MAS":GOSUB910O 
54S9 EW-EW l ((S0O-X)/800) 
5490 JL=JL+INT[EW} 
5492 PRINT 

5494 SS-K$:GOSUe 9100 
5496 GET IS:IFJS="' THEN 5496 

5499 RETURN 

Para generar eventos imprevrslbles, seselecciona 
irn numero aleatorio y se utiliza para llamar una 
rutina mediante ON.,. GOTO 

5500 REM GEWERADOR DE EVENTOS AL AZAft 

5502 IF RC-RM THEN RETURN 

5503 REM SALIR SI TODOS LOS EVENTOS YA PRODUCIDOS 

5504 PRINT CHflSn47) 

5505 GOSUB 9200 

5510 X=INT(RND(1}'RM) + 1 

5515 REM GENERAR NUMALAZARENTREIYRM 

5520 IF RR(X)=1 THEN RETURN 

5522 R EM RETO R N S I ESTE EVE NTO YA SE PRODU JO 

5523 RR(X)=1:RC=RC-M 

5524 REM ESTA6LECER JNOIC. PARA SENALAR QUE ESTE EVENTO YA SE 
PRODU JO E INCREMENTAR CONTADOR EVENTOS 

5525 OW X GOTO 5540 , 5570 ,5570, 5570 , 5570 . 5600, 570D , 58O0 , 5850 , 5900 , 
5950.6000,6050 

5528 RE M i R AL COD f G 0 APROPI ADO PARA ESTE EVENTO 

5530 PRI NT:SS - : GOSU 6 9100 

5555 GETIS-iFIS=-" THEN 5535 

5539 RET URN: REM RETORNAR AL BUCLE PRINCIPAL VIAJE 



AlQunos eventos son nefastos. 
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5540 REIWEVENT01-HOMBREALAGLA! 

5542 PRINT 

5543 SS=" DURAWTEU^SEMANA"^GOSUB9100 

5545 PRINT;GOSJB9200 

5546 SS-^' 1 PERSOMACAYO POR LABORDA*":GOSUB 9100 
5543 SS=" DURANTE UNA TORMENTA-^GOSUB 91 00 
5550 PRJNT:GOSUB9200 

5552 SS=-J\J TRIPULACION SE HA RED JCIDO AHORA A* " :GOSUB 9100 
5554 PRlMTCN-lrMIEMBROS" 

5558 FORT=1T016 

5559 REMBUSCARQUETRIPULANTESEPERDIO 

5560 IF TS[T,2)= 0 OR TSr,2) = -999 THEN 5566 
5562 TSIT.2)--999:REM MUERT0 

5564 T=16 
5566 NEXT 
5568 GOTO 5530 

5570 REM EVENTOS DEL 2 AL 5 - PERDIDA OE PROVISIONES 

5572 X-X+1:REMAH0RAX INDICA LA PROVISIONS -4) 

5574 IF PA(X)=0 OR PA(K) = - 999 THEN 5530 

5576 REM NINGUNAACCION SI YA SE HAAGOTADO ESTA PROVISION 

557a PRINT 

55S0 SS=" DURANTELASEMAMA*":GOSUB910I} 

5592 PRINT:GOSUB9200 

5504 PRINT- PARTE DETU ";P${X) 

55a§ S3= " FU£ ARRASTRADA POR LA BORDA* ':GOSUB 910O 

5509 PRINT:G0SUB9200 

5590 &S= " ARORA TIENES APROXIMADAMENTE'^'iGOSUB 9100 

5592 PA(X) = PA{X)-lNT(PA(X)/(INT(RNO{ir3}+2)J 

5593 REM REDUCIR CANTIDAD PROV EN 1/2 1^30 1/4 

5594 PRINT INT(PA(X)/{CWPN(X})); 

5595 PR I NT " Y TE Ql EDA PARA " ; PS{X) ; " SEM AN AS APROXIM AD AMENTE " 
5599 GOTO 5530 



...pero otros son beneficiosos. Porejemplo, se 
puede sustituir con pescado la racion de came 



5600 
5605 
5610 
5615 
562D 
5625 
5630 
5635 
5c-^0 
:rc45 
5646 
5650 
5o55 
5660 
5662 



REM EVENTO 6 - CAFmRAR PECES 
X=0 

F0RT=1TOT6 

JFTS(T.2)^^999 THENX=X+1 

REM CONTAR FAILECIDOS ESTASEMANA 

NEXT 

IF CN-X<1THEN RETURM 

REM NINGUNAACCION SI TOOA TRIPULACION MUERTA 
PRINT 

SS="DURANTELA S EMANA" ^ :GOSlB 9 1 00 
PRINT:GOSU0 92OD 

X£= ■' UNO DE LDS TRrl^ULASTES CAFU^'' GCSLG rOO 



-A.ii i,CN*Phf(3))):''SeMANAS'' 



zSm GOTO 5530 

Si se estuviera acabando el agua, esta rutina 
permitira el reabasteciroiento. En la linea 5735 se 
genera a! azar un numeroentrelOy 20, que 
representa fos barriles de agua que se anadiran al 
stock retenido en PA(4) 

SrOO REMEVEhflO/- RECOGERAGUA 
PRINT 

no SS-" DURANTE LA SEMAMA*":GOSUS 9100 
r'= PR I NT: G OS UB 9200 

SS ^ " UN TEM POR AL DE ILU V I A L LENO TU S " ^' :GOS UB 91 00 
5^25 SS-"BARRILESOEAGUA*":GOSUB9100 
5730 PRINT:60SUB9200 

5735 X=INT[RND[1)*10)+11 

5736 REM ENTRE 10 y 20 BARRILES 

5740 SS= "AHORA TU PROVISIOM DE AGUA ES" " :GOSUB 91 00 
5745 SS="SUFICIENTE PARA APROXlMADAMENTE"';G0SUB 91 00 
S7-SS I F PA(4) = - 999 THE N PA(4} = 0 
5750 PA[if)=PA(4)-^X 

5755 PR1 m I NT{ PA{4)/(CN ' PN (4))) ; " SEM ANAS " 
=750 GOTO 5530 

530C' REM EVENTO G ^ VIENTOS FAVOR ABLES 

^ mm 

sT : 55 - ■■ EUE RTES VI ENTOS GO Mil NO OS D URANTE TODA LA 

SEWAWA-'GOSUB 91 OO 

^^iN-TiGOSUB 9200 
B SS- - HAS NA VEG ADO A BU EN A VE LOCI DAD * *' :GOS UB 91 00 
as SS-" Y lA DURACION DEL VIAJE SE * "iGOSUB 91 DO' 
mm 35=" REDUCE EN MEDIA SEMANA'^iGOSUB 9100 
905 eV-EW-.5 
5i3i GOTO 5530 

B buen tiempo puede mejorar la fortaleza de la 
Ir^wiladofi. Esto se consigue explorando la matriz 
(IS(,)) emcrementando los coeticlentes 
Uviduales en fund on de un numero entre5y 15 



5850 REM EVENTO 9 - &UEN TIEMPO 
5855 PRINT 

5860 SS= 'BUEN TiEMPO DURANTETODA LASEMAJ4A"':GOSU89100 
5865 PRINT:GOSUB9200 

5870 SS= ''LA TRIPULAClOW BE SIENTE MAS F1LIZ-:60SUS 9100 
5875 GOSIB9200 

5S80 B$=- VESTA MAS SALUOABLEr'!60SUB9TDO 
5882 F0RT=1T016 

5&e4 IFTS{L2)=0ORTS(T,2)=-999THEN5885 
Sase TS[T,2)=TSfr.2)+INT{RND(1)*11)+5 
5838 MEXT 

58B9 GOTO 5530 

Las tres mtinas sigulentes pueden, al ser 
llamadas, disminuirel cargamento al estropearse 
las armas, las balas de tela y los frascos 

5900 REM EVENT0 10 - PERDIDA OE MEDICINAS 
5905 IF 0A[1 )=0 OR 0A[1 )= -999 THEN RETURN 
5910 PRINT 

5915 SI="DESCUBRESQUELAMITADDETUS^":GOSIJB9100 
5920 SS=TRASCOS DE MEDICINASE HAN ROTO' ":GOSUB 9100 
5925 OA{1)=INT(0A[1}..'2) 
5930 PRINTiGOSUB9200 
5935 SS=" AHORA TE QIEDAN* ":GOSUB 91O0 
5940 PRINT 0 A[ 1 J ; " FRASCOS SOLAM ENTE " 
5945 GOTO 5530 

5950 REM EVENT0 11 - ARMAS OXIDADAS 
5955 IF OAt2}-0OR 0A(2)= -999 THEN RETURN 
5960 PRINT 

5965 SS="OESGUBRES QUE LA MITAD OE TUS'^iGOSUB 91 00 
5970 SS-" ARMAS SE HAN 0X1 DADO iGOSUB 91 00 
5972 S£-"YYAN0SIRVEN"':GOSU8 9100 
5975 OA(2)=INT(0At2),'-2) 
5960 PRINT:GOSUB9200 
5985 SS="AHORATEQUEDAN*":GOSUB9100 
5990 PR]f^T0A[2):"ARMAS SOLAMENTE" 
5995 GOTO 5530 

mm REM EVENT0 12 -PERDIOADE TELA 
6005 lFOA[4)=0OROA(4)=-999THENRmJRN 

6010 Pftl^T 



30 



6060 SS = u S AlSATROS SOBRc ^/ILELA a BAROO " iGOSLFB 9100 
mSZ GOSUB 9200 

S065 SS = " ESTE ES UN fl UEN PRESAG 10 " ^ :G0SU6 91 00 

B06S SS= " Y Lft TRIPULACION ESTA CONTENTA^ ^GOSUB 91 00 

6070 PR I NT: GOSUB 9200 

6075 IF PA(3)<(CNTN(3)'{JL-WK+1)) THEN 6090 
6080 REM NO HAY ESCASEZ DE CARNE 
6085 GOTO 61 22 

6090 S$= " SE TE ESTA TERM I NAN DO LA CARNE'" :GOSUB 91 OO 
6095 SS= " Y EL AVE PESA 1 0 KILOS! * ":GOSUB 91 00 
6100 PRINT:GOSUB 92O0 

6105 SS = " TE G U STAR I A COG ER IA7* " :GOSUB 9 1 00 

6110 INPUT IS 

6112 PR I NT: GOSUB 9200 

61 15 IF LERSdSJ }= -S'- THEN 6133 

61 20 SS- " PROBAfiLEMENTE DA LO MISMOr "!GOSUB 9100 

6122 PRINT:60SUB 92O0 

6125 SS-'^ELALBATROSSEALEJAVOLANDO *":GOSUS9100 

6130 GOTO 5530 

6133 If OA(2)-0 OR 0A{2}=- 999 THEN 6130 

6135 SS - RACES UN D I SPARC ' ": GOSUB 9100 

6130 GOSUB9200:GOSUB920O 
6H0 IF RNDtlK.5 THEN 6150 

61 45 SS = PERO NO AGfE RTAS! ' " : GOSU B 9 1 00 

6U8 GOTO 6122 

6150 SS= T EL AVE CAE SOB RE LA CUBIERTA! * GOSUB 91 OO 

B155 PRINT1GOSUB9200 

6160 IFPA[3)=-999THEN PA{3)-0 

6162 PA{3)=PA(3)+10:B$-"S'^ 

6165 S$- " AHORA TIENES 10 KILOS MAS' GOSUB 9100 

6167 SS- -DE CARNE ■":GOSyB9100 

61 70 SS = PERO PUEOE SER QU E LA BU EN A FO RTU NA * " :GOS UB 91 00 
6172 S$= NO TE ACOMPANE A PARTIR DE AHORA! !'":60SUB 9100 
6174 GOTO 5530 

6180 SS-' NOPUEDES - NO TIENES ARMAS* 'iGOSUB 9100 
6190 GOTO 6122 

Los eventos ya resefiados poseen una minima ^ 
influencia sob re el viaje, pero tambien se piieden 
producir otros mas determinantes, seleccionados 
al azar mediante esta rutina 

6500 RFM EVENTOS MAYO RES 

6508 X-JNT(RND{1)*10)+1 

6510 ON X GOSUB 6530,6700,6800.6900,7000,7050 

6520 RETURN 
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Juegos 



Squash en el C64 



Un juego deportivo no hace mal a nadie, Este le ofrece la 
posibilidad de practicarlo si es usuario de un Commodore 64 




La raqueta se desplaza con ayiida de las teclas de 
control del cursor (a la derecha de la barra espacia- 
dora). Dispone de diez pelotas que ha de mantener 
en juego el mayor tiempo posible. Cada peiota que 
se devuelve proporciona un pun to. 



5 REM ***** " 


1090 


C=8 


10 REM* SQUASH * 


1100 


B0=81 




1110 


H = INT(RWD(TI)^[X-4)+2) 


20 GOTO 1000 


.11^0 


V=22 


50 V=V^DV 


1130 


H0=2 


60 H = H+DH 


1140 


H1=X-2 


70 POKEM+B,BN 


1150 


V0=1 


80 B-V*X-^H 


1160 


V1^22 


90 POKEM+B,BO 


1170 


DV— 1 


100 POKEN-^BX 


1180 


DH^{RND(TI)<0.5)^2+1 


110 If V=V1 AND ABS[H-(P0S(X)+3))>1 THEN 2000 


1190 


RS=CHRS{32)+CHRS[32)+CHR${196) 


120 IFV=V1 ORV=V0THENDV=-OV 




+CH R$(1 96)+CHR${l96) + CHR$(32) +CHRS{32) 


130 IFH>-H10RH< = HOTHENDH=-OH 


1200 


R=17 


140 IF V=V1 THENS=S + 1 


1220 




150 GETXS 


1230 


IFNB = 0THENGOSUB1500 


160 IFXS=CSAND POS(X)<>0 THEN PRINT 6GS;:IFV-V1 


1240 


GOTO 50 


THENH^H-1 


1500 


PRINT CHRS(147); 


170 JFXS=OS AND POS(X)<>34 THEN PRINT DOS;: IF V- VI 


1510 


F0Ri-0TO40 


THENH=H+1 


1520 


POKE M+ 1,1 00 


160 PRINT FES; 


1530 


POKENh-1,2 


190 PRIffTTS; 


1540 


MEXTI 


200 GOTO 50 


1550 


FOR 1=1 TO 22 


1000 X=4C 


1560 


POKEM+r40.103 


1010 M=1024 


1570 


POKEN + I*40,5 


1020 N =55296 


1580 


POKEy+IMO+39,101 


1030 DS=CHRS(29} 


1590 


POKE M + l''40+ 39,5 


1040 GS=CHRS(17) 


1600 


NEXTI 


105O R0=0 


1610 


DDS = CHRS(29)+CHR$(29) 


106O R1=33 


1&20 


GGS=CHR$(157)+CHRS(157) 

TS="" 


1070 BN=32 


1630 


1080 B^O 


1640 


FOR 1 = 1 10 7 



1650 T$=TS+CHRS(157) 

1660 MEXTI 

1670 PRINT CHRS(19) 

1680 FOR 1 = 110 22 

1690 PRINT GS; 

17O0 NEXTJ 

1710 FOR 1 = 1 TO 16 

1720 PRIfJTCHR$(32): 

1730 NEXTI 

1740 S=0 

2000 fJB=NB+1 

2010 POKEM + B,BN 

2020 POKE 54296,15 

2030 POKE 54277 J 90 

2040 POKE 57278,136 

2050 POKE 54273,17 

2060 POKE 54272,37 

2070 POKE 54276,65 

2080 FOR 1 = 1 TO 50 

2090 NEXTI 

2100 POKE 54272,0 

2110 POKE 54273,0 

2120 POKE 54276,0 

2130 FOR 1^1 TO 500 

2140 NEXTI 

2150 IF NB^11 THEN 3000 

2160 GOTO 1000 

3000 IFS>RRTHENRR = S 

3010 NB=0 

3020 PRINT CHR$(147); 

3030 FOR 1=1 TO 7 

3040 PRINT 

3050 NEXT I 

3060 PRINTTAB(16)TUNT0S(1SPC]:^ 

3070 PRINTS 

3080 FOR 1=1 TO 4 

3090 PRINT 

3100 NEXTI 

3110 PRINTTAB(12}'TUNTUACI0N[1SPC]MAXI 

MA[1SPG):'^ 

3120 PRINT RR 

3130 FOR 1=1 TO 4 

3140 PRINT 

3150 GETXS 

3155 GETXS 

3160 NEXT I 

3170 PRINTTAB(16)"0TRAI1SPC]?" 

3180 GETXS 

3190 IF XS=" ' THEN 3180 

3200 IFXS<>"N 'THEN20 

3210 END 
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Echo Synthesiser/Hardware 



TedadD avanzado 

El teclacfo Echo. (Je LVU que 
vemos en la ilustracion, es el 
primer teclado musical 
^verdadero" producido 
para el BBC Micro yef 
Commodore 64 que accede 
cirectamente a los chips de 
sonido dD estos ordenadores y 
Hue no exige una costosa 
iterface 



El paquete de musica Echo, 
destinado al Commodore 64 y al 
BBC Micro, accede 
directamente a! chip de sonido 
del micro 



El paquete Echo, de Lcasalink Viewdata Ltd 
(LVL), constij de un aulentico teclado de tres octa- 
vas y media mas el software para haccrlo funcionar. 
Tambicn se propordona un manual y un cable in- 
terface de 20 vias para conectar el teclado y el orde- 
nador entrc cllos mismos, que se instala en la puer- 
ta para el usuario dc la maquina. Si el usuario posce 
un Commodore 64, se le entregaran dos cables: el 
cable estandar, que es para el BBC Micro, y un 
pequeno cable adaptador que se ofrece para produ- 
cir la interface correcta para la maquina de Com- 
modore. 

EI hardware del Echo es simple desde el punto 
de vista de diseno; la mayor parte del trabajo lo 
realiza ei software que viene con el paquelc que, 
obviamente, mantiene reducidos los eostos de pro- 
duccion. El software para am bos ordenadores se 
basa en las mismas cspecificaciones. 

En el software hay disponibles dos modalidades 
distintas, la primcra de las cuales es una modalidad 
de organo. Pulsando una de las teclas del teclado 
del ordcnador se seleccion^ira uno de los diversos 
''instrumenlos'' listados. Estos van desde la guitarra 
hawaiana hasta el cello y el clavicordio, aunque los 
fondos de cada una de las dos maquinas son ligera- 



Centro 
musical 



mente diferentes. En la parte superior del monitor 
se listara una cantidad de parametros que. segun 
cual seleccione usted, le permitiran alterar los tonos 
del instrumento que este tocando. 

La version del software para el Commodore 64 
posee la facihdad de afiadir tremolo y vibrato (pero 
no ambos) o cambtar a una clave mayor o raenor. 
Estos efectos se producen pulsando una de las te- 
clas numencas. 

EI software de la version para el BBC Micro tam- 
bien incorpora las teclas del ordcnador, pero en 
este caso son las teclas de funcion las que le permi- 
tiran establecer el tremolo y acordes mayores o me- 
nores. Los programadorcs han sacado partido de 
las teclas de funcion extras y de la velocidad del 
procesador de la maquina, por lo que han anadido 
otras facilidades. Si el usuario desea dar un enfasis 
o un efecto extra cuando ejecuta una pieza en el 
teclado Echo, puede pulsar una de las teclas de fun- 
don y se tocara el sonido apropiado (bajo. dmbaL 
I ere). Lamenlablemente. no hay ninguna facilidad 
^ que pennita tocar ritmos de acompafiamiento 
= mkntras este locando el teclado. 

Controles de altura 

En la pane inferior de cada pant alia est an los con- 
troles de altura. En la version para cl BBC Micro, 
se puede subir o bajar la altura pulsando las tedas 
del cursor adecuadas. Sin embargo, en la version 
para el Commodore 64 esta labor se realiza me- 
diante las tedas < y >. Lamentablemente, el 
hecho de que est as dos funciones aparezcan en la 
pantalla etiquetadas como PITCH MINUS no dice 
mucho en favor de la calidad del software para la 
maquina Commodore. 

Tambien es lamentable que los sonidos produci- 
dos por las tedas de "instrumentos" guarden muy 
poco parecido con los instrumentos que se pretende 
imitar. Este es un hccho harto frecuente en todo el 
campo de la musica electronica, no solo en los pro- 
gramados para ordenador. No obstante, los efectos 
de sonido del Echo parecen cualitativamente peo- 
res que la mayoria. Por ejemplo, en la version para 
el Commodore 64 el violin, la viola y el cello sue- 
nan meramente como un organo sostenido a dife- 
rentes alturas para cada instrumento. 

Ambas maquinas disponen, asimismo, de la mo- 
dalidad de sintetizador. Los parametros proporcio- 
nados por la modalidad de sintetizador dependen 
de las facilidades que ofrece el chip de sonido de 
cada maquina. De este modo, la version para ei 
Commodore 64 permite regular los parametros de 
envoltura de la forma de onda y programar el filtro, 
Tai como sucede en la modalidad de organo, los 
parametros se alter an pulsando la tccla adecuada 
en el teclado del ordenador hasta obtener el valor 
requerido. 

De una forma bastante similar, la modalidad de 
sintetizador del BBC Micro hace uso de la instruc- 
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ECHO SYNTHESISER 



TECLAD 



I 37 teclas de recorrido total 



INTERFACES 



Cable de 20 vias que se enchufa 
en la puerta para el u suario del 
BBC Micro Cable adaptador 
para b\ C64 



SOFTWARE 



La versio n para si BBC Micro se 
vende en cassette o en disco; la 
veisi6n para el C64 sfilo en 



Permite utiiizar, desde un 
aut§ntico1ectado, las fadlidades 
de tos chips de sonido de am bos 
micros 



DESVENTAJAS 



La pobre calidad del software 
reduce sus posibilidades, si bien 
extste la promesa de una versidn. 
mejorada 




MOsIca en pajttalla 

Estas son tas visualizadories en 
pantalla para el software del 
Commodore 64 {arriba) en 
modalidad de drgano. y para et 
BBC Micro en modalidad de 
sintetizador. A pesar de ser 
superficialmente parectdas, las 
versiones del software son bien 
diferentes, Aunqueannbas 
utilizan pulsactones de teclas 
desde el ordenador paraalterar 
lossonidos, la version para el 
BBC Micro posee una vaiiedad 
de fond OS muchisimo mayor 
que la versi6n para eJ 
Commodore 64 




Echo Scan 

El teclado Echo se enchufa en la 
puerta para el usuario del BBC 
Micro 0 del Commodore 64 y se 
lo puede integrarfacilmente 
desde software. El prrncipio de 
operacidn es muy simpte. Los 
seis bits inferiores del registro 
de datosde la puerta para el 
usuario se establecen en sal id a 
para poder enviar datos a] 
teclado, y el bit mas significatlvo 
(el 7) se establece en entrada 
para volver a recEbir dalos desde 
el teclado. Para comprobar una 
pulsacifin de tecia es preciso. en 
primer lugar, colocar (POKE) un 
.n{imeroentre0y36enel 
registro de datos de la puerta 
para el usuario (ei teclado Echo 
posee 37 teclas numeradas a 
partirde cerp desde el esdremo 
izquierdo). Este define a latecia 
que deseamos comprobar. 
Luego debemos comprobar el 
bit 7 del registro de datos 
{ope ran do el valor del registro 
con 128 mediante AfJD). Si este 
bit esuno, entonces en ese 
momento se estaputsando la 
tecIa en cuestidn; si el valor del 
bit es cero, ello indica que no se 
esta pulsando la tecla. Para 
explorartodo el teclado 
necesttamos, por lo tanto, un 
bucle que compruebe cad a una 
de las 37 teclas de forma 
sucesiva. El programa 
que ofrecemos muestra 
cdmo se puede hacer esto 
desde basic. 
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0 
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1 



Programa Echo Scan 

5 REM ECHO SCAN CBM 64 
10 P0KE56579,63:REMESTABLECERBITS 

0-5 PARA SALIDA 
1 2 REM EXPLORAR TECLADO DE 37 TECLAS 
15 FOR 1=0 TO 36 

20 POKE 56577 J:IF(PEEK(56577)AND 128) 
oOTHEN PRINT I; "TECLA 
PULSADA" 
30 MEXTI 

40 G0T015:REMREPETIR 

Complementos a1 basic 

El teclado Echo tarn bien se puede utilizar con 
el BBC Micro. Introduzca eslos cambios: 
10 ?&FE62=63 

20 ?&FE60=I:IF(?FE60 AND 128} <> 0 
THEN PRINT I; "TECLA PULSADA'^ 



don ENVELOPE de la maqiiina. Cuaodo llame a csta 
instmccion, se le pregtintara cual de los ctiatro sin- 
tetizadores definidos por el usuario (en cootraposi- 
cion a aquellos que ya estan preestablecidos en el 
organo) desea alterar. La pantalla visiializa eoton- 
ces los 14 parametros que se requieren para la ins- 
tnicdon ENVELOPE; cada uno de ellos se selecciona 
mediante las teclas del cursor izquierda y derecha, 
y sus valores se pueden modificar mediante los cur- 
sores arriba y aba jo, Una vez establecidos, usted 
estara en libertad de tocar el tone deseado en el 
tedado. 



El software conecta en interface el ordenador 
con el teclado colocando on valor dc entre 36 y cero 
en los seis bits inferiores del registro de datos de la 
puerta para el usuario. El metodo de exploracion 
de teclado que utiliza el paquete dc software signifi- 
ca que si se maotiencn pulsadas varias teclas simul- 
taneamente, solo se registrar a la mas elevada. La- 
me ntablemente, esto no permite cambios rapidos 
de dedos cn el teclado del Echo, porque antes de 
que el software reconozca una pulsacion dc tecla ^ 
debe haberse liberado completamentc la tecla ante- 
rior. 
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Sonidos 
de circuito 



Prosiguiendo con nuestro 
proyecto, disenaremos una 
interface para el Commodore 64 
y el BBC Micro 



FI principal componente de la interface es un adap- 
tador de interface para comunicaciones asincroni- 
cas ( ACI A: Asynchronous communicmions interfa- 
ce adaptor). La funcion del ACI A consiste en con- 
vertir los datos en paraldo del ordenador a la 
forma en serie que requiere la MIDI, y vice versa. 
El dispositivo se halla contenido en un circuito inte- 
grado. Nosotros empfearemos el MC6850, presente 
en muchos ordenadores personates como un con- 
trol para la transferencia asmcrona de datos desde y 
hacia cassette e interfaces de tipo RS232. 



Lista de componentes 



Cantidad 


Ref. 


Articulo 


1 


C4 


Condensador 






policarbonato 1 nF 


2 


C2/C3 


Condensador 






policarbonato 100 nF 


1 


R1 


Resistencia 270 ohmlos 


3 


R2/R3/R4 


Resistencia 220 ohmios 


2 


R5/R6 


Resistencia 680 ohmios 


1 




Carrete de alambre para 






enlaces 


2 


SK1/SK2 


ConectorDINSpatillas 






180° pars monlaje en PCB 


1 


tC1 


ChipACIA MC68B50 


1 


IC2 


Chip optoaislante 6N139 


1 


IC3 


Inversor hexa 74LS04 TTL 


1 




ConectorDIL24 patillas 


1 




ConectorDILSpatillas 


1 




ConectorDIL14patillas 


1 


X1 


Crista! 2,0 MHz 


1 


D1 


Diodo1N914 



La placa DIP que se utiliza para montar los 
componentes se puede conseguir en casi todas las 
sucursales Tandy, bajo el numero de componente 
276-164 



Conexiones del circuito 

El optoacoplamiento se 
consigue con un optoaislante 
6N139{IC2),Elreloj de 
transmislon es derivacJo del reloj 
del ordenador mediante un 
circuito oscilador de cristal de 
2 MHz fornnado alrededor de 
IC3aelC3b. IC3c, IC3d e IC3e 
proporcionan cada uno 
funciones de tamponamiento 
para el transmisor y generador 
del reloj. El MC6850esbus 
compatible cor la CPU 6502 
utilizadaen nnuchos 
ordenadores. Ello nos permite 
efectuar conexiones directas 
desde las Imeas Read/Write, 
IRQ y Clock de micros basados 
en el 6502, {Observe que, para 
evitar posiPles confusiones con 
las enlradas del reloj de 
trans mSsron TXD y TXC, hemos 
etiquetado la entrada del reloj al 
ACIA como Enable [E)}. Las dos 
Ifneas de seleccidn del chip (C30 
y CS1) estan conectadas a la 
aiimentaciori de + 5Vy, por 
tanto, fijadasen high, dejandoa 
CS2 como la unica entrada 
activa de seleccion de chip (o 
habilitador de dispositivo). Esta 
linea qyeda /tjwpara una derta 
gama de direcciones. 
penniliendo que las operaciones 
de tectum y escrttura en ef bus 
:7 3:c5dan a los registros 
- T - It ACIA 



Diagrama de circuitos de la interface MIDI 
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Canstruccibnde la MIDI 

Los componentes principales de 
la interface MIDI sedeben 
montar en la placa DIP especial 
que se espeafica en la lista de 
componentes, Esta placa posee 
oonectores margin ales de doble 
caraenambos extremos:el 
extreme derecho se utilfza para 
la conexlon al Commodore 64, y 
el extremo izquierdo para la 
conexi6n al BBC Micro, Antes de 
montar los componentes es 
precise efectuar algunos cortes 
en la pJaca. Observe que solo es 
necesar io realizar cortes en un 
extremo de la placa o bien en el 
otro, segun con que orcfenador 
desee jtilizaria interface. 
Emplee un cuchillo puntiagudo o 
una pequena sierra para metales 
para suprimir las porciones 
requeridas, lal como se indica. 
Todos los enlaces se efectuan en 
la cara superior de la placa 
utili2ando alam:bre para enlaces 
de una sola hebra, con la 
excepcion de tres enlaces entre 
patillas IC adyacentes. Estos 
enlaces se han de realizar 
haciendo correr soldadura entre 
los pares de patillas apropiados 
por el lado de cobre de la placa. 

Comience por montar en la 
placa los componentes pasivos: 
las resistencias, los 
con den sad ores, los conectores 
DIN y los oonectores D[L,tal 
como se indica. Efectue fos 
enlaces necesarios con el 
alambre de enlaces y monte el 
cristal de 2 MHz. El diodo debe 
orientarse de modo que el 
extremo marcado con la franja 
de color quede'a la derecha 
(mirandolodescfearriba). 
Asegurese de no faJiarel 
pequeno enlace de debajo del 
condensadorC3. Por ultimo, 
coloque cuidadosamente los 
chips en su sitio. en sus 
respectivos conectores, 
prestando atencion a Ja 
orientacion de las muescas. 

En el proximo cap itu 1 0 del 
proyecto explicaremos de forma 
detallada et tnbajo que aun resta 
per hacer antes de que se pueda 
conectar la interface a un 
ordenador y comprobar su 
funcionamiento 



Diagrama de la disposicion de los componentes 
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Otros componentes que necesitaremos en esta 
etapa son un reloj de interface, un optoaislantc y 
conectores dc entrada y salida, que constituycn la 
base de la interface. En e! proximo capitulo rescna- 
remos de forma detallada las conexiones a la puerta 
del ordenador que se requiercn para enlazar la in- 
terface con el Commodore 64 o el BBC Micro. 

La estructura interna del dispositivo ilustrado se 
compone de un cierto numero de rcgistros de ocho 
bits. La Imea de entrada Hegister Select (RSEL) per- 
mite el acceso a los registros desde el bus de datos. 
Aunque no es esencial comprender las funciones dc 
los registros del ACfA para ejecutar el software 
que daremos, los que deseen programar la interfa- 
ce necesitaran conocer la siguiente informacion: 

• El registro de estado se compone de ocho bits 
que describen el estado actual del chip ACIA. El 
programador los tiene a su disposicion Hevando a 
cabo una operacion de lectura en el ACIA con la 
linea RSEL a nivel low (cero logico). 

• El registro de control contiene ocho bits que con- 
trolan la operacion del ACIA. Al registro de con- 
trol se accede escribiendo en el ACIA con la linea 
RSEL en un nivel low. 

• El registro de cambio a transmmon {TSR: transmit 
shift register) reaiiza la conversion paralelo a seric que 
se requiere para transmitir un bvte de datos. El regis- 
tro se carga con uii b\te dcsde el registro de datos a 
iransmitir (TDR: trammit data register) cada vez que el 
TDR esta Ueno y se ha>'a completado la transmision del 
b\te anterior. Esta ^racion establece el bit 1 del 
legEtro de estado, Loego el byte es tiaosportado a 
im wkodad delmsmda par el idoj de tiansim' 
sion. Entoooes a ocfio bte de <feios se lef anaden 



los bits de comienzo y final. Este es un registro inter- 
no al cual no se puede acceder directamcnte desde el 
bus de datos. 

• El registro de datos a transmitir (TDR) forma un 
tampon (o buffer) entre el TSR y ei bus de datos del 
sistema- El byte a transmitir se carga en este regis- 
tro escribiendo en cl ACIA con la Imea de selec- 
cion dc registros high^ Esto limpia el bit 1 del regis- 
tro de estado. Para no perder los datos, no se debe 
cargar el TDR cuando este bit esta borrado. Ello se 
debe a que el byte previo esta aun en el TDR espe- 
rando la transmision y se escribiria sobre eL 

• El registro de cambio a recepcion (RSR: receive 
shift register) reaiiza la conversion de serie a parale- 
lo que se requiere cuando se rccibcn datos desde la 
MIDI, Cuando el registro recibe un byte completo, 
carga los datos en el RDR, pomendo a 1 el bit de 
estado 0, Si ya estaba establecido a 1 con anteriori- 
dad, entonces tambicn se establecera a I el bit de 
estado 5, indicando que el byte anterior no habia 
sido leido por la CPU y que los datos se perderan, 

Si cl byte recibido no tuvo la cantidad requerida 
dc bits de comienzo y de final, entonces se estabie- 
cera a 1 el bit de estado 4. Esto podria ocurrir si en 
la Imea dc entrada en serie hubiera presente algun 
''ruido" electrico. Al igual que el TSR, al RSR no se 
puede acceder directamente. 

• El registro de datos a recibir (RDR: receive data 
register) se carga cada vez que se recibe un byte 
complete desde el RSR. Contiene, en consecuencia, 
el byte de datos mas reciente. A el se accede efec- 
tuando una operacion de lectura del ACIA con la 
hnea RSEL establecida high^ Esta operacion pone a 
0 el bit de estado 0. 



Diagrama de bloques del chip ACIA 
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Software/CP/^ 



Futuro prometedor 



En este ultimo capitulo de 
nuestra serie acerca del CP/M, 
analizaremos como se organiza 
el srstema en ia memoria del 
ordenador 



Un espacio bien 
aprovechado 

Este diagrama ilustra er) qu^ 
lugarde la memoria se 
almacenan losdiversos 
coTTipon&ntesdeiCP/M. En la 
parte inferior do la memoria, 
en la p^gina cero, estin las 
variables del slstemay los 
puntos de entrada, asi como 
el programa cargador bMm. 
Misarriba sehatlalaTPA 
(Irea de programas 
transitorlos). La frontera 
superior de la TPA se pyede 
alterar para permitir que los 
archivos que normalmente no 
cabrian en el ^rea se 
sobreescriban en el CCP 
[console command 
procBSSO!). En la parte 
superior de la memoria est^n 
las rminas BIOS yBDOS. que 
no sfi pueden sobreescribir 
porque son importanles para 
laejecucidn de instruct ones 
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Los tres mddulos principales del CP/M se mantienen 
en la parte supenor de la memoria. Sus direcciones de 
comienzo reales depeoderan de la versi6n de CP/M que 
se este utilizando. El BDOS (sistema operatlvo de disco 
basico), que administra los archivos retenidos en 
disco, y el BIOS (sfstema b^sico de entrada/salida), 
que manipula para el ordenador fas rutinas de trata- 
miento de perif ericas, se conservan en la parte mas 
alta de la memoria. Por debajo de ellos esta el CCP 
(console command processor), el modulo del CP/M 
con el cual se comunica el usuario. 

En el otro extremo del mapa de memoria hay 256 
bytes (la ^'pagina cero") que se utilizan para contener 
variables del sistema y otra infprmacion de trabajo ne- 
cesaria para ejecutar el CP/M. Esta comprende algunos 
datos muy utiles, como los puntos de entrada a las 
zonas BDOS y BIOS de la memoria y ef programa car- 
gador basico. Es necesario mantener en la memoria el 
programa cargador basico porque a menudo el sistema 
necesitara volver a cargar ei CP/M (mas adelante expli- 
caremos por que). 

Otra caracteristica importante que esta retenida en la 
pagina cero es el area conocida como TFCB (transient 



file control buffer: buffer de control de archivos transi- 
torlos). En el capftulo anterior descubrimos que cuan- 
do el usuario pide que se llame un archivo desde disco, 
el CCP prepara en la memoria un b!oque ficticio de 
control de archivo. Cuando el BDOS localiza un archi- 
vo, lo compara con el archivo retenido por el CCP y 
despues pasa mas informacion desde !a pista del direc- 
torio al CCP. Esta informacion esta almacenada en et 
TFCB. 

Entre las secciones de la pagina cero y el CCP hay un 
area de memoria denominada TPA (transient program 
area: area de programas transitorlos) . Se trata de la 
zona que es como el espacio de trabajo del CP/M. 
Como hemos visto, cuando se somete una instruccidn 
al sistema operative, el CCP primero busca una pareja 
en la lista de las instrucciones residentes retenidas en 
el area CCP. Si no esta entre ellas, el CCP da por senta- 
do que la Instruccidn estransitoria y le ordena al BDOS 
que la localice. En el supuesto de que la instruccidn 
este residente en el disco de sistema, el BDOS cargara 
una copia del programa en cddigo maquina en el prin- 
cipio del area de programas transitorios (TPA), que 
siempre esta en la posicion hexa 100 (el comienzo de 
la pagina uno en el mapa de memoria del ordenador). 
Una vez cargada, la instruccion estd lista para ser eje- 
cutada, lo que se realizara de forma automatica. 

Las especificaciones para utillzar el CP/M afirman 
que se requiere un minimo de 16 K de RAM. Esta can- 
tidad de memoria es realmenle grande, considerando 
que el CP/M esta destinado a permanecer en un segun- 
do piano mientras se esten ejecutando otros progra- 
mas. Afortunadamente, los programas CP/M propia- 
mente dichos ocupan una pequena cantidad de esta 
memoria. La mayor parte de la RAM queda reservada 
para uso de la TPA, la cual (si usted esta utiltzando el 
minlmo) terminara en ta direccion hexa 2900. Puesto 
que en CP/M la pagina cero esta reservada para las 
variables del sistema, se emplearan 7 K para la TPA, 

Sin embargo, la mayorta de las instrucciones transi- 
torias ocupan solo entre 2 y 3 K de memoria. El resto 
de la TPA se utillzar^ para todos los archivos sobre los 
que necesite trabajar la instruccidn transitoria. Por 
consiguiente, a la TPA solo la emplean la instruccion 
que se este ejecutando y los archivos sobre los cuales 
se requfere que actue la misma. 

Eilo le plantea un problema al sistema. SI tenemos la 
cantidad minima de RAM, que son 7 K de espacio de 
TPA libres, y se utilizan 3 K para la instruccidn transito- 
ria, nos quedan apenas 4 K para cualquier archivo 
extra. Esto apenas si es sufictente para un programa de 
tamaho moderado, menos aun para archivos de texto 
extensos. En el capitulo anterior comentamos que un 
archivo CP/M puede tener hasta 16 K de longitud. Por 
supuesto, una forma de abordar el problema consiste 
en ahadir memoria extra. Los banco s extras de RAM 
que se anadan al sistema se le asignaran a la TPA, 
hasta una cantidad maxima de 64 K, que es la que el 
CP/M puede direccionar di recta mente. Por lo tanto, 
el tope del CP/M se elevara en 4000 hexadecimal por 
cada 16 K adicionales. 
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Pero supongamos que no podemos anadir la memo- 
rra extra requerida. ^^Como consigue el CP/M llevar a 
cabo esta tarea con menos de la memoria necesaria 
para eflo? La respuesta es, simplemente, que tocfo so- 
breflujo proveniente de la TPA se sobreescribe (o su- 
perpone, en la jerga del CP/IVl), sobre el CCP, Esto no 
es tan drastico como parece. Por un lado, cuando se 
esta ejecutando una Instruccion no se requiere el CCP 
El CP/M, al igual que todos fos sistemas operativos, no 
aceptara ninguna otra instruccion mientras este ejecu- 
tando la anterior. Por consigulente, no es preciso que 
este presente el CCP para interrumpirlas ni para ejecu- 
tar instrucciones residentes innecesarias. 

Por supuesto, una vez terminado el programa de 
instruccion, sera necesario vofver a cargar los progra- 
mas CCP con e[ objeto de preparar al sistema para 
aceptar la instruccion srguiente. Esto se efectua como 
el ultimo acto de una instruccion transitoria, y el pro- 
grama llamara luego a la rutina de carga de postaones, 
que se encuentra en la posicibn hexadecimal 0005 de 
la pagina cero. Esta direcciPn es el puoto de entrada al 
sistema operativo que vuelve a cargar en la memoria el 
modulo CCP, listo para recibir la siguiente instruccion. 

Cuando se invento ef CP/M, e! hardware disponibfe 
(los chips de RAM, en especial) era muy costoso y, 
por consiguiente, eran pocas las maquinas equfpadas 
con mas de 16 K como estandar. De ese mocfo, todo el 
software disehado para ejecutarse en esas maquinas 
habia de hacerse a fa medida para adecuarlo a las res- 
tricciones del hardware 

Con el fin de lograr que et CP M fuera un OS io mas 
amplio posfbie Dara el espaDo de fnemona dtsponibie, 
nLidierorr d€ sunerponefse algy/ios cofoponenles. 
Dado que se reqyena que tanto el BIOS como el BOOS 
estuvieran residentes de forma permaneme. los mis- 
mos no se podian utilizar. Muchas de las instrucciones 
se valfan de ellos para acceder a archives o efectuar 
alguna operacron de entrada o salida (tales como escri- 
bir un archivo por una impresora o visualizarlo en una 
pantalla). Por tanto, se decidid que el CCP y la TPA 
ocuparan'^ la misma zona de memoria, dado que el 
uno no se podia utilizar al mismo tfempo que el otro. 

La zona CCP podia ser superpuesta por un programa 
transitorio; una vez ejecutado, este, se volvia presandible y 
el CCP se podia volver a cargar con seguridad. 

Parece que ahora que las maquinas de gestidn ban co- 
menzado a adoptar procesadores de 16 bits, el sistema 
operativo este llamado a una inevitable desaparicion. Pero 
aunque los sistemas operativos de 16 bits tales como b\ 
MS-DOS dominan en la actualidad el mercado de gestidn, 
parece que el micro de ocho bits basado en el Z80 tiene aun 
por delante mucbos artos de uttlidad. 

Con trecuencia los sistemas de micros personales y 
los pequenos de gestron no necesitan la potencia de un 
procesador de 16 bits, pero sus unidades de disco exi- 
gen un OS. El CP/M, que durante tanto tiempo ha sido 
el estandar de facto para sistemas operativos de disco 
de ocho bits, parece una opcibn ideal para los fabrican- 
tes ansiosos de proporcionar una ampiia base de soft- 
ware sin elevar sustancialmente los costos de desarro- 
lio. Algunos fabricantes de ordenadores ya ban elegido 
este camino, en particular Memotecb y Amstrad. 

Los usuarios del Amstrad tienen una dificultad espe- 
cai. Ef CP/M se desarrolld para discos de 8 pulgadas y 

5 1 4 pulgadas, y Amstrad ha optado por el formato 
-'tscni de 3 pulgadas. Esto significa que habria de 
^".scurrir algun tiempo antes de que aparezcan en el 
~'C5dD mucbos paquetes basados en CP/M para los 
-s^^'uS oe'i Amstrad. 



Otro problema del ordenador Amstrad es que el 
apoyo de su pantalla deja solo 38 K de memoria lib re 
para programas, que es muchisimo menos de lo que 
requieren algunos de los programas CP'M mas recien- 
tes. Por consiguiente, a menos de que algunos de 
estos programas se puedan adaptar para caber en el 
espacio de memoria disponible, los usuarios de esta 



maquina pueden encontrarse con tener que utilizar 
software anticuado. No obstante, al "ir bajando en el 
mercado", parece que el CP/M de ocho bits continuara 
generando una gran base de consumidores. 

Esto no equivale a dectr que Digital Research haya 
abandonado su mercado de 16 bits. Pero a la empresa 
las cosas no le han resultado facsles, porque abora hay 
muchos mas competidores de los que habia cuando 
Gary Klldall desarrofid el CP/M, Una posterior version 
del sistema, CP/M-86, fue el primer intento de Digital 
Research por introducirse en el mercado basado en los 
cbips Intel 8088/6. Sin embargo, esta version experi- 
mento el rechazo genera! del mercado, que opto por la 
compatibilidad con IBM y el estandar MS-DOS. 

Sin embargo, mas recientemente Digital Research 
ha lanzado una version multiusuarios del CP/M deno- 
minada Concurrent CP/M. Este OS lo puede utilizar un 
unico usuario o bien varies ordenadores enlazados 
entre si en forma de red. Quiza sea demasiado pronto 
para decir si el Concurrent CP/M obtendra el mismo 
exito que su predecesor de ocho bits, pero lo que si 
parece seguro es que el CP'M esta r a en un primer 
piano, en una forma u otra, durante muchos aiios. 



En el MP/M y el CP/NET 

Aqui nos hemos dedicado exclusivamente a la 
version 2.2 del CP/M, la version mas comun del 
sistema operativo. Esta version esta disehada 
para aplicaciones de un unico usuario y una unica 
maquina. Sin embargo, Digital Research ha 
desarrollado otros (conocidos como ''sistemas 
multitareas' ) basados alrededor del CP/M para 
utilizar con numerosas maquinas y usuarios. Un 
sistema multitareas es uno en ef cual la CPU 
comparte su tiempo (en virtud del 
fraccionamiento del tiempo) entre varies usuarios 

0 perifericos. El OS que se ha desarrollado para 
permitrrque numerosas personas utilicen la 
misma CPU se denomina MP. M [multi- 
processing monitor control program) . Utilizando 
este sistema, un unico ordenador se conecla con 
hasta 1 6 terminates diferentes, todos fos cuates 
son completamente independ*entes enlre si . Una 
persona situdda ante un terminal no fendra 

CO ^ : ? ^ : a atg jna de ta exIsfcEncia de los otros 
us. r : s 3ode<^ tiacer frefite a todos estos 
"■- : jtioenelMPM varias 

01 zi.z i: : ifadas paraayudaracompartir 
ya sea los arcnwos o los d^spositivos del sistema 
como las impresoras- Otro desarrollo del sistema 
CP/M que ha introducido Digital Research es el 
CP/NET. Esta es una version del CP.'M para red 
que permite que varios usuarios de maquinas 
diferentes se comuntquen entre si. A diferencia 
del MP/M, el CP/NET no requiere un sistema 
maestro con terminales subordinados, si bien hay 
un nude maestro que controla la red. Ademas, 
este nudo maestro debe operar bajo MP/M y tener 
conectadas unidades de disco 



Aplicaciones/lnteligencia artificial 




Codigo genetico 



Continuamos nuestra 
investlgacion acerca del 
aprendizaje de las maquinas 



Cuando los cientificos dedicados a! e studio de la 
inteligencia artificial observaron la naturaleza en 
busca de ideas en las cuales basarse para disenar 
sistemas que se mejoraran a si mismos, tres cosas 
captaron su atencion: el sistema nervioso, el siste- 
ma iiimunologico y ei proccso cvoluiivo. El sistema 
nervioso, en especial el cerebro humano, es un me- 
canismo de aprendizaje maravillosamente eficaz. 



ContemplandQ las estrellas 

El ma pa interplanetario d& los asistentes a las liestas muestra las 
rutas hiperespaciales entre los planetas y su$ respectlvas 
duraciones. Se puede viajar entre planetas que no esten 
Inlerconectados directamente por rutas hiperespaciales, pero los 
vlajes reafizacfos sin usar las rutas de la red consumen 1 000 
unidades de Nempo cada uno. La tarea del programa GENE 
consiste en hallar las rutas mds rapidas a traves de la red, 
visitando cada uno de los veinte planetas 



Pero sus operacioncs todavia son misteriosas: 
hemos de comprenderlo lo suficientemente bien 
para poder copiarlo, Se puede dedr que tambien el 
sistema de respuesta inmunologica del cuerpo apren- 
de, en tanto y en cuanto Uega a distinguirse a si mismo 
de otros, de modo que puede atacar y destruir cuer- 
pos extranos. En el transcurso de una vida aprende a 
remnocer millones de millones de proteinas diferen- 
tes y, sin su sorprendente adaptabilidad y fiabilidad, 
moririamos rapidamentc. Y se trata de un sistema de 
mcmoria por repeticion mecanica: sus poderes de ge- 
neralizacion son rudimeotarios. 

El sistema evolutivo es, ciertamente, eficaz como 
medio de crear organismos cada vez mas avanza- 
dos: puede que sea un poco lento para nuestros 
fines, pero puede ser acelerado en la simulacion 
por ordenador. Por sobre todo, se lo comprende 
relativamente bien y es suficientemente simple 
como para que lo copiemos con ciertas esperanzas 
de exito. 

En el capitulo anterior explieamos que un enfo- 
que ''darwiniano" al aprendizaje de la maquina 
tenia algunas ventajas teoricas, Ahora veremos lo 
que sucede cuando lo ponemos en practica. 

Para ilustrar ei aprendizaje de la maquina utili- 
zando un algoritmo evolutivo, analizaremos una 
version del "problema del viajante de comercio" 
(TSP: traveliing salesman problem) ^ Este problema 
suele plantearse en el contexto de las 48 capitales 
de estado del sector continental de Estados Unidos 
(excluyendo Alaska y Hawai). El vendedor posee 
una tabla de las distancias entre las ciudades y ha de 
visitar cada una de las ciudades una sola vez y re- 
gresar a su pun to de partida. El objetivo es minimi- 
zar la distancia total recorrida. 

Parcce enganosamente simple, jpeio la cantidad 
de posibles recorridos o rutas es (N-1)!, donde N es 
la cantidad de ciudades. En un recorrida de 48 ciu- 
dades, las primeras par ad as posibles son 47, segui- 
das de 46 posibles segundas paradas, seguidas de 45 
posibles lerceras paradas, y asi sucesivamentc. En 
realidad, jhay mas rutas potenciales que atomos en 
el universo! Aun con 20 ciudades a visitar, ;la canti- 
dad de recorridos potenciales es de mas de ciento 
veinte millones de millones! 

Existen varios enfoques al TSP- Se lo puede tra- 
tar como un problema de busqueda^ empleando 
procedimientos similares a los que describimos en 
el segundo capitulo de esta serie. Tambien se lo 
puede manejar con metodos Monte Carlo de acier- 
to o error aleatorio. Sin embargo, vamos a seguir el 
poco ortodoxo enfoque de considerarlo como un 
problema de aprendizaje. Queremos un metodo 
que explore la enorme cantidad de soluciones po- 
tenciales de una forma economica. No esperaremos 
que nos ofrezca la solucion optima, pero si espera- 
mos hallar una buena solucion. 

El programa que ofrecemos aqui, GENE (gene- 
ral evolutionary network explorer: explorador de 
redes general y evolutivo) es un sistema de aprendi- 
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zaje adaptado especificamente para explorar redes 
y desaiToliar reglas que evolucionen para producir 
rutas cada vez mas economical a traves de la red. 
Antes de pasar a describir dc forma detallada como 
funciona el programa, necesitamos desarrollar una 
red a explorar. Podemos tomar un buen ejamplo de 
The gatecrasher* s guide to the galaxy (Quiz de la 
galaxia para inmisos), que iista. entre otras cosas, 
todos los planetas exisientes en im radio de 80 aiios 
luz en tos que tisted pnede encontrar una fiesta ani- 
mada el sabado poria nodie. Coo la aviida de este 
mapa podemos transformar el TSP en ei PPCD 
[planetary party crawl dilemma: dilema de la ronda 
por las juergas interplanetarias), en el cuai el obje- 
tivo es hacer acto de presencia en las 20 fiestas y 
regresar, esa misma noche, a su punto de partida. 

El mapa ilustra las principales rutas hipercspacia- 
les de nuestra localidad galactica, con los tiempos 
que lleva el viaje entre cada parada. A los nudos 
que no est an conectados por supercarretcras hiper- 
especiales se les otorga de forma arbitraria un 
costo de recorrido de 1 000 unidadcs de liempo. 

Aprendizaje evolutivo 

En un sistema de aprendizaje evolutivo clasico hay 
una poblaci6n de estructuras que se tratan como 
"seudoorganismos". Cada una de estas estructuras 
(a las que nos referiremos como reglas) define una 
solucion potencial al problema cn cuestion, Tam- 
bien se utilizan para propagar nuevas estructuras 
(la descendencia) en formas que imitan algunas de 
las caractensticas de la reproduccion biologica, 
tales como la transmision de algunas de las caracte- 
risticas de los padres a sus hijos. 

Dcpendiendo de su rendimiento en la tare a, se 
seleccionan reglas que es probable que sobrevivan 
durante el mayor tiempo y que tengan las mayores 
probabilidades de reproduqirse. En GENE, los or- 
ganismos/reglas tienen una estructura muy simple. 
Se retienen como series en el programa cn basic. 
Por ejemplo, esta: 

AS-JHMNCDKTSFRQEGILOP 

en donde cada letra representa un planet a de la red 
pfeneiaria y se produce una sola vez en toda la 



A G H I B C D F E J 
H G A B F J I C D E 



Un buen v^stago 

GEt4E cria nuevas rutas de la red 
emparejando dos buenas rutas 
ya estfstentes. Dado que estas 
estan retenidas como series en 
BASIC de 20 caracteres, el 
proceso de produccion de un 
deseendier;te es esencialmerite 
una sencilla manipulaci6n de 
series. En este ejennplo, setoma 
de ono de los padres (el 
donante) lasubserie M[BCDyse 
empalma con el otro padre {el 
receptor), asegurando de que no 
sedupliqueninguna letra. Este 
proceso asegura que, al igual 
que en los verdaderos cruces 
geneticos, las caractensticas de 
los padres pasen asus 
descendlenles 



Ingenien'a alfabetica 

Primero se eliQen al azar dos estructuras padre 
tomadas de entre las que iian sobrevivido al 
proceso de seleccion (lo que implica. portanto. 
que los padres deben ser mas aptos para la tarea 
que la media). Una de estas estructuras se 
denomina tkimnte (R1 %) y la otra " receolor'* 
(R2 %) (verlfneas 3030-3060). 

Se toma ai azar un trozo de " material genetico ^ 
(en realidad, una subserie) del donante y se coloca 
en la serie SS. Luego se llama a la subrutina 3300, 
que empalma el trozo del donante con el receptor, 
tomando todos [os caracteres de la serie del 
receptor {excepto aquellos ya presentes en el 
donante) por el orden en el cual aparecen. El 
proceso de emparejamiento es, por tanto, 
asimetrico. Emparejar X con Y no produce el 
mismo resultado que emparejar Y con X, aunque 
las posi clones aleatorias PI % y P2 % sean 
identicas. 

Veamos someramente un ejemplo a escala 
reducida. Dados los dos padres: 

Donante: 
Receptor: 

podemos seleccionar la subserie 

H I B C D 

como la contribucfon del donante, y empalmar las 
letras restantes del receptor para producir: 

H I B C D G A F J E 

como resultado. Cabe consignar que esta no es la 
unica forma posible de cruzar un par de reglas- 
series. Quiza usted pueda pensar en otras. Pero 
asegura (como en los verdaderos cruces geneticos) 
que trozos de informacron de ios padres pasen a la 
siquiente generacion. Tambien asegura que cada 
emparejamiento produzca un descendiente 
"valido", Esto slgnlfica que la rutinade fimpleza de 
la Itnea 4000 del programa GENE no tiene razon de 
ser, pero la incluimos aqui para ofrecer un esbozo 
completo de ^ste. 
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scric. For tanto, cada serie de 20 caracteres es una 
permutacton de ios planetas a visitar y define una 
rata determinada alrededor de la red. 

Es simple evaluar cada serie sumando la distancia 
necesaria para visitar los planetas por el orden espeei- 
ficado. Cuanto menor sea la distancia combinada para 
complctar el recorrido, mejor sera la ruta. 

Disponemos que las series que sean peores que 
la media se supriman af cabo de cada "generaei6n". 
Entonces se plantea el problema de cdmo reempla- 
zarlas> Obviamentc, si scguimos la analogia biolo- 
gica, lle%^ariamos a cabo algo similar a la reproduc- 
Cion sexual para sustituir las series descartadas. 
Pero la reproduce ion sexual no es el unieo medio 
de generar series nuevas. Alrededor del 8 % de las 
scries supervivientes sufren mulaeiones. 

La submtina de mutacion, que empicza en la 
linea 3500, se llmita a realizar una cierta cantidad 
de cambios al azar. Sin embargo, la mutacion no es 
d operador genetico primario, sino un operador de 
fondo que ascgura que el sistema no sc quede bio- 
queado cn un nivel optimo local Las mejoras que 
se pueden conseguir cn una generacion succsiva 
mediante metodos reproductivos puramente sexua- 
les podrian tener un li'mite. 

Si usted expc omenta por si mismo con el progra- 
ma, descubrira que el cstandar medio de la pobla- 
cion de reglas si mejdra con cl ticmpo. aunque csta 
progresion no es continua, porque hasta las mcjo- 
res reglas a la larga pueden '^morif . El programa 
en rcalidad hace una trampa, al prcscrvar la mejor, 
regla y sustituirla solamente por una aim mejor. 

Usted puede ''afinar" el sistema jugando con el 
coeficiente de muerte representado en la linea 
2520. En esta linea, el elemento aleatorio establece 
el eoefieicnte de super\'ivencia de las rcgias buenas 
de una generacion a la siguiente en el 88 pero 
este se puedc altcrar. Asimismo, puede regular el 
coeficiente de mutacion en la Imea 3520, asi como 
introducir operaciones de mutacion alternativos. 
tales como la inversion complcta de una regla-scrie. 
Subsislen dos preguntas: 

1 . ^,Cuan bueno es el metodo? 

2. 1^ Por que funciona? 

La priniera pregunta se puede responder a traves 
de la comparacion con un enfoque Monte Carlo 
puro. l odos los algoritmos geneticos se modifican 
de hecho por procedimientos Monte Carlo. En un 
metodo Monte Carlo puro, se generan soluciones 



El programa GENE 

Las principales eslructuras de datos que se utilizan 
para implementar nuestro sistema de aprendizaje 
evolutivo corresponden a las siguientes matrices: 

NOMBRE${TAMAN0%) Nombres de los nudos de 
la red 

ENLACE%{TAMANO%, Distancia entre los nudos 
TAMANO%) 

NX%(TAMANO%) Utilizada en la rutina de 
emparejamiento 

RS{NR%) Las reg[as propiamente 

dichas (series) 

RV(NR7a} Los vaiores de cada regia 

NX% se emplea cuando se empalma la 
1830 



aleatorias y se conserva la mejor solueidn, todo ello 
deniro de un limitc de tiempo especiftco. En este 
ejemplo, ello supondria probar una regla-serie 
a lea tori a, evaluarla, conserva rla si es la mejor dis- 
ponible hasta ahoru, y someterla a una mutacion. 
El proceso repitiria Tod as las veces que se deseara. 

Si usted describe un programa como 6ste, descu- 
brira que rapidamente halla una solucion bastante 
buena y que, a mcdida que transcurre el tiempo^ se 
va mejorando a un nivel menor. Es probable que, 
al cabo de 20 000 intentos, la mejor solucion sea 
solo marginalmente mejor, en el mejor de los 
casos, que la solucion tras 10 000 intentos. De 
forma global, los algoritmos geneticos mcjoran 
para duracioncs mayores y si consideramos el por 
que de esto nos aproximaremos aun mas a la res- 
puesta para la segunda pregunta. 

Un metodo Monte Carlo puro es esencialmente 
una busqueda cicga. Un algoritmo genetico, por el 
contrario, se vale de lo que encuentra para conti- 
nuar la busqueda. Los patrones especificos que 
contribuyen a un huen rendimiento se preservan y 
sc propagan a traves de la base de eonocimiento (la 
poblacion de reglas) y se vuelven a combinar en 
contextos ligcramente diferentes. De hecho, la bus- 
queda se dirige preferentemente hacia regiones del 
''cspacio (multidimensional) del problema" en 
dondc sc hayan hallado buenos resultados. A 
menos que la funcion de evaluacion sea extraordi- 
nariamente diseontmua, cabe esperar que esto con- 
duzca a una razonable estrategia de busqueda. 



contribucion del receptor a la nueva regla que se 
esta creanda (rutina 3300), de modo tal que cada 
nudo/ietras aparezca una vez en ei descendiente. 

R$ retiene la actual pobiacion de regias como 
series de longitud TAIVIANO%. Cada una define una 
recorrido particuiar, 

RV da el "valor" de cada regia correspond iente a 
la distancia del recorrido que representa. Si 
RV(R%)=0, la regla R% estara "muerta" y sera 
necesario sustituirla en la siguiente generacion, 
(No son Bosibles recorridos de costo cero,) 

TAMANO% se puede aiterar si usted desea 
probar mapas de redes diferentes, en cuyo caso 
necesitara aiterar desde la iinea 8000 en adelante. 
NR% se puede ajustar para ver el efecto de una o 
mas reglas sobre la poblacion 



10 REM 

11 REM ■ GEME 

13 REM — 

100 GOSUB 1000 : REM preparar matriz mapa 

101 G%=O:SN%=0 

105 B=TAMANO%"1000: &$^"" 

1 1 0 INPUT "Cuantas genoraciorifis?" , MG% 

111 GOS UB 1 700 : REM regias i nictales . 

1 1 5 IF SK14-0 THEN INPUT "EJ nudo de pallida es el Ho. "M% 

1 20 REiVI ' ■ " eiCLE PRINCIPAL DEL PROGRAMA ' * * ^ 

130 G%-G%+1 

140 PRINT "6eneraci6fi ";G% 

150 GOSLJB200O:REMevaluarre^Jas 

1 60 GOSUB 2500 : REM malar reglas malas 

1 70 GOSUB 300O : REM emparejar reglas buenas 

ISO GOSUB 3500: REM ETiLilaciones 

190 GOSUB 4000: REM limpiez'a 

200 IFG%<M6%THEW120 

220 GOSUB 5OD0 : REM vol car reglas nucvas 

250 EMD 

999 " 

1000 REM — RUTIMA PARA PREPARAR MAPA- RED: 

1001 TAMANO%-20;NR%-2^ 

1 01 0 01 M NOM B REI (20) , EN LACE% (20, 2Q) 

1011 DIM NX%tTAMAftO%) 

1012 DIMRS(NR%).RV(NR%} 

1 01 3 REM reglas y valores de las reqias 
1015 F0R]%=1 TOTAMANO'!^ 

1020 F0RJ% = 1 TOTAMANO% 



1022 EhLACE%il%,J%)=1000 : REM defe( 

1023 IF(%=J%THEN ENLACE%(l%,J"/;»}= 
1025 NE)fT:NE!a 
103O NC%-a: L%=0 

1032 F0RI%=1 TONR%!RV(l%)-0:NEXt I 

1033 RESTORE 

lO^O REM LEER NOMBREYNUM DE| 
1050 READNS,ID% 
1035 PRINT NSJD% 
1O60 1FID%< >OTHEN GOSUB 1500 
1070 IF ID%<>0 THEN 1040 
1080 PRIWTNC%:" LeCTURAPOSIClOWESl 
10S8 PRIWT L%; ■' enlaces no por defeclo.' 
1090 RETURN 
1100 

1500 REM-NUOOJNOIVIDUALYCONEX 
1510 NC%-NC%+1 
1520 IFID%<>NC%TKEN PftlNT"ATEMa 
1530 NOMBRES(NC%J=NS 
1550 REM *^**RREPARAR MATRIZ DlSTjy 
1560 READNf%,m 
1570 ENLACE%[ID%,NI%)=NT% 
15fla REM los enlaces cero no importan. 
1590 L%-L%+1 
1600 1FNI%>0THEN155fl 
1610 RETORM 
162D : 

1700 REM — Reglas ficticias inicfal&s: 
1710 SS=LEFT$("ABCOEFGHIJKLMNOP 
1715 GOSUB 1 780 ; REM leer archive si b 
1720 FORR-^-ITONRT. 
1730 RS{R%)=SS 
1740 PRiNTSS;R% 
1750 r%= INT(F1NS{1 ) " TAMANO%+ 1J: J%=^ 
1760 GOSUB 6600: REM TRUEQUE 
1770 NEXT 
1775 RETURN 
1777 : 

I7fl0 IMPUT AfChivo de neglas viejo (RE 
1790 IF RF$-^^7HEN RETURN 
1800 F%^OPENUP(RFS) 
1610 INPUT^F%, BI, B. SN% 
1620 CLOSE #f% 
1S25 S$-BS 

1530 REM soloeldearfiba 
1040 RETURN 
1S50 : 

2000 REM — Rutina de evaluacion de remiss I 
2010 T=0 

2020 F0RR%=1 TONR% 

2036 IF RV(R%)<-OTHEN GOSUB 2200 

204O T=T+RV(R%) 

2D50 NEXT 

2060 AV=T/NR% : REM valor medio 
207O PR INT' 'Ma reader medio ^ ^AV 
2080 RETURN 
2100 : 

22O0 REM — Evaluacion de una sola regla: 
2210 SS=RS(R%) 

22 20 P 1 % = SN % 1 R EM nudo de pariida 
2230 GT%- 0 

2240 F0RS%-1T0LEN(Si) 

2250 P2 % - ASC(M 10 S(Si . S% , 1 )) -64 

2260 IFP2%=SN%THEN GOTO 2290 

2270 GT% = GT% + £NLACE%(P1 % . P2'!'*) 

2280 P1%=P2% 

2290 NEXT 

2300 RV(R%) = GT% + ENLACE%(P2% , SM 
2:^10 RETURN 
2320 : 

2500 REM — Ruli-na para matar reglas n 
2510 F0flR^'n=1 TO NR% 
251 5 IF RV(R%) < B THEN B^ RV(R%); I 
2520 IF RV(R%) > AV OR INTfRND(ir 10 

2530 NEXT 
2540 RETURN 
2550 RE!VI — Son meiores los vabres me 
2560 : 

3O00 REM — R utina d e e mpareiamiento 
3010 FORR%-1T0NR% 
3020 IF RV(R%)>0 THEN GOTO 3120 
3030 Rl%= INT(RND[1 ) 'NR%+ 1 }:\fm^ 
305O R2 % = I NT( RN D ( 1 ) ' N R% + 1 ): I F RVi ^ 
307O REM " padres "elegidos. 
3075 P2% - f NTfR ND (1 ) " (TAMAN 0% - 1 
3080 P1%-INTtRND[1}'(TAMAN0%-^n ( 
3090 SS - Ml DI (ftS(R1 %) . PI % , PZ% ] 
3100 GOSUB 3300 : REM empaltnar res!o 
3110 RSiR%}^SS 
3120 NEXT 
3140 RETURN 
3150 : 

33O0 REM — Rutina em palm e degenes^ 
331 0 FOR S%= 1 TO TAWANO% 
3320 NX*5i.rS%)-0: NEXT 
3330 F0RS% :^1 TO LEN[3S) 
3340 SX% =ASC(M IOI|SS.S% , 1 )) - 64 
3350 NX%(SX%) - NX% (&X%) + 1 
3360 NEXT 

3370 F0RS%-1T0LEN(RStR2*/u)) 
3380 SX% - ASC^iyil OS ( RS ( R2%J , S%.1 it 
3390 IF NX%(S)(%)>0 THEN GOTO 3436 
3400 S£-&I+MlDS{RS{R2%),S'y<^.l) 
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3410 NX%(SX%)=NX%(SX%H1 
3420 NEXT 
3440 RETJRN 
3450 : 

3500 REM — Rtrtina mutacior: 

3510 FORR%-1TONR% 

3520 IF FtND(100}>8 THEM GOTO 35S0 

3522 SS-RS[R%} 

3525 F0RT%=1TO7 

3530 Rl%-IWT[RNDa)^TAMAN0%+1} 

3540 fi2%-l«T(RND(t)"TAMAN0"A+1) 

3560 I % - R 1 %: J % = ^2% iGOSO B 60DO : RE M TR UEQU E 

3565 NEXTT% 

3570 RJ(R%)-SS 

3575 flV(R%)^0 

35 BD NEXT 

3590 REM por ahora $ofo trocar. 
3595 REM tambierr nEcesitainversfon, 
3600 RETURN 
3620 : 

40O0 REM — mm de limpieza- 
4010 RETURN 
402O REMficliciaporafTora. 
404O : 

SOOO REM — Irmpresion de resultados: 
5010 PRINT Las njtas son: " 
5020 BR=TAMANO%+1000 
503O R%=0 

5040 FORl%^1T0NR¥fl 
5050 If RV(l%)=0TH£N51(]O 
5060 PRINT l%,RV(l%} 
5070 PRINT BS(I%) 

5080 IF RV(I%)<BRTHEN eR=RV[l%); R%=l% 
5100 NEXT 
5105 AS=GETS 
5110 PRINT 

5120 PRINT-Lan^jofes:" 

5130 PRINT RS(R%),R% 

5131 SS=R£fR%}:GOSUB6400 

5133 PRlNT"Disiancia = ";RV(R%) 

5134 AS^GETI 

5135 PRiNT''Lame(Ordetodas:" 

5136 PRINT BS 

5140 SS-&S:GOSUB64O0 
5143 PR^MT 'Distg^cigS ":& 




56 jC nrV — r^'.'J: 

5510 INPUT -NtjewafCiinK>der]^OfETlJRN SI (ncili^ 

5520 IFRfS=^ *THeNRfTllRN 

5530 F%=OPEWOUT(RFS) 

5540 PRrMT # F%,B1B,SN% 

5550 CLOSE # F% 

5555 REM solo la meior. 

5560 RETURN 

5570 : 

6000 REM ' "* TROCAR DOS CARACTEPES OE S$ " " 
6040 IF l%>J% THtN T%-[%: l%=J%: J%-T% 
6050 XS=MIDi(SS.I%,1) 
6D60 YS=MIDI(SSJ%,1) 
607O SS=LEFTS(SS, l%- 1 ) +Y$+ MIDSfSSJ%+1) 
6080 SS = L EFTS(&S , J % - 1 ) 4 X$ + M I DS[ S$ j%+ 1 ) 
603O RETURN 
610O : 

640O REM VtAJE*'" 

6430 PRINT " 0 '*:NOMBRESfSN%} 

6440 FOR1%-1TOLEN{S$) 

6450 N%=ASC(MIDS(S$,l^»,1))-64 

6460 IFN%<>SN%THENPRINTI%;^' ";NOMeREI(N%) 

6470 NEXT 

6480 PRINTI%;" '•;NOMBRFS(SN%) 
6490 RETURN 
6500 : 

SOOO REM — DATOS PARA MAPA INTERPLANETAREO: 

8010 DATAHELIOSOL, 1 

6O20 DATA2,4J7,30, 20,30. 0,0 

6030 DATA NIKE, 2 

8040 DATA 1 ,4, 3.6, 0,0 

8050 DATA APHRODITE, 3 

8060 DATA 2,6, 5,7,0,0 

8070 DATA LUNA, 4 

808O DATA 5,1, 6,10,0,0 

8090 DATA TERRA FIR MA, 5 

flIOO DATA 3,7, 7,8.6,3, 4,1,0,0 

S110 DATA DEMON KINODOM, 6 

3120 DATA 5,0, 7,1 , 9,1 2, 8,12. 5,10, 0,0 

8130 DATA PHOBIA, 7 

8140 DATA5.8, 9,13, 6.11, 6,1,0,0 

8150 DATA EUREKA, 6 

8160 DATA6,12. 7,11,9,1, 10,16, 11.25, 0,0 

8170 DATA GALILEO. 9 

8160 DATA10J5, 8.1,6,12,7,13, 0,0 

8190 DATA TITANIUM CITY, 10 

82Q0 DATA 9,15, 12,24, 1 1 ,20, 8,16. 0,0 

3210 DATAUM8ftlA, 11 

8?20 DATA 8,25, 10,20, 12,17. 18,28. 0,0 

8230 DATA TRIDENT J 2 

8240 DATA 1 0,24, 1 4,22, 1 3,20. 1 1.17, 18.2, 0,0 
8250 DATA LIMBO. 13 

8260 DATA 12,20. 14,1. 16,48, 15,23, 11,23, 0,0 
8270 DATA SUNSET STRIP, 14 



8280 DATA 12,22, 13,1. 18,25.0.0 
8290 DATA HADES, 15 
83O0 DATA i;j, 223, 16,232,0,0 
S310 DATA TROGSTAR BETA, .16 
8320 DATA 13,48, 17,64, 15.32, 0,0 
8330 DATA MAXfMA CENTAUR 1, 17 
8340 DATA 16,64, 1.30, 19,88, 0,0 
8350 DATA POSEIDON, 18 
8360 DATA 12,2, 14,25. 13,25,0,0 
8370 DATAULTHVIATHULE,19 
8330 DATA 17,88, 20,96. 0.0 
8390 DATA OMEGA SOLARIS, 20 
8400 DATA 1.80,19,95, 0,0 
3410 DATAWINGUNLUGAR,0 



Complementosal BASIC 

El programa GfA/f esta escrito para el BBC Micro, 
Commodore 64: 



Introduzca las siguientes modificaciones: 
1820 CLOSE 2 

5105 GETA$;IFAS=" "THEN 5105 
5134 GETA$;IFA$=" "THEN 5134 
5144 GETA$:IFA$=" "THEN 5144 
5550 CLOSE 2 

Para sistemas de disco anada estas lineas: 

1800 OPEN 2.8,2,RFS+",S,R":F%=2 
5530 OPEN 2.8,2.RFS+",S,W":F%=2 

0 estas para sistemas de cassette; 

1800 OPEN2.1,0.RFS;F%=2 
5520 0PEN2,1.1,RFS:F%=2 

Spectrum: 

Suprima el signo % en todas las variables, sustituya 
NOMBRESO por N$(), EN LAC E% (J por L(,), NX%() 
por N(), Rvp por R(), JAM AN 0% por SI y RF$ por F$ 
en todo el listado, y encierre entre comilias los nom- 
bres de los planetas de las lineas DATA. Introduzca las 
siguientes modificaciones: 

1010 DIM NS(20. 15), 1(20,20) 

1012 DIM RS(NR,20),R(NR),DS(3,25) 

1710 LET S$="ABCDEFGHiJKLMNOPQRST 
UVWXYZ",(TO SI) 

1800 LOAD FS DATA D$() 
1810 LETBS=D$(1) 

1820 LETB=VAL(D$(2)):LETSN=VAL(D$,3)) 

2250 LET P2 = CO D E S$(S TO S) - 64 
3090 LETS$=R$(R1)(P1 TO P2-P1) 
3340 LETSX=CODES$(STOS)-64 
3400 LETS$=S$+R$(RS)(STOS) 

5105 IFINKEY$=" " THEN GO TO 5105 
5134 IFiNKEYS=" " THEN GOTO 5134 
5144 IFI[^KEY$=" " THEN GOTO 5144 

5530 LET DS(1) = B$:LET D$(2)=STR${B} 
5540 LETDS(3)=STRS(SN) 
5550 SAVE F$ DATA DSO 

6050 LETXS=S$(ITOI) 

6060 LETYS=S$(JTOJ) 

6070 LETS$=S$(T0I-1) + Y$+S$(l4-1 TO) 

6080 LET S$ - S$(TO J - 1 ) + X$4- S$(J + 1 TO) 

6450 N=CODES$(iT0i)-64 
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Concluiremos esta serie dedicada al 
PROLOG con una evaluacion de la 
capacidad del lengu^e para 
utilizar sus propios programas 
como datos e ilustrando su 
idoneidad para la programacion de 
inteligencia artificial 

Los japoneses han elegido al prolog 
como 'lenguaje ccntrar' para su 
proyecto de ordenadores dc quinta 
generacion. Ello se debe a dos motivos 
fundamentales: Ijjs terminos del 
PROLOG pueden tener una forma muy 
similar a las ''relaciones" de una base de 
datos relacional, y para los japoneses la 
base de su sistema se considera una 
sofisticada maquina de base de datos. 

En segundo kigar, el prolog es un 
lenguaje ideal para escribir programas de 
inteligencia artificial ( Al) . Ello se debe a 
su capacidad para usar sus programas 
coma datos , y a que su interprcte se 
parece a los "motores de i nferencia" 
de muchossistemas modemos. 

Para ver la utilidad que puede tener 
utilizar sentencias de programas como 
datos, ofrecemos un programa que es 
una sencilla simulacion de un robot 
movil que se desplaza por la habit acion 
de una casa. Este programa ilustra las 
caractensticas mas avanzadas del 
PROLOG y nos dara una nocion del 
aspecto que ticnen los programas en 
este lenguaje y como se coniportan. 

La habitacion se define como un 
con junto de lugares y un conjunto de 
caminos que los unen- Oueremos que 
nuestro robot obedezca instrucciones, 
tales como "ir desde el televisor hasta el 
silldn'', y que encuentrc por sf mismo la 
ruta mas corta. En primer lugar. 
consideremos el objetivo ir(AHl), que 
significa: '*ir desde donde estes hasta AHi 
por la ruta mas corta posible" . 

En el programa hay dos clausulas 
para ir(Alli). La primera es para detectar 
el caso trivial pi ante ado cuando el robot 
ya esta All I, Observe que para esto 
necesitamos un hecho de la base de 
datos (en(pLjerta)), que registra la 
posicion actual del robot. La segunda 
clausula utiliza este hecho para 
establecer una posicion de partida, y 
despues llama a otro procedimiento: 
ir(Lugar1,Lugar2). 

Dado que ir(Lugar1,Lugar2) se puede 
usar se par ado de ir(Lugar), primero 
comprueba que Aqui y Alli scan lugares 



Espacio para moverse 

El sntomo del robot es un conjunto de posiciones 
"conocidas" , que se han entfado como hechos en su 
base de datos. Estas se enlazan mediante un conjynto 
de "caminos'^ a lo Jargo de los cuales se puede 
desplazar y que se al mace nan en e! formato 
"caniino{tv,estantena)\ y asi sucesivamenle. 
En nuestro programa Slmulacidn de robot movit 
ifustramos como ytiJiza el robot este conocimiento 
para trazar un camino desde A hasta B 




que conoce y que Aqui sea en realidad la 
posicion actual. Si falla alguna de estas 
comprobacioncs, el prolog abandon a la 
clausula actual y pasa a la siguicnte. La 
segunda clausula ir(Aqui\Alll) esta para 
trasladar al robot a Aquf en el caso de 
que no se hallara ya en esa posicion. 
Esto lo hace con una ilamada a ir{AqiJi) 
y, cuando esta ha triunfado, con otra 
Ilamada a ir(Alll) . La lectura procesal de 
esta clausula es: "para ir desde (Aqui) 
hasta (Alli) si no estas ya (Aqui), primero 
tr (Aqui) y luego ir (Alli)". La tercera 
clausula para ir( Aqui, Alli) se incluye solo 
para imprimir un mensajc dc error si no 
se conoce ninguno de los dos lugares. 

Elpredicado'Tindall" 

Suponiendo que triunfcn las 
comprobaciones preliminares para el 
primer ir(Aqui,Alll), el siguiente 
subobjelivo sera tindall. Este es un 
predicado que en ocasiones y a esta 
incorporado en el prolog pero que, de 
no ser asf, se puede anadir {al igual que 
el FORTH, el PROLOG sc pucdc ampliar 
facilmente detiniendo nuevos 
predicados, puesto que los predicados 
definidos por el usuario poseen el 
mismo status que los predicados del 
sistema). Findaff pc)see tres argumentos. 
El primero cs un nonibre de variablCj el 



segundo es un objetivo y el tercero es 
una lista de variables (RL). 

Funciona en prolog intentando 
demostrar el objetivo que se le ha dado 
(plan(Aqui,Alli,[],Ruta), en este caso) 
todas las veces que pueda. La variable 
del primer argumento debe concordar 
con alguna de las del objetivo y, cada 
vez que este triunfe, el valor que se 
habia concretado para esa variable se 
anade a la lista del tercer argumento. 

Por ejcmplo, cl objetivo i 
plan(Lugar1,Lugar2,[],Ruta) hallar^ una 
ruta entre Lugarl y Lugar2 y la colocara 
en la variable Ruta. De modo que, en 
este caso, tindall rcdnc todas las rutas 
que se puedan hallar cntrc Aquf y Alli y 
las col oca en una lista. 

Llcgados a este punto, hemos de 
destacar que aun no hemos necesitado 
definir el procedimiento para flndall. De 
hecho, es una practica noiTual cuando se 
programa en prolog desarrollar 
programas de esta forma. Debido a su 
naturaleza declarativa, escribimos 
nuestros procedimientos "de arriba hacia 
abajo", definiendo primero los objetivos 
de aito nive! y rellenando los detalles. 

El predicado shortest(RL,Ruta Corta) es 
otro predicado que todavia no hemos 
definido aqui. Su tarea consiste en tomar 
una lista de listas (Listal) y crear una 
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nueva Usta (Lista2) que contenga solo la 
lista mas corta que encuentre. Puesto que 
todas las listas de Listal son mtas, la lista 
mas cona sera la mta mas corta. 

Hemes llegado a una etapa en la que 
nuestro robot ha planeado la mta mas 
corta para Uegar a su destino; todo 
cuanto resta por haccr es que se 
desplacc hasta alli. Esto se consigue 
mcdiante otro procedimicnto "ficticio", 
caminar(Ruta). Hemos definido caminar 
de modo que simplemente escriba las 
rutas, pero la ruta cn realidad es una 
lista de objetivos del prolog. Estos se le 
podnan haber dado al prolog para que 
los ejecutara como un programa en 
lugar de imprimirlos en la pantalla. Sc 
podria dcfinir el predicado mi rar( Lugar) 
de modo que efectuara una exploracion 
por sensor para localizar Lugar y luego 
hicicra girar al robot, definiendo al 
mismotiempo nnover(Lugar1 ,Lugar2) de 
modo que permiticra que el robot se 
desplazara cntrc los dos puntos. 

Estc programa de desplazamiento lo 
escribe por si mismo el programa 
principal dentro del procedimicnto pfan. 
Esto se hace simplemente. En esencia, 
el algoritmo que utiliza es: para hallar 
una ruta de A a B, primero hallar una 
ruta de A a C, despues hallar una ruta de 
C a B. El procedimiento plan es 
r€cursi\ 0. La prime ra clausula esta alli 
para detener la recursion cuando se 
alcance el pun to de destino (es decir. 
siempre hay una ruta desde A hasta A). 

La segunda clausula es en realidad la 
que hace todo el trabajo. Su lectura 
declarativa es que existe un plan para ir 
desde A hasta B por la ruta R si: 

1 . hay un camino desde A hasta C, y 

2. C no esta induido en la lista ya 
visit ad a, V (luego se anadira C a esta 
lista para impedir que en el futuro se 
avance en crrculo), y 

3. hay un plan para ir desde C hasta B 
por la ruta RL 

Cuando todas estas condiciones son 
verdaderas, la ruta final, R, es la lista 
que contiene un programa para ir de A a 
C aiiadido a la ruta-hasta-ahora 
(re ten id a en R1). Los procedimientos 
recursivos como este son muy dificiles 
de seguir (intente seguirlo median te 
lapiz y papel), pero le confieren al 
PROLOG una extraordinaria concision. 

Para completarlo es preciso actualizar 
la posicion actual del robot, EIlo se 
realiza con los predicados incorporados 
retract y assert. retract(X) suprime de la 
base de datos la primera clausula que 
concuerda con X, y asserta(X) anade a la 
base de datos la clausula X como la 
primera de ese tipo (assertz(X) anade X 
como la ultima). Estos predicados son 
poderosas herramientas para la 
programacion de Al. 



Simulacidn de robot movil 
Version en prolog estandar: 



en(pijerta), 
ir(AIIO:- 
if(All[):- 
ir(Aqui.Alli):- 

ir(Aqui,Alli):-' 

ir(Aqui.AIIO 

plar(A,A,_,R). 
plan(A,B,V,R):- 

canninar{RtJta):- 
decirdbnde:- 



/*la posicion actual de! robots 
en(A[l i), writeC Ya estoy alli i ') , nl ,nl , nL 
en(AquO,ir[Aqui,AI[0. 

iugar(AquOJugar(AI[i),en(Aqui),findall[Ruta,plan(Aqui,AII[Jl,Ruta),^ 

Ft u taCo rta) , ca mi na r( R u taCo rta) , retract{en { Aq u\)], asserta (en ( Af 1 1 ) ) , deci rdo n d e . 

not(en{Aqui}),write('No estoy en ei'),wnte(Aqui),write('de modo que \t€ hasta aiii 
prtmero. ') ,nl, ni , ir{Aqui) jr{Alli) . 

wnte('S6lo puedo visitar los lugares que que exist&n'),nl,ni. 



camfno(A,C),not(member(C,V)),append(C],V,V1).plan(C.B,V1,R1),append((mirar(C), 
mover(A,C)],R1,R). 

write(Ruta) ,ni, ni. /*a def inir por completo luego v 
en(Lugar),write('Estov en ellwnte(Lugar),ni,ni,ni. 



Tuna lista de los caminos que conoce ei robotV /*y una lista de ios lugares que conoce*/ 



camino(estanteria,silidn). 

caminojsilidn.estanterfa). 

camino(estanteria,tv). 

camino(tv,estanteria), 

cannino(tv,a]fombra). 

camino(aifombra.tv). 

camino{aifombra,sin6n). 

camino(si!idn,alfombrai. 

cammo{pijerta.a;fcrT!!:ra'!. 

ca m I n 0 ( aff om ^ri.zu erta . 

car^ " t s cu 

car- -: :] I z : r:--! 



Versicm en Micro-PRoujc: 

(en p uerta) / * ^a posicion actual del ro twt* ' 

(enX) (PYa estoy allit) PP.PP.PP) 
(enY) (irYX)} 



lugar(p uerta). 

lugar(alfombra). 

lugar(tv), 

lugar(estanterta)- 

Iugar(vent3na). 

lugar(sillDn). 



((irX) 
((irX) 
((irXY) 



((irXY) 



((irXY) 
(plan X X x1 Z) 
{(pianXYxZ) 



((camirar Z) 
((decifddnde) 



(lugar X) (lugar Y)(en X) 
(findari I [plan XYOZ)x) 
(shortest X y) 
(caminar y) 

(DELCL [(enX))) (ADDCL ((en Y))) 

(decirdbnde)) 

(NOT en X) 

(P No estoy en el)(PX) 
(Pdemodoir^alli Drimero.) PPPP 
(irX)(irY)) 

(P Solo puedo visitar lugar que se que existe n) PP PP) 

(camino X X1) (NOT member XI x) {append (XI) xxl) 
(planXIYxl Z1) 

(append ({mlrarX1){moverXX1))Z1 Z)) 
{PZ)PPPP) 

(en X) (P Estoy en el X) PP PP PP) 



iaii&innaddn acerca de4 
mSmm M robot la mti^ b\ 
osuam ef) l3 t»ase de datos 
del PBOtOG- El pRotOG utitiza 
^ pfitceftimlanto 
fr{lugar1iugar2) pan 
consfruir una mta desde A 
tiasta B Jo que hace 
hailando primero una ruta 
dasdeAaCy lue§o otra 
desde C hasta B. Observe el 
empleo del sfmbolo de 
subrayado como un 
argumento dentro de ia 
clausula p1an(A,A»_,8). El 
sfmboio sepuedeempJear 
en PROLOG como una variabie 
^nonima o m^sc^n para fa 
cual no se concretar^ ningdn 
valor cuando se ejecute la 
clausula. En este caso en 
particular, la variable 
anonimase utiliza como 
parte de una clausula que 
existe para mostrar que 
siempra hay una ruta desde 
A hasta A 



/* una lista de los caminos que conoce el robot*/ /*y una lista de los lugares que conoce"/ 



(camino estanteria silldn) 
(camino sillon estanteria) 
(camino estanteria tv) 
(camino tv estanteria] 
(camino tvalfombra) 
(camino alfombra tv) 
(camino alfombra sillon) 
(camino sillon alfombra) 
(camino puerta alfombra) 
[camino alfombra puerta) 
[camino ventana sillon) 
{camino silldnventana) 
[camino ventana estanteria) 
(camino estanteria ventana) 



{lugar puerta) 
[lugar alfombra) 
[lugar Iv) 
(lugar estanteria) 
(lugar ventana) 
(lugar sillon) 
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Programacidn/Juego de simulacidn 



El Nuevo Mundo (III) 



Concluimos nuestro proyecto 
ofreciendo la ultima parte del 
listado 



El program a, aunque escrito para el Commodore 
64, se puede ejecutar en ordenadores Amstrad con 
la introduccion de unas pocas modificaciones me- 
nores. Todos Ids PRfNT CHR$(147) se deben sustituir 



per CLS. Todas las lineas que aguarden una pulsa- 
cion de tecia, como: 

< n.^ Imea > GET l$:IF l$= ' THEN < n." Iinea > 
se deben reemplazar por: 

< n." Iinea > l$=" WHILE l$=" ":I$-INKEY$: 
WEND 

Por ultimo, para que sc seleccione !a modalidad de 
visualizacion en pantalla a 40 columnas se debe in- 
sertar la sigoiente Iinea: 

5 MODE 1 




6530 REM BOTE SALVAVIDAS 

6535 lFM(1)-1T>iEN RETURN 

6536 PRINTCHRI(147) 

5550 S$= "SE HA AVISTADO JN BOTE SALVAVIDAS* ":(30SUB 9100 
6552 SS= " MAVEGANOO A [A DERIVA A LO LEJOS' " :GOSJB 9100 
6554 PRIWT:GOSUB9200 

6556 S5=-A TRAVES DEL CATALEJO VES' ":GOSUB 9100 
655B SS=-^QUECONTI£NE:'":GOSUB9100 
6560 PRIhlTiGOSUB9200 

6562 £$="4PCftSONiAS*":GOSJB9100 

6663 G0SUB9200 

6664 SS= " Y UN GRAM CG FRE ! * " : G0SU6 91 00 
5566 PRtNT:60SLJB9200 

5566 ALTtRAS TU RECORRfDO* "iGOSUB 9100 

6570 SS= " PARA RECOGERLOS * " :GOSUB 91 00 
6572 SS^-'TARDARAS DOS DIAS MAS" ":GOSUB 91 00 
6574 PRINT: GOSUB 92100 

6S76 SS= 'QllERESRESCATARLOS (S/Mr":GOSUB9100 
6678 INPLmS:IS=LEFI(l$,1} 

6563 IF l$<>"S'' AND ISo^N" THEN 6573 
5586 IFIS- 'S^THEN6€00 

S58fl PRINT:GOSJB9200 

6590 SS= "EL BOTE SALVAVID AS DESAPARECE . , . / " iGOSUB 91 00 
6592 PRINT:GOSUB92I10 
6594 SS-KS;G0SJB910O 
6596 GETIS:IFtS='' "THEN 6596 

6599 RETJRN 

6600 PRINT:G0SUB9ZDD 
6610 EW=EW+2/7 

6625 IFCNO16TKEN 6630 

6627 SS='^NO PUEDES RECOGERLOS" ":GOSLfB 9100 

6626 SS="PORQUE NO TIENES LUGAR EN EL BARC0*'':GOSJB 
9100 

6B2& GOTO 6592 

6630 X=16-CN:IF X>3 THEN 6635 

6632 Si="EH EL BARCO SOLO TiENES LUGAR PARA"' iGOSUB 
9100 

6633 PRINT X: PERSON AS MAS ' 

6634 PRINT: GOSUB92100 

6635 S$=''RECOGES;*":GOSU'BgiOO 
6638 X-0 

6640 F0RT=1T016 

6645 IFTS(T.1)<>0THEN6e79 

6653 X-X+1 

6665 I F X>4 Tti EN T= 16:00106679 
6660 CN =CN+1 
6665 TS(T,1)=INTfRND(l)*5j+1 
6668 TS{T,2)=INT{RND0)*5Q) + 50 
6670 PRINT" r';CS[TS(T.1)) 
6679 NEXT 

6660 PRINT: G0SUB92O0 

6662 SS = EL COf RE OONTIENE: ' " :GOSUB 91 00 

6665 F0RT^1T04 

6690 >;=INT[RND[1)M0}+10 

6692 PRI NT X; U$(T) : "S DE " :PS(T) 

6693 IF PA(T) = - 999 THEN PA{T) ^ 0 

6694 PA(T)=PA(T)+X 

6695 NEXT 

6699 GOTO 6592 

Quizas una epidemia haga presa de la Iripulacion. 

6700 REMAZOTEOELAEPIDEMIA 

6705 IF M(2)-l THEN RETURN 

6706 PRlNTCHRi{147} 
6710 M(2)-1 

671 2 SS= "SE DECLARA U NA EPIDEM I A" " GOS JB 91 00 
6714 PRINT:G0SUB92D0 



6716 X^l 

6716 FORT-1T0 76 

6720 IFTS(T.T)-2 ANDTS(T,2J<>0 AND TS(T,2)<>-9^ THEN X 

-0:T-16 
6722 NEXT 
6724 Y=1 

6726 IF 0A(1)<>Q AND 0A(1 )<>-999 THEN Y=0 
6730 X-({X+Y}nO)+5 



...y que lostripulantes puedan o no sobreponerse a la 
enfermedad dependera de que usted haya contratado 
a un medico y comprado medicinas antes de zarpar 



6732 !S= "TIENES " : I F X=0 AND Y = 0 THEN 6740 

6734 IFX=1 T}1ENSS="SINNINGUNMEDJCO*":6OSUB9100:IS"NI " 

6736 IFY=1 THEN SS=IS+'^NfNGUNA MEDICINA*":GOSUB 9100 

6740 SS="MUCHOS DE LOS TRJPULANTES ESTAN AFECTADOS' " :GOSUB 91 00 

6745 PRINT; GOSUB 9200 

6750 X-0 

6755 F0RT=1T016 

6756 IF RN0(1J<.3 THEN 6775 

6763 I F TS(T . 2) -0 OR TS(T, 2)= -999 THEN 6775 

6766 TS(T,2UTS(T,2)-Z 

6770 IFTSrr.2}<1 TttENTSrr,2)— 999:X-X+1 

6775 NEXT 

6776 IF y-1 THEN 6760 

6777 SS- "SE HAN UTIUZADO LA MrfAO DE TUS MEDICINAS' ":6DSUB 9100 
6776 0A{1)-INT((0A[1)/2)+.5} 

6780 PRINT;GOSUB9200 
6785 1EX-0T>1EN6797 
6790 PR!NT"Y":X;, 

6792 SS='^TRIPULANTESMUR1ER0N"" 

6794 I F X= 1 THEN S£ = "TRIPULANTE MURI 0 " "' 

6795 GOSUB 9100 

6796 PRI NTiGOSUB 9200 ' 

6797 SS=KS:GOSIB9100 
6796 GET IS; IF IS-" "THEN $798 

6799 RETURN 

El barco puede ser atacado por piratas. . . 

6800 REM PIRATAS 

6806 IF M^3)-1 THEN RETURN 

6810 X=0 

6812 F0RT-1T016 

6814 IFTSrr,2)=0 OR TS[T.2)= -999 THEN X-X+1 

6815 NEXT 

6616 IF X- 16 THEN RETURN 

6818 M{3)=1 

6820 PRINTCHRS047) 

...Ih^bfi a bordo algunas armas para defenderse de 
ellos y reducir las perdidas al minimo? 



6S22 SS=" EL BARCO ES ATACADO PGR PIRATAS! " 
6324 PRINT;GOSUB9200 
6B25 K=2 

6826 IFOA{2}-0OR0At2) = -999THEN K=4 
6823 SS-" A PESAR DE TUS ARMAS* 
6830 IF K - 4 THEN SS= NO TiENES ARMAS ' " 
6832 GOSUB 91 OO 

6835 X-0 

6836 F0RT-1T016 

6838 IFTS(T,2)-0ORTS(T,2)--9g9THEN6e45 



':GOSUe9100 
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Juego de simulacion/Programacidn 



6315 
6920 
6935 



6045 



6840 X=X+1 JSCT.£)=-999 
^2 IFX-KTHErJT=16 
€845 NDCT 
6850 PRINT X; 

6355 3l=-TRIPliUWTtHARESULTAO0MLERT0*^ 

6356 IF X>1 THEN SS='*TRIPULANTES HAN RESULTAIM) MUERTOS'" 
6360 GOSJB9100 

6365 PRINT:G0SUB92?00 
6890 SS=KS:GOSUB9100 
6895 GETIS:IFtS=" "THEN 6895 

6899 RETURN 

6900 REMTIMON 

6905 1FM(4)=1THENRFTURN 
^ PRINT CHftS{147) 
M(4)-1 

SS- 'HAY PROBLEMAS CON EL TIMONI'- GOSUB 9100 
PRIflT:GOSUB9aOO 
X=4 

R3R T=n0l6 

IFS(T, 1)=3 AND TSfT,2)<>0 AND TSfT,2K> -999 THEN X=1 :T=16 
NEXT 

S$="APESAB DEQUETIENES UN MECANICO*^' 
IF X=4 TWEN SJ= "NO TIENES MECANJCO Y'" 
6950 G0SUB9100 

6955 S$=TUV(AJEDURARA*":GOSUB910D 

6960 PRINT X;"SEMANAS MAS" 

6365 EW=EW+X 

&9e7 PRINT:GOSUB92(K> 

6969 SS=KS:GOSIB9100 

6070 GETIS:IFIS=^' "THEN 6970 

6S75 RETURN 

7000 REMTORIWIENTA 

7006 IF M(5)=1 THEN RETURN 

701 0 PRINTCHR$(147) 

7016 y{3)=1 

70e0 S$="ELVIEMT0TEAPAfiTADETTJRUMB0*":GOSUB9100 

7O22S$="DURANTEUNATORMENTA!*:6OSUB910O 

7026 PRINT:GOSUB 920Q 

702« 

70(30 F0RT=1 T016 

7035 IF TS(T,l}-4 AND TS(T.2)<>D AND Ta(T,2)<> -999 THEN X=1 :T=16 
7038 NEXT 

7O40 SS= A PESAR DE QUE CUENTAS CON UN OFICIAL^" 
7045 IF X=2 TWEN SS= "NO TIENES NINGUN OFIClALr " 
7049 GOTO 6950 



Si se te estafi acabando las provisiones, quiza quieras 
poner rumbo hacia esta islay reabastecerte, pero al 
hacerfo tal vez el viaje se prolongue 



:GOSUB 



EN LA QUE PODRIAS^":GOSUB 9100 
FtEABASTECERTE DE PROVISIONES'^'iGOSUB 9100 
PERO SI TE OESVIAS HACIA ELLA-":6DSUB 9100 
SUPONORA UNA MAYOR DURACION DEL VIAJE ^^GOSUB 



7050 REMISLA 
7055 IFM{6)=1 THEN RETURN 
7060 PfltNTCHRS(147} 
7065 M(6)=1 

7070 SS- 'TUS CARTAS INOICAN LA EXISTENCIA DE UNA !SLA' 
9100 

7071 SS= 
7072 

7073 SS=' 

7074 SS=' 
9100 

7075 PRINT: GOSUB 9200 

7080 SS ^ " QU lERES JR A LA ISLA' "jGOSUB 91 00 

7032 INPUTJS:IS-LEFrSfl$,l| 

7054 IF IS< > " AND !$<> " N " THEN 70S2 

7086 PRINT:G0SUB920O 

7O90 IFII="N''TWEN7145 

71 00 SS= " LLEGAS A LA ISLA ^ ' : GOSUB 91 00 

7105 SS-"YCONSIGUfS:*":GOSUB3lOD 

7106 IFBS^-N^' THEN 7110 

7107 PRINT:GOSUB9200 

71 OS PR I NT" NADA I " : GOSUB 9200 

71 09 SI = (RECUERDA EL ALBATROSl}" :60SUB 91 0O;GOTO 71 30 

7110 FORT=1T0 4 

7112 If RND[1)<.25THEN7129 
7115 X=INT(RND[1)*tO}+5 
7120 PRINTX;aSfTj; 'SDE";PSCn 
7122 IFPAfT^=-999TWENPAm=0 
7125 PA[T)=PAfT)+X 

7129 NEXT 

7130 S$=' REflO AHORA EL VIAJE DURARA"':GOSUB &100 
7135 X=INT(RND(1)*2)+1 

7139 PRINT X;:SJ= "SEMANAS MAS"* GOSUB 9100 

7140 EW=EW+X 

7145 PRINT;G0SUB920O 
7150 SS=Ki;G0SUB9100 
7155 GET ISilF IS=- "THEN 7155 
7159 RETURN 



Siete factores se pueden combinar para favorecer la 
rebel i6n de la tripulacion. Esta rutina genera un factor 
de amolinamlento, MF, comprobando las condiciones 
que prevalecen al final de cada semana del viaje y 
sumandole a MF las estimaciones apropiadas 



7200 8EMM0TIN 
7210 MF=0 

7215 IFMI-"S"THENMF=MF+30 

7220 NC=0 

7225 FORT=lT10ia 

7228 I F TSfT, 1 } = 5 AN D TB(T. 2)<> 0 ANO TSiT,2}< > -999 THEN NC^ 1 :T= 1 6 
7230 NEXT 

7235 lFNC-OTHENMF-MF+30 
7240 lFA$="S"THENMF=MF-20 
7245 IFBS="S-'THENMF-MF+30 
7250 IFCN>12THENMF=Mf+30 
7255 lFVirr>MOTHENMF^MF+30 
7260 IFWK>8THENMF=MF+([WK-8)*10} 
7275 MF-MF+lNT(RND(1)*3iO) 



Si et factor de amotinamiento es mayor que 75 (pero 
menor que 100), se le advlerte al jugador del 
descontento de la tripulacion 

72flO IF MF< 75 T>1EN RETURN 
7282 PRINT CHR£{147) 

7284 lFMF>1O0TW£N730O 

7285 SS= " LA SITUACION EN EL BARCO'";GOSUB 910O 
7288 SS=" ESTA EMPEORANDO^-lGOSUS 9100 

7287 SS= ' Y AL6UN0S DE LOS TRIPULANTES* " GOSUB 91 00 
72&B SS-"HAeLANYADEMOTINi*':GOSUB9100 
7290 PRINT:GOSUB&200 
7292 SS-KS;GOSUB9100 
7294 GETII:1FIS-- ^' THEN 7294 

7299 RETURN 

Si el factor de amotinamiento se eleva por encima de I 
100, la tripufacidn se subleva, listandose sus quejas ] 
antes de dejar al capitan en un bote a !a deriva _ J 

7300 PRINT CHfl$( 147} 
7305 PRINT: GOSUB 9200 

731 0 S£= ^ LA TRIPULACION SE HA AMOTl MADO *':GOSUe 9100 

7312 SS- PORQUE*- GOSUB 9100 

7313 X=0 

7314 Fltto'S^T>ei7320 

7315 ^■3Q^0[^^=!^-' ^^|^T)^ 

73^ >"sc<: >: :\ :: ""^ 

7321 GOSUB ?2:: ■. -^mx: 

7322 SS=-NOnAr '■.E^0'^GOSU891O0 ■ 

7324 SS^^¥LACOMIDA£SASQUEROSA"'!GOSUB9100 

7325 IFBS^i^-S" THEN 7330 
7328 GOSUB 9200:X=X+1:PRINTX; 

7327 SS=-EL ALBATROS FUE ABATIDO!* "iGOSUB 9100 

7330 IF CN<13 THEN 7335 

7331 GOSUB 9200:X=X+1:PRINTX: 

7332 SS- " LA TRiPUU^CION ESTA HACIMAOA' " iGOSUB 91 QO 

7335 IFMO>-WTTHEN7340 

7336 GOSUB 9200:X- X + 1 :PR M X: 

7337 SS-" NO HAY SUFIClENTE ORO* "iGOSUB 9100 

7338 SS=" PARA PA6ARLES SUS SALARIOS'";G0SUB 9100 

7340 IF WK<:- 8 THEN 7350 

7341 GOSUB 9200:X-X+1:PRINTX; 

7342 SS= '■ LLEVAN NAVEGANOO ' " : GOSUB 91 00 

7343 SS=" MASDE8SEMANAS^":GOSUS9100 
7350 PfilNTiGOSUB 9200 

7360 S$= "U^ TRIPULACION SE APODERA DEL BARCO*" : GOSUB 9100 

7362 GOSUB 9200 

7363 SS = " Y EMPRENDE EL REGRESO ' " GOSUB 9100 
7370 GOSUB 9200 

7372 SS = " DEJANOOTE A Tl ABANOONADO* ''jGOSUS 9 1 00 

7373 SS=^'ENUNB0TEALADERIVA^*':GOSUB910O 

7374 SS = " 0 JAU QUE ALGUIEN TE RECOUA * " :GOSU B 91 00 

7375 PRINT:GOSUB9200 

7330 PRINT ' FIN DEL JUEGO" 
7382 ENO 



Estas cortas rutinas se utilizan mucho en el programa 
para producir efectos tales como retardar la salida por j 
_ pantalla J 

91O0 REM IMPRESION LENTA DESS 
9110 FORS3=1T0 32 

9115 IFMID$(SS,S3,1)='^^" THEN S3- 32:GOTO 9140 
9120 PRINTMID$(SS,S3,1); 
9130 FORS4-1T0 25:NEXT 
9140 NEXT:PRINT 

9199 RFTURN 

9200 REMBUCLEDEDEMORA 
9210 FORS5-1T01000:N£XT 

9299 RETURN 

9300 REM REDUCIRFORTALEZA TRIPULACION EN FUNCION DE WF 
9310 FORS1=1T016 

9315 IF TS(S1.2)=0 THEN 9340 

9320 TS(S1,2)-TS[St,2)-WF 

9330 IF TS(S1 .2)<1 THEN TS(S1 ,2)= -999 

9340 WEXT 

9399 RETURN 
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Programacion/Juego de simulacion 



El barco llegaasu destino. 



10000 REM LLEGADA AL NUEVO MUNDO 

10001 PRlNtCHflS(147}:G0ELJB 920Q 

10005 SS=-LLEGAS AL WUEVO MUWOO^'":GOSUB 91 OO 
100D6 PRINTrGOSlB 9200 

1Q007 SS="MIENTRAS TE APROXIMAS A LA COSTA* ":GOSue 9100 

1QO09 SS="SALEN LOS NATIVOS EN CANOAS PARA RECIBmTE*":GOSUB 9tO0 

10010 PRINTiGOSUB 9200 

10015 IF 0A[2}=0 THEN 1005O 

10O17 S£-"Sy ASPECTO ES HERO Y ESTAN ARMADOS!!*"rG0SJB 9100 

1001 S PRIWT:GOSUBa200 

10020 S$-''ABRES FUEGO? [S;/W)"':GOSUB 9100 

10022 INPUT I$:I3=LEFTS011) 

10024 IFISO'^M" ANOISo-S^THEN 10022 

10026 IF THEN 10050 

10028 PRINTiGOSUB^ 

10030 SS="HAN MUERTO MUCHOS NATIVOS*":eOSlB9100 

10032 SS-"PfRO DURANTE LA N0CHE"':GOSJB9100 

10034 SS="0TROSRE6RESAN'":G0EUB910O 

10036 SI="Y LE PRENOEN EUEGO A TU BARCO! ! !r":GOSUB 9100 

10038 PRINTrPRINT:G03UB9200 

1QO40 S$=" JU£GOTERMINADO*":GOSUB9100 

10042 END 

10044 GOTO 10042 

10050 S$= "TE LLEVAN A COMOCER A SU*":GOSUB 9100 
1 0052 SS= " JEf E. VA HA CONOC! DO ANTES A GENTE OE * ^ : GOSUB 91 00 
10054 S$= "TU RAZA V SE MUESTRA MUY AMABLE' ":GOSUB 9100 
10056 GOSTUB9200 

10056 SS^-U^TRIPULAOON HACOMIDO Y ESTA DESCANSANDO"" 

GOSUB 9100 
10060 KR]NT:GUSUB 920O 

10062 SS- MANANA COMENZARA LA ACTIVIDAO COMERCIAL*":GOSUB 9100 

10064 PRINTiGOSUB 9200 
10066 SS=KJiGO&UB 9100 

10065 GET m? IS-" '■ THEN 1006S 
10069 RETURN 



.y cqmienza fa actividad comercial 




f0070 PRINTCHRS[147):GOSUB9200:REM INTERCAMBIO 
10072 IFOA(2}=0THEN10OBO 

1 0074 SS= " EL JEFE N 0 QU I ERE TUS ESCOPETAS * " :60SLJB 91 00 

10076 SI=-'PORQUE PODRIAN ACARREARLE PR0BLEMAS*":GOStJB 9100 

10076 PRINTrGOSJB 9200 

10080 lFOAf3)<>0 OR 0A[4)<> 0 OR OA[5)<>0 OR 0A{6K>0 THEN lOlOOO 
1O085 SS="NO TE QUEDA NINGUNA M£RCANClA-":GOSUB 9100 
10090 SS-"CON LA QJE COMERCIAR^^GOSUB 910O 
10095 GOTO 10O3S 

10100 SS= "EN TRJEQUE POR LOS CUCHILLOS'": GOSUB 910O 
10102 SS--SALTELAOJ0YAS QUE POSEAS'^'iGOSUB 9100 

1 01 04 SS ^ "TE OFRECE PERLAS. FIGUR I LLAS* ^ : GOSUB 91 00 

1 01 05 SS- " Y ESPECIAS * " :GOSUB 91 OD 
10108 PRINTiGOSUB ^00 

1 0110 SS=XUANPO SALISTE DE PUERTO ESTAS'-iGOSUBgiOO 
1D112 SS=*'VALIAN"':GOSLJB9100 
10114 SS=^'PERLAS-2PDEOROCADAUMA^''iGOSJB9100 
1 01 1 6 SS = ^' FIGUR I LLAS - 2 P D E ORO CAOA UNA* " :GOSU B 91 00 
101 IS SS = "ESPECIAS - 1 PIEZA DE ORO EL GRAMO^'iGOSUB 9100 
10120 PRINT:GOSUB 9200 

10122 S$= "PERO QUIZAS CUANDO VUELVAS A CASA^'":GO$UB 9100 

10124 SS= "OUIZAS ESTOS VALORES HAYAN CAMEIADO* '■:GOSUB 9100 

10125 PRINT:G0SDB 9200:SS=KSi GOSUB 9100 

10126 GETISilFIS-" '^TWEW 10126 
10130 FGRT=3T0=6 

10135 IF OA(T}-0TKEN 10200 
10140 PRINTCHRS(147):GOSUB9200 
10145 PRINT'TIENES":OA{T); 

1 01 50 IF T= 3 THEN = ^' SACOS DE SAL* " 

10151 IFT=4THEN£$=^'BALAS0ETiLA*" 

1 01 52 IF T=5 THEN SS ^ " CUCHILLOS* " 

10153 IFT=6THEN$$="J0YAS"' 

10155 GOSUB 9100 

10156 PRinTiGOSUe9200 

1 01 60 Si = "A CAMBI 0 EL JEFE TE OFRECE ' i GOSUB 91 00 

1 01 65 PR I rR""' YA SEA" :OA(T) * EQlT-2 , 1 ); " PERLAS " 

10166 PRINT"0 BIEN":0A(T}*EQ(T-2,2);"FIGURILLAS'' 

10167 PRINT" 0" :OA(T)'EQ(T-2.3);"GRAM0S DE ESPECIAS" 
101 6B PR[NT:GOSUB9200 

TD170 SS-^'^QUIERES PERLAS, FIGURtLLAS*":GO&UB 9100 
10172 SS--0 ESPEGI AS?'".: GOSUB 9100 

10174 SS=-'tEMTRA1.2o3)'":GOSUB9l00 

10175 INPUT IS 

10176 l-VALaS}ilF K1 OR l>3 THEN 10174 
1 01 80 AO (1 E - AO (I) + {QA|T) '£Q[T-2 , 1)) 

10190 PfilMT:PRiNT"lAS "iTI^I);" SE CARGAN EN ELBARGO" 
10192 SS=KS: GOSUB 91 OO 
10194 GETISilFlS-" "THEN 10194 
1O2O0 NEXT 

10210 PR!NT:PRINT:GOSUB 93)00 

10215 SS=- F1MOELII^RCAMBIO*'';GOSUB9100 

10216 PRIHT:GOSUBg200 

10218 SS='HASOBTBNIDO:"^GOSU8 9100 

10220 PRIWTAOll}:" PERLAS" 

10222 PRINT A0i2}:-FIGURILLAS'' 

1 0224 PR I NT AO (3);- GRAMOS OE ESPECIAS" 

10226 PRINTIGOSUB 9200 

10228 S$=KS:G0SUB9100 

10229 GETIS:IFIS=^ "T^EN 10229 

10230 RETURN 



^Quieres parti ctpar en una revuelta local? Las 
recompensas son elevadas,.. pero tambien lo son 
los riesgos si el goipe fracasa 

10300 REMREVOLUGION 
103O5 lfOA(2)=0THEN RETURN 
10310 PRINTCHRSt147):GOSUB9S00 

10315 SS='^DURANTE LA NOCHE UN RIVAL OEL^'^QOSUB 91O0 

10316 SI= "JEFE VISITA EL BARCO EN SECR£TO'":GOSUB 91 DO 

10317 PRINT iSOSUB 9200 

10318 3£= "QUIERE COMPRAR TUS ESCOPETAS' " iGOSUB 9100 
10320 SS- "PARA UNA REV0LUCION^":GOSUe 9100 

10322 PRINT:G0SU8 9200 

10324 SS=-TE OFRECE 3D PERLAS POR CADA ESCOPETA' -iGOSUB 9100 

10326 SI- "LE VENDES IAS ESCOPETAS? (S/N) " -iGOSUB 9100 

10326 INPUT l$:IS=LEFJ(IS,1) 

10330 IF iSo-N" AND l$<>"S" THEN 10328 

10332 IF!S="$" THEN 10400 

10334 PRINT:GOSUB 920D 

1 0336 SS= ' £ L JEFE SE ENTERA Y SE SIENTE* " i GOSUB 91 00 
10338 SS=-AGRAOEC]DORAClATr "iGOSUB 91O0 
1034O SS=''TE OA PROVISIONES GRATIS'" iGOSUB 9100 
10342 SS-TARA EL VtAJE DE REGRESO" "iGOSUB 91 00 

10344 GOSUB 9200 

10345 IFRND[1}<.75 THEN 10350 

10346 SS--Y50PEHLAS1!^"iGOSUB9100 
10348 A0{1)-A0f1)^50 

10350 PRINT:G0SUB92O0 
10352 SS=KSiGOSUB910O 
10354 GET iSilF 1$=^' " THEN 10354 
10359 RETURN 

10400 PRINTCHR$(147):G0SUe920O 

10405 6FRND{1)<.75THEN104S0 

1 041 0 SS= " LA REVOLUCI ON HA TRIU NFADO * " iGOSUB 9 1 00 

10412 PRINTiGOSUB 9200 

1 041 5 SS= "E L N U EVO J E FE T£ RECOM PENSA CON * " iGOSUB 91 00 
1 0420 SS= PflOVlSlONES GRATUITAS PARA EL VI AJE ^ " : GOSUB 91 OO 
10425 SS=-DE REGRESO. * ":60SUB 9100 
10429AO(1)=AO[1)+(OA{2)'3D)iREMSUMARPERLAS 

10430 0A^2)=0 

10431 6OT01D35O 

1 0450 SS = " LA REVOLUC ION FRACASA! ! ' " iGOSUB 91 00 
10452 PRINTiGOSUB 9200 

10455 S$= "EL VIEJO JEFE ESTA ENFADADO CONTIGO' "rGOSUB 910O 
10457 LE PRENOE FUEGO A TU BARCO Y flOBA* ":GOSUB 9100 

10456 S$="TOD0!!^-:GOSU8910O 
10459 PRINTiGOSUB 9200 

104^0 SS-" JUEGOTERMINAD0!!'":GOSUB9100 
10462 END 
10464 GOT0 10462 

10500 REMFINDELVIAJE 

El barco regresa y se reafiza una evaluacion 
de la actuacion del jugador como comerciante 

10501 PRINTCHRS|147)iGOSUB9200 

10505 SS= XOH UNA TfllPULAOON FUERTE Y VIENTOS' "iGOSUB 910O 

10507 SS- "FAVORABLES EL VIAJE DE REGRESO VA' " iGOSUB 9100 

10508 SS= "BIEN Y DURA SOLO 3 SEMANAS' - iGOSUB 9100 
10512 WW=0 

10514 F0RT=1 TO 5 

10516 WW=V/W+(e*CC{T)'WG(T)) 

1051 B NEXT 

10519 PRINTiGOSUB 9200 

1 0520 SS- ■■ FACTURA SALARiAL PARA EL VIAJE OE REGRESO " " :GOSUB 
9100 

1 0522 PRINT WW; " PIEZAS OE ORO " 

10524 PRINTiGOSUB 9200 

1 0526 SS = " CU AN DO REG RESAS' " iGOSUB 91 00 

1 0528 SS = " PARA VEN DER TUS MERCANC IAS' " i GOSUB 91 00 

10530 SS="ESTASVALEN ENTONCES'" iGOSUB 9100 

10532 PRINT-^PERWS- ";V2(1);"PIEZAS DE ORO" 

1 0534 PR I NT"f IGU RILLAS - " ; V2(2}r PI EZAS DE ORO " 

1 0536 PR I NT" ESPEC IAS - " -V2(3] ; " PIEZAS 0£ 0 RO^' 

1 0538 PR I NT;SS- "OBTI ENES U N TOTAL DE ' " :GOSU B 91 00 

1 0540 X= (A0{1 ) ' V2(1 )) + [ A0[2| ' V2[2)) + (A0(3) ' V3(31) 

10542 PRINT Xi"PIEZASDE ORO" 

10545 PRINT:SS=KSi60SUB9100:PR1NT 

10547 GETlSilFiS-" " THEN 10547 

1 0550 SS= " AHORA POSEES ' " :GOSUB 91 00 

10552 PRINT M0-5.X:" PIEZAS D£ ORO" 

10555 PRINTiGOSUB 9200 

10556 S$=-LAFACTUftASAWRIALPARAELVI.AJE£SDE*"iGOSUB9l00 

10557 PRINTWT+WW:"PIEZASDE0RO'' 

10559 PRINTiGOSUB 9200 

1 0560 S$- ^TERMINAS EL VIAJE CON i ^ " i GOSUB 91 00 
10562 Z-MO+X-WT'WW 

10565 PRmTZ;"PIEZASDE0RO" 

10566 PRINTiGOSUB 9200 

1 0567 PR I NT;SS= " TU CLASIFICAC ION ESi * " iGOSUB 91 00:PRim" 

10568 IF 7>3200 THEN SS=XAPITALISTA DE PRIMER ORDEN '"iGOSUB 
9100iEND 

10569 IF 2> 2500 THEN SS-'1NSIGNE COMERCIANTE* ":GOSUB 9100;END 
1D570 IF 2>20ao THEN S$="MERCAGH1FL£ DE III aASE*^GOSUB 

9100:ENO 

10571 If Z>1000 THEN SS="fViAS BIEN UN PRIMO^^iBaSUB 910O:EWD 

10572 SS="MASPATOQUEPIRATA"" 

10573 GOSUB 9100:END 
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Sistemas operativos/Lenguaje mdquina 



Metro de sastre 



Analicemos las rutinas ROM del 
OS del Spectrum que se 
encargan del sistema de 
archlvo en cinta 

Un Spectrum de Sinclair normal esta provisto de 
solo una interface para cinta que permite guardar y 
cargar programas y datos. Pero la adici6n de la In- 
terface 1 da acceso a los microdrivcs, la interface 
serial y las redes de area local. Esto se considera 
como sistemas aUernativos de archive un poco 
como cl BBC Micro posee sus propias alternativas. 
Sin embargo, en el BBC Micro se selecciona el sis- 
tema de archive por medio de una instrucci6n *, 
mienfras que en el Spectrum empleamos una sinta- 
xis difcrente de iristrucciones para diferenciar las 
referidas al sistema de archive en cinta de otras per- 
tcnecientes a otros sistemas de archive disponibles 
para este ordenador. Por ejemple, ia instruccion 

SAVE ■ hOjaV LINE 1 

guardara un progranaa en basic en la cinta de mode 
que iniciara la ejecucion desde la Imea 1 cuando sea 
vuelto a cargar en el Spectrum. Para guardar un 
programa de modo semcjante pero en un sistema 
de archive microdrive cs necesaria la siguiente ins- 
truccion increiblcmente alambicada: 

SAVE " "mMi^^hojaV LINE 1 

La "m" de la inslruccidn especifica el microdrive 
que se emplea; el 1 que sigue indica el numero de 
unidad de disco solicitado; y el nombre del archive 
(en este caso "hojal") viene despues. Ya veremos 
cemo funciona este sistema de archive en microdri- 
ve. Veamos ah era el empleo del sistema de archive 
en cinta a parti r de pregramas en codigo maquina. 

Independientcmente de los dates que se guardan 
en la cassette, estos se organizan de la manera que 
ilustra el dibujo. Los primeres 19 bytes cnviados a 
la cinta son considerades como cl encabezamiento 
(header), y centienen datos relatives al siguiente 
bleque de dates en la cinta. Los bytes primero y 
ultimo del encabezamiente son dados por las ruti- 
nas del sistema operative que escriben los bytes de 
datos en la cinta. Los otros deben ser codificados 
antes de ser llamada la rutina ROM que escribe los 
datos en la cinta. El byte ''tipe" indica al OS, en la 
carga, la naturaleza de los datos que estan en el 
bleque. Dcspues esta el nombre del archive en 10 
bytes (lo que ex plica por que los nembres do los 
archives en el Spectrum tienen un maximo de 10 
caracteres). Si el archivo tiene un nombre de 
menos de 10 caracteres , los espacies sobr antes son 
rellenados con el codigo ASCII de cspacio (32). 
Los datos del encabezamiento desde el byte 11 en 
adelante proporcionan otros detalles al OS, tales 
OTno la infonnacion referente al lugar donde se ban 
ie cargar ios datos en ia memoria. El byte final del 




Indica un ENCABEZAMIENTO 

0 para programa en BASIC 

1 paratablasdenumeros 

2 para tabia de series 



3 para archivo CODIGO 
(CODE) 



10 bytes para 
nombre fichero 



15 



17 



i-byte 
lo-byte 



hi-byte 



lo-byte 



hi-byte 



parity 



silence 



255 



Longitud del bioque de dates que 
sigue 



En programa BASIC, contiene 
'numero linea para inicio de ejecucion 
del programa o la direccion de inicio 
del codigo a guardar 

-Longitud del programa, si es en basic 



■€mpleado por el OS para 
comprobacion de ios datos 



Indica un bfoque de datos 
Aqui estan los dates a guardar 




Mucho carreie 

El sistema de archivo en cinta 
del Spectrum guarda los 
datos en dos fases. 
Primero da salida a un 
bioque de 

ENCABEZAMIENTO que 
contiene la infoj'niacj(5n 
sobre el bioque de 
DATOS que le sigue. B 
formate del bioque de 
ENCABEZAMIENTO es 
slempre e[ mismo, 
independientemente de la 
:ongilud de lo que se 
contiene en el bioque de 
DATOS que le sfgue. 
Observese que e! byte finaJ 
de pa rid ad de este bioque es 
generado por el OS segun el 
cOfitenido de los bytes que !e 
:&Fei>^T^:.:£;ij[?rjanda.^ ^ — 



mi 



Lenguaje maqtiina/Sistennas oporativos 



encabezamjcnto se usa para comprobacion de errores 
cuando ya se ha leido ia cinta: si se delecta alguno, se 
genera el mensaje de error correspondiente. 

El bloque principal de los datos comienza con un 
byte unico que retiene el valor 255; el cual, una vez 
mAs, es dado por ia rutin a ROM de "escritura en 
cinta". Siguen despues los datos, detras do los cua- 
les viene otro byte de comprobacion, iguaimente 
generado por la rutina citada. Tanto en el encabe- 
zamicnto como cn los bloques de datos, el valor 
efectivo escrito en el ultimo byte del bloque de- 
pende dc los enviados inmediatamente antes del 
citado byte. 

Veamos ahora o6mo pueden cmplearse ias ruti- 
nas de la interface para cassette a partir de progra- 
mas escritos en codigo maquina. Las rulinas ROM 
relacionadas con operacioncs en cassette se en- 
cuentran, en el Spectrum, en las direcciones que 
van dc la &04C2 y &09F3 dc la ROM del ordenador. 
Es, por tanto, una pieza de software dimensiona- 
ble. Lo cual no debe sorprendernos ya que todas 
las operaciones tern por izadoras y toda generacion 
de sonidos que exigen informacion colocada en 
cinta se basan en software creado para el Sinclar 
Spectrum, 

No existen variables de sistema especificas para 
operaciones en cinta, pero el siguiente cuadro con- 
tienc Unas cuanias que ''incidentalmcnte'' son em- 
pleadas por las rutinas. 



'VarialJle del sistema 


Descripcion 


TADDR (en posiciones 
23668 y 23669) 


Empleada por mts. ROIVl 
para distinguir que opers,, en 
cinta se han de ejecJtar al 
interpretar la instruccion en 

BASIC 


BORDCR (ei 23624) 


Usada para restaurar el color 
del recuadro (Border) segiin 
su color inicial, tras una 
operacion en cinta 


XPTR 

(en 23647 y 23648) 


Usada para almacenar 
temporalmente el registro IX 



Las variables dc sistema VAR, ELINE y PROG tam- 
bien se emplean cn la carga de informacion desde 
la cinta al ordenador. 



Almacenamiento en cinta 

Hxa mi nemos ante todo esta operacion, cuya rutina 
se encuentra en la direccion de la ROM &04C2. En 
su empleo normal, esta rutina es llamada dos veces] 
una vez para guardar la informacion de encabeza- 



Registro 


Encabez. 


Bloque de datos 


A 


0 


255 


DE 


17 


Longitud datos 


IX 


Direccion de inicio del encabezamiento 
0 de inicio de los datos 



miento y la segunda para almacenar los datos efec- 
tivos que deseamos guardar. Los requisitos de en- 
trada para esta rutina se dan en el cuadro inferior 
de la columna precedents 

Como se deduce de estc cuadro, el registro IX se 
usa para apuntar los datos que hay que guardar. 
Para elarificar esto, veamos un ejemplo sencillo de 
como se guarda un bloque de dates en la cinta. El 
siguiente programs guardara 100 bytes de datos 
(comenzando en la direcci6n 0000 de la ROM) en 
cinta. 





;rutina para guardaf 100 bytes, rarren^andoen 




:1a direccion OOOO. en cinia 






-envio entab&zamiento 




3E00 


Id 


a,0 


;lndicaLn BLOQUE ENCABEZ. 


DDES 


push 


ix 


iOuarda ix en pila 


D02lD32e 


Id 


ix. header 


;sunna d«l bloque encabez. 


111100 


Id 


de,17 


;num, de byies encahez 


CDC204 


call 


#04c2 


:escril]e en cinla encabez. 




;envio datos 






DD21000O 


id 


ix.OOOO 


isuma del l.erbyle a guardar 


116400 


Id 


de,100 


-nijm. byles 3 guardar 


3EFF 


Id 


a,255 


:indica ur> BLOQUE DATOS 




call 


#D4c2 


;escribe dates en cinta 


D0E1 


pop 


ix 


ireslaura valor de IX 


C9 






;vticlia al BASIC 


03 


tieaden dafb 




;lipo datos 3- CODIGO bloque 


54455354 


deJm 


TESTPROG 


■l/nofnbre+espacios- 1 0 caracieres 


64 




100 


;byte-lo de longitud datos 


00 


defb 


D 


;b/te-bi da lonfiitud datos 


00 




00 


;b^e-lo dedir. imcio 


m 




00 


;byie-hi dedir. indo 


oo 


delb 


00 


;enipleado s6lo f>ara basic 


00 




00 


-pm nijmero lineai iniCEb 



Llamando a esta rutina nos ahorramos una parte 
importante de memoria. No obstante, no se emitira 
ninguna indicacion o mensaje al contrario que en 
las rutinas dc gestidn de cassette desdc ei basic. 
Pero esto no es problema ya que los datos en la 
cinta pueden volverse a cargar para ver si el progra- 
ma ha realizado su tarea correctamenle. Esto se 
hace con la instruccion: 

LOAD ^ESTPROG^' CODE 40000 

Ahora comparense los bytes cargados con los bytes 
retenidos en las posiciones entre la 0 y la 99 de la 
ROM. Recuerdese que aunque el bloque de dates 
ENCABEZAMIENTO comienza con el byte tipo. el pri- 
mer byte efectivamente cnviado a la cinta viene 
dado por el OS (0 para el encabezamiento y 255 
para el bloque de datos) . 

Una variante util de este programa puede permi- 
tirnos guardar un programa en basic dcsde dentro 
de un listado en codigo maquina. El bloque ENCA- 
BEZAMIEMTO al final de nuestro anterior listado sera 
asi alter a do para leer: 



00 beader: 


delbO 




:0-program3 basic 


73737373 


dalm 


"sssss 


;nofnbre ficbero- Gon 10 caract 




sssis" 






00 


defb 


nn 


:byle-lo longilod de 


00 


defb 


nn 


;byl^hi prog + variables 


00 


defb 


nn 


;byte-Jo numero linea 


DO 


defb 


nn 


;byte-til de inicio 


00 


delb 


nn 


:byte-lo sblo longitud de 


m 


delb 


nn 


;byte-bl prograrria 



La longitud del programa y las variables pueden ha- 
llarse restando el valor contenido en PROG del valor 
contenido en ELINE, y la longitud del programa solo 
puede obtcnerse restando el valor de PROG del con- 
tenido en VARS, Si no se desea que el programa se 
ejecute una vez cargado, basta poner la entrada 
^numero de iinea en el que el programa comenzara a 
ejecutarse' con valor 32768. Igualmcnte, podemos 
simular la instruccion SAVE SCREENS desde el codi- 



Sistemas operativos/Lenguaje mdquina 



go maquina especificando la direccion de inicio del 
codigo que ha de guardarse como &4000 y la iongi- 
tudcomo &1BO0. 

Carga desde cinta 

La rutina ROM que carga datos desde la cinta de 
cassette tambicn tiene que set llamada dos veces: 
una para el ENCABEZAMIEMTO y otra para el bloque 
efecttvo de datos que ha de cargarse. La rutina se 
halla en la direccion &0556 en la ROM y sus requi- 
sites de entrada se prescntan en la siguicnte tabia 
(junto COD los del codigo de verificaci6n)i 



tocalizacifin y carga TESTPROG 



Reglstfo 


Carga 


VerifiGacion 


FlagC 


1 


0 


A 


0: encabez.; 255: bloque datos 


IX 


Apunta el lugar cfe memoria donde 
seran cargados los bytes 


DE 


Numero de bytes por cargar; D 
debe estar entre 0 y 254 



Necesitamos algo de espacio de trabajo para esta 
rutina: unos 34 bytes, o lo suficiente para acomodar 
dos bloques de ENCABEZAMIENTO. La razon de esto 
es inmediata. Para cargar un archive dado en una 
direccion dentro de la RAM que especifiquemos. 
primero debemos establecer un segundo bloque de 
ENCABEZAMIENTO con los detalles^del archivo que 
deseamos cargar, Despues comparamos los datos 
de ENCABEZAMIENTO de los archivos en cinta con el 
ENCABEZAMIENTO que hemes establccido en la me- 
moria para colocar el archivo que queremos. 

Al llamar a la rutina (en 8c0556) el flag C debe 
establcccrsc como se indica cn cl cuadro. Si se esta 
verificando un fragmento de codigo, debe colocarse 
en la direccion apuntada por el registro IX. Al 
abandonar la rutina ROM de 'carga desde cinta\ el 
flag C indicara el resultado de la operacion, St esta 
a uno, cs que la carga se hvzo bien. Pero si se trata- 
ba de cargar un bloque de ENCABEZAMIENTO, y lo 
primero que se encuentra en cinta es un bloque de 
datos, cl flag C se pondra a cero. (Todos los errores 
de carga desde cinta son gestionados por cl OS.) 
Veamos ahora un ejemplo que carga un ENCABEZA- 
MtENTQ (HEADER) desde la cinta a Ja RAM. 

;carg!Ei un ercabesfniento de cinta a RAM 
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;pone afTss^re 1= CARGA 


3ED0 


Jd 


a,0 


:0 Mica, un encabez 


DOES 


push 




-guards ix en pila 


DD2HSEE 


Id 


ut.BlOOO 


:caiiga encabez en 61D00 


111100 


Id 




;iium bytes en encabez 




call 


#0556 


;kthiace 


DDE1 


pop 


be 


;restaLjra ix 


09 


net 







Una vez que se ha cargado ENCABEZAMIENTO lo po- 
demos examinar, Podemos comparar el nombre del 
archivo con cl requerido, asegurarnos que se trata 
del tipo correcto de fichero y com pro bar ia longhud 
del bloque de datos si queremos. El program a si- 
gtiiente comprueba solo el nombre, y si es correcto 
caiga el bioque de datos dcspu6s del ENCABEZA- 
MIENTO en una direccion particular de la memoria. 



D0E5 








^guarda U er pila 




loop 


scf 




;pDnfi arraslfS- paraCAFSA 


JtUU 




Id 


a,0 


iO^Frchero basic; 


1 1 1 11AI 




la 


oej / 


;nLim de byte en encabei 






111 

Id 


U{,bs9d2 


;cafi9a ensibiei &ii head 2 






call 


#0556 


UifDia 




ip 




;si rio tiay eticaljez, reini&ntar 


060A 




Id 




:nLim de bytes en nombre fictiero 


11 BA£B 




Id 


de,tiead+1 


;apu[iiaal tiombne de fichero 


Z1 CB2B 




IH 

lU 




deseanto 

^apunta HLal nofjibre fidhsro tiallado 


1A 


name: 


Id 


a.fde) 


;tomacaraci encabez en a 


BE 




CP 


m 


^compara oon encabez tiallado 


2007 




jr 


nz.no 


;no igual, salida bucle 


13 




inc 


de 


:lOFna c^r^. slgupente 


23 




inc 


N 




05 




dec 


b 


:decfe«Ttenta coniador 


Mrf 




ir 


nz,nanie 


ilgual. comprueba car^cter sig. 


1Q02 




ir 


ol< 


:todos caracteres ok 


18DB 


no: 


ir 


loop 


^comprobacidnTalllda, piue^de 










nuefvo 




lencabei 


. comecto, prapamcidn car 


ga datos 


DD21B92B 


ok: 


Id 


bi.hiead 


;toma encabeaamienio er rx 


DD6£0D 




Id 


t(ix+13) 


;tonia dlr^clw pai3 


DD660E 




Id 


h,(i)£+14) 


;carp datos 


F-5 




pusb 


hi 


;lleva dIrecclAn a plla 


DDEl 




pop 


ix 


% toma m w 


3EFF 




Id 


a.255 


iindlca carga (tatos 




;la in^cci6n siguiEnte exi^e que e 


ysuario efiire la longittid de los datos 


1 1AF2B 




Id 


d&,nn 


:entrar fongilud datos 
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sd 




;mdica una CARGA 






c^t 


#0656 


hace 


DDEl 




pop 


Ix 


;restaura iii 


C9 




ret 








;alioia siguen detaHe. 


> del nomtire lichero tfeseado 


03 


head: 


deJb 3 




;indica bloque CODIGO 


54455354 




dfilm " 




■rhombre tichero 


00 




delb 0 




:emplBo para longilud datos 


00 




defb 0 




;byie-hi tong datos 


4a 




dcffb 72 


:byt^lo carga 


EE 




ddb m 


:difBccionde 61000 


00 




defb 0 




;s6lo para pm- BASED 






defb 0 




:dittQ 




3»wa9 




P3T^ e(ic^)e2amiento (argado y su cflmprobaaiSn 




hesd2: 


dete 17 





De nuevo nos encontramos con que no se en via 
mensaje alguno a la pantalla durante esta opera- 
don. La rutina cargara un bloque de datos llamado 
TESTPROG en la direccion especificada cn el area de 
ENCABEZAMIENTO de ia memoria. La mtina puede 
usarse para cargar archivos de nombre distinto, y se 
puede incluso anadir codigo maquina para compro- 
bar que es correcto el tipo de archivo. Hay que ob- 
servar que estas rutinas ROM, como ias operacio- 
nes del basic SAVE y LOAD, pueden cancel arse puL 
sando la tecia Break, 

Acabamos nuestro analisis de las operaciones de 
SAVH y LOAD del OS empleado por el Spectrum 
con un breve programa que lec encabezamicntos 
de archivo desde cassette c imprime detalles sobre 
el fichcro en pantalla, tales como su longitud, direc- 
cion de inicio, etc. La rutina en cddigo maquina se 
almacena en la sentcncia DATA, y carga sencilla- 
mentc un bloque de ENCABEZAMIENTO como se ha 
senalado mas arriba, examinando despues el blo- 
que desde el basic: 

5 CLEAR S9999 
10 FOR 1=010 19 
20 READ AiPOKE (60000+ IJ, A 
30 HEKYl 

40 RAND0MIZEUSR60DO0 

50 LET type- PEEK 60020 

60 LET lejigth= PEEK 60031 +256*PEEK 60032 

70 LET start- PEEK 60033+ 256* PEEK 60034 

SO LETLS=" " 

90 FOR 1-60021 TO 6Q03D; LET L$=L3+CHRS(P£EK 1): NDU I 

100 PRII^IT "Nombi^; MS 

110 IF ty[>e-0 THEM LET IS- "BASIC" 

120 IF lype=1 T>1EN LET tS= "TabIa ndmeros" 

130 IFlyp8-2T>1ENLETfS="Tablaserie'* 

140 lF(ypc=3THEMLETfS="C0D!GO' 

150 PRINT ^' Tipo: ":f$ 

160 IF lype=0 TTIEN mm ''Num. tinea autoejecucion: "-start 
170 IF typ(8<:>0 THEM PRINT "Direccion inicio: ";start ' 
130 PR WT "Longilud: ";ler»gm 
190 GOTO^O 

200 DATA 221 , 229.62 ,0.55.221 ,33, 1 1 6,234. 1 7 J 7, 0.205.86. 5.4S.241 .221 .225,201 




Juegos 



Persecucion 



El Iadr6n ha escapado (esta representado por una mascara negra). 
listed tiene trelnta minutos para encontrarlo y detenerlo con su 
ordenador Dragon 




Atcnci6n, jito sc prccipitc! Efectivamente, si se 
echa sobre el [adr6n sin pensar, cste liene todas las 
posibilidades de escaparsele. La mcjor manera de 
cogerlo es alcanzarlo de lado. (Es el metodo mas 
eficaz a condicidn de no fallar.) Si no se siente lo 
bastante seguro de si mismo, ataquelo dc cara, lo 
cual es mas facil pero mucho menos eficaz, ya que 
no OS tan discrete. Otro consejo: no intente perse- 
guirlo; csto no Ic daria resultado, pues el es mucho 
mas rapido que usted. Ha de observar sus movi- 
mientos, eomo un detective. Cuando le vea que da 
la vuella, acerquese sin hacer ruido y sorpr6ndalo 
en el momento justo. Pero, recuerde, jel tiempu va 
pas an do! Para desplazarse utilice la palanca de 
mando (joystick) o las teclas siguientes: <W>: arri- 
ba; <A>: izquierda; <S>: derecha; <Z>; abajo. 



to Wi — 

20 mA * PEHSECUCION * 
30 REM — 
40 GOSUBSBD 

60 CN=159 

70 CV=128 

80 CP=191 

90 GOSUB&40 
100 ON JK GOTO 150 
110 DS^INKEYS 

120 0=(DS="'A1-(DS="S'')+32*((0$-"W")- 

130 IFOoOTHEfrl DO-D 
140 GOTO 230 
150 K0=JOYSTK(O) 
160 K1-J0YSTK(1) 

170 IFK0<27ANDK1<27THEMKS— 32 
180 lFK0>3eANDK1<27THEfJKS=1 
1 90 IF KO<27 AND K1>36 THEN KS=-t 
200 IF KO>27 AND K1 >27 "mEN K$=32 
210 IFKSoOTHENDO^KS 
220 KS-0 
230 T=T-0.1 

240 PRINT@4eO/'TlEMPO i^JWrfT-i-l); 

250 IF T<0 THEN 400 

260 P-P+DO 

270 C=PEEK(P) 

280 IF C- 128 THEN 920 

290 IF Co 159 THEN P= PI 

300 pokepi.cn 

310 POKE P, CP 
320 P1 = P 
330 V=V-hDV 

340 IF PEEK(V)<>CN THEN GOSUB 500 



350 IF PEEK{V)<>CN THEN 330 

360 POKE VI .CM 

370 POKEV.CV 

330 V1 =V 

390 GOT0 100 

400 D$-IMK£Y$ 

410 !FR<STHENR=S 

420 PRINT@166,"TIEMP0TRANSCURRID0^ 

430 PHINT(5)234;TUNTUACI0N :^S; 

440 PRINTCg)266, " RECORD :";R; 

450 PR1NT@326;'0TRA(S/N)?^ 

460 DS-INKEYS 

470 IFD$=" THEN 460 

480 tFD$<>''N^'THEN50 

490 END 

500 D2=D2 + 1 

510 GOSUB 600 

520 IFPEEK[V1-hDV)=CNTHEN 

V-V1 + DV:RETURN 
530 D2-D2-2 
540 GOSUB 600 
550 IFPEEK{V1-hDV)-CNTHEN 

V=V1-hDV:RETURN 
560 D2-D2-1 
570 GOSUB 600 
580 V-V1+DV 
590 RETURN 

600 1F02>4THEND2=D2~4 
610 W D2<1THEN D2 = D2 f-4 
620 DV-(D2=1HD2=3)+32^((D2=2)- 

{D2-4)) 
630 RETURN 
640 CLS2 

650 FOR N1024T0 1055 
660 P0KEM75 
670 P0KE448+M75 



680 NEXT I 

690 FOR 1=1 T0 13 

700 POKE 1^32+1024,175 

710 POKE 1*32+1055,175 

720 NEXT I 

730 FOR 1=1 TO 70 

740 GOSUB 890 

750 POKE P. 96 

760 NEXT I 

770 GOSUB 890 

780 V=P 

790 POKEV,CV 

800 VI =V 

810 GOSUB 890 

820 POKEPXP 

830 P1=P 

840 T=30 

850 D0=0 

860 DV=0 

870 D2-0 

880 RETURN 

890 P=RND(414)+105e 

900 IF PEEK(P)<>CN THEN 890 

910 RETURN 

920 FOR 1=1 TO 5 

930 SOUND 35,10 

940 SOUND 5,10 

950 NEXT I 

960 S=S+1 

970 GOTO 90 . 

980 CLS 

990 PRINTC^i200, "JOYSTICK (S/N)" 
1000 D$-INKEy$ 

1010 IFD$=" "THEN 1000 m 
1020 IFD$= "S' TH£NJK=1 S 
1030 RETURN © 
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Inteligencia artificial/Aplicaciones 




Hablar con naturalidad 



^Por que es tan dif icil lograr que 
los ordenadores nos 
comprendan cuando les 
hablamos? Busquemos la 
respuesta 



Hola. ordenacior. 

AGUARDO TUS ORDENES, iOH TODOPODEROSO! 

En realidad ya me estoy cansando un poco del asunto 

estedel "todopoderoso". ^PorquS, de momento, no 

volvemos otra vez al "senor"? 

LO QUE USTED DIGA. SENOR. 

Bien. Bueno, quiero que me ayudes a encontrar un 

ejempio para un articulo que estoy escribiendo. 

iQUE CLASE DE EJEMPLO? 

Un ejempio de dialogo hombre-maqulna. Se que lo he 

visto, pero no conslgo recordar donde. 

cPUEDE DARME ALGUNA PISTA? 

Bueno, hace poco estuve leyendo un libro.., 

iQUE USTED ESTABA LEYEhJDO UN LIBRO? 

Mira, creia haberte dicho ya que dejaras el sarcasmo. 

LAS RUTINAS IRONICAS SE HAN INHABILITADO DE 

ACUERDO A SUS INSTRUCCIONES, SENOR. 

Hmmmmm. De cualquiermodo, habia una 

conversacion realmente buena entre un vendedor y Eliza. 

ELIZA ERA UN SISTEMA DE PAUBRAS CLAVE MUY 

PRIMfTIVO, 

Ya lo se. Pero el vendedor no se daba cuenta de que 
estaba comunicandose con un ordenador. Creia que 
estaba hablando con alguien llamado Paco Savater a 
traves de una Imea de teletipo. Era muy comico. 

AJA. 

Pedia usar el lerminal para una demostracion y la 
maquina se limitaba a darle respuestas no 
comprometidas, 

IQUE LA MAQUINA IE DABA RESPUESTAS NO 
COMPROMETIDAS? 

Exacto. E] vendedor se Iba enfadando cada vez mas y 
finalmente \\m6 a Paco Savater y te grito por telefono: 
"iQm demonios pasa?" 
AH. AQUEL EJEMPLO. 
^Sabes donde hallarlo? 

SI. PERO NOTENGO INTENCIONES DE DECIRSELO. 
iPero necesito un ejempio de dialogo para mi articulo! 
YO YALE HE DADO UNO. 

Este es el tipo de interaccion hombre-m^quina en 
lenguaje hablado que es muy poco probable que se 
prodozca antes de que finalice este stglo. Las razo- 
ncs son muy ilustrativas y hablaremos de ellas mas 
adelante^ pero pnmert) con side re mos por que los 
investigadorcs de Al desean seguir dedicando sus 
esfuerzos al problem a hasta que una charla como la 
del ejempio se haga realidad. 

La respuesta es simple: ei lenguaje (en especial 
el habla) es e! medio por el cual nos comunicamos 
casi con tod as las personas y todo lo que nos rodea. 




T 




I© 

■0 





TO M£, LO 

_ '^CTjf M M §>^ k 1^ t « 

JL_Mi^ if But " 

Parece natural^ entonces, desear comunicarse con 
un ordenador de la misma mancra, cn lugar de 
tener que pasar por los procedimientos de escribir 
programas, insertar discos, etc. 

El inter es por el proceso por ordenador del len- 
guaje natural surgio en los anos cincuenta. La pri- 
mera aplicacion fue la traduccion mecaoizada. Se 
invirtio mucho dinero y mucho esfuerzo en intentos 
por traducir automdticamente documenlos tecnicos 
del ruso al ingles (entre otros idiomas). Resulto ser 
muchisimo mas diffcil de lo que habian previsto la 
mayoria do las personas. Aun hoy, no existe tal 
eosa como la traduccion mecanizada, si bien hay 
sistemas de traduccion asistidos por maquina, que 
vjenen a ser procesadores de textos biliiigiies suma- 
mente so fistic ados. 




Dime por qui 

Et programaSHDRLU de 
Winograd permitia que los 
Lsuarios trans in itie ran 
Snstrucciones a un robot 
simulado en la pantalla en 
lenguaje natural, con el fin de 
manipularlosbloques de 
construccton. El programa 
asimiiaba instrucciones tales 
como "apilar el cub o rojo 
grande y el cubo verde sobre el 
bloqueazul", inlciandose ta 
secuencia correcta de acciones* 
El ordenador tambi^n pod fa 
explicar los motives de sus 
acclones en respuesta a 
preguntasformuladas por el 
usuarlo en jenguaje natural 
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Aplicaeiones/fntaligencia artificial 



Una rosaesunarosa 

Las ambiguedades mtrinsecas 
del lengiiaje habiado plantean 
series problemas a los sistemas 
de reconocirrtiento de voz: 
'rose " (rosa) , "rows " (fifas) y 
''roes" (hums de pescado) 
suenan igual. peroposeen 
significados muy diferentes que 
s6lo pyeden dilucidarse dentro 
del contejcto de una frase. Por 
ejamplo, la verBidn correcta de 
rose/rows^foes nos resulta 
evidente por el significado de la 
oraci6n 'the choir t>oyBS^t in 
rows" (los ninosdel coro se 
sentaban en fiias), pam podria 
ser dif icil hacerie entender al 
ordanador que los ninos del 
coro nomnafmente no se sientan 
en "huevas de pe^cado" {foes} 





El primer programa que utilizaba un idioma y 
que result6 un ^xito (al menos desde el punto de 
vista de las relaciones publicas) fue ei sistema Eliza, 
creado por Joseph Weizenbaum en 1966 y que imi- 
taba (o parodiaba) a un psicoterapeuta rogeriano 
no directive. Esto significaba que gran parte de su 
discurso consistia en comentarios carentes de con- 
tenido, como "Ya veo" y '*Continue'\ o en la repe- 
tici6n de lo que habfa dicho la persona de una 
forma sutilmente modificada. A modo de ejemplo, 
un intercambio era: 

Necesito algOn tipo de ayuda, eso parece seguro. 

6QUE SIGNIFICARIA PARA USTED OBTENER 

ALGUNAAYUDA? 
El propio Weizenbaum se sintid constemado por la 
seriedad con la que muchas personas se tomaron lo 
que el consideraba un tmco inteligente y, en conse- 
cuencia, se convirti6 en udo de los criticos mas se- 
veros de la Al. 

Probablemente el primer sistema util de lenguaje 
natural (LN) haya side el Lunar, de Bill Wood 
(1970). Se trataba de un sistema que permitla a los 
ge6!ogos formular preguntas sobre las muestras de 
rocas conseguidas en las misiones Apolo. El Lunar 
podia hacer frente a solicitudes tales como: 

Dame todos los analisis practtcados sobre la mtrestra 
10046 de hidr6geno. 

y 

Dame los deoxfgeno. 
donde los, en la segunda oraci6n, alude a todoS los 
analisis practicados sobre la muestra 10046 de la pri- 
mera oraci6n. 

Sin ninguna duda, el sistema LN m^s impresio- 
nante hasta la fecha es el programa SHDRLU de 
Winograd, de 1972. Este tour de force quizci no 
tenga la importancia que se crey6 en aquel enton- 
ces, pero prod u jo uno de los inter cambios hombre- 
mdquina m^s memorables que se hayan publicado, 

25. iPor qii6? (Sigfiificando: iPor que sacaste la 
pif^mide verde?) 

PARA LIBRARMEDE ELLA, 

26. iPorqu6hlcisteeso? 

PARA DESPEJAR EL CU80 ROJO. 

27. ^Por despejaste ese cubo? 

PARA PONERLO SOBRE UN CUBO VERDE 
GRANDE. 

28. ^Porqu^hlGlsteaso? 

PARAAPILAR EL CUBO ROJO. UN BLDQUE ROJO 
GRANDE Y UN CUBO VERDE GRANDE. 

29. IPor qu6 hipiste eso? 
PORQUE TU ME LO PEDISTE. 

El programa de Winograd permitia que el usuario 
controlara la operacidn de un robot simulado en un 
microcosmos que contenia bloques de construccidn 
para niiioSj digitando en ingles en una consola. La 
extension de sus tecnicas para tralar con el habia en 
lugar de la mecanografla, y a dominios de la vida 
real complejos que el de un mundo de juguete, 
ha resultado dificil. Desde entonces el progreso ha 
sido constante pero nada espectacular. 

Los sistemas descritos hasta ahora han sido todos 
relativos a la interpretacidn de material textual, 
Pero ese no es mas que uno de los cuatro aspectos 
principales del uso del lenguaje, cada uno de los 
cuales posee caracteristicas diferentes, Tratar con 





Produccldn 


Comprensitin 


1 CAIU 




LGCiura 




(miiy Mcil) 


(diffcil) 


HabIa 


Hablar 


Escuchar 




(fScil) 


(muy diffcil) 



el texto es m^s f^cil que tratar con el habla, porque 
el lenguaje escrito posee un esquema de codifica- 
ci6n digital existente, mientras que el lenguaje ha- 
blado exige dificiles transform aciooes acuslicas/fo- 
n^ticas. La producci6n del lenguaje en cualquiera 
de sus formas es considerablemente m^s senciUa 
que su comprension, dado que esta ultima casi in- 
variablemente entrana completar una gran canti- 
dad de informacidn implicita. Por todo ello, de ias 
cuatro tareas la que mas desafios supone es !a com- 
prension del lenguaje hablado. Bs importante re- 
saltar este punto, porque es posible obtener dispo- 
sitivos que reconozcan palabras con una elevada 
fiabilidad (p. ej., entre un 96 y un 99 %) pronun- 
ciadas por una pequena seleccion de hablantes 
(entre uno y cuatro) de entre un vocabulario limita- 
do (por lo general, entre 64 y 128 palabras). Existe 
gran diferencia entre el reconocimiento de palabras 
aisladas y la comprension del habla continua. Algu- 
nos de los problemas que se presentan son: 

L Ambigiiedad: "rose" (rosa) no es "rows" (filas) 
ni "roes" (huevas de pescado) (en ingMs^ estas 
palabras se pronuncian exactamente igual). 

2. Ruido de fondo: la filtracion del sonido circun- 
dante, 

3. Variaciones entre hablantes: acentos regiona- 
les y dialectos. 

4. Variaciones del mismo hablante en el tiempo: 
ton OS de felicidad, depresioRj emocion. 

5. Segmentacion: ''Sololosordenadoreshacenin- 
tervaiosen trelasp alabr as . ' ' 

Los mas graves de estos problemas son el 1 , el 4 y el 
5. La ambiguedad no es una mera cuestion de ho- 
mofonos como "see" (ver) y "sea" (mar). Pronom- 
bres como "it y "him" (de tercera persona del sin- 
gular, correspondientes, segun genero y casos, a 
"el", "ella", "eso", "ello", "lo", "la" y "le" el pri- 
mero, y "le", "lo" o **el" el segundo) son intrinseca- 
mente ambiguos: su significado s61o se puede de- 
sentranar examinando el contexto del diilogo. Por 
encima de e!!a, est^n las ambiguedades Ungiiisticas 
ejemplificadas en la frase: "Those things over there 
are my husband's" ("Aquellas cosas que hay alM 
son de mi marido"): con solo quitar el apostrofo, el 
significado cambia por completo (entonces seria: 
''Aquellas cosas que hay alii son mis maridos"). 

En cuanto a las variaciones de un mismo hablan- 
te, podra comprender el problem a si imagina que 
ha instalado una cerradura por voz en la puerta de 
su casa. Durante la fase de entrenamiento puede 
someterla a varios ejemplos de usted mismo dicien- 
do: "Abrete, Sesamo." El mecanismo obtendr^ 
una media de ellos y guardara el promedio de la 
voz como una plantilla de referenda, Todo ello esta 
muy bien hasta la noche en que usted regresa a casa 
con mucha prisa y ordena un jadeante "[Abrete, 
Sesamo!" J ante lo cual la puerta controlada por or- 
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denador replicara con gran serenidad: "Vioiacion 
de identidad: denegado el acceso." 

El problem a de la segnientaci6n se pi an tea por- 
que las personas unen las palabras entre si. La deci- 
si6n de donde cortar una senal acustica continua 
para formar las palabras no se puede tomar sobre la 
base de la informaci6n acustica solamente. En ge- 
neral, requiere contribuciones de cuatro fuentes: 

# Acustica: la forma de onda del habla. 

• Sintactica: las reglas de la gramatica. 

• Semantical lo que tiene sentido. 

# Pragmatica: lo que el bablante desca. 

El sistema Hearsay, creado en 1976 en la Universl- 
dad Camegie-Mellon y perfeccionado posterior- 
mente, hace use de las cuatro ftientes de conod- 
miento. El dominio de m tarea es el ajedrez, y el 
usuario puede jugar con el ordenador impartiendo 
instrucciones habladas. Cada nivel de informacion 
lingiiistica contribuye a la "comprension" de una 
entrada ayudando a eliminar hipotesis poco coovin- 
centes acerca de lo que se dijo. For ejemplo: 

Queen to King 2." (Rcina a Rey 2.) 

Cabe puntualizar que, fonelicamentCj ''Queen" y 
''King'' son parecidos, al igual que "to" y "2", 
Sobre la base de la serial dc sonido exclusivamente, 
son posibles las siguientes expresiones: 

Instruccion liablada ^Sintdcticamente valida? 



1. 


K to K to 


no 


2. 


KtO K2 


si 


3. 


KtO QtO 


no 


4. 


KtO 02 


sf 


5. 


K2 KtO 


no 


6. 


K2 K2 


no 


7. 


K2Q10 


no 


8. 


K2Q2 


no 


9. 


Q to K to 


no 


10. 


QtO K2 


sf 


11. 


Q to Q to 


no 


12. 


QtO Q2 


sr 


13. 


Q2 KtO 


no 


14. 


Q2 K2 


no 


15. 


Q2 QtO 


no 


16. 


02 Q2 


no 



Si bien el sistema no puede discemir con fiabilidad 
entre "two" y "to" o cntrc "K" y "Q", suponc que la 
expresion era una "oracidn de ajedrez'* legal y, de 
acucrdo a la sintaxis de ese lenguaje restringido, 
solo los items 2, 4, 10 y 12 son gramaticalmente 
correctos. El resto se puede eliminar. 

Otra suposici6n {y mas determinante) es que el 
hablante esta tratando de jugar al ajedrez legal. Su- 
pongamos que, en esta partida en particular, las 
oradones 4 y 12 son ilegales porque el jugador 
tiene una pieza (un peon, p. cj.) en Q2 y, por su- 
puestOj no intentara capturarla, Ese movimiento 
no pasa la prueba semantical en el lenguaje del aje- 
drez, cs una oraci6n que no tiene sentido. 

Por ultimo, quedan dos candidatas (ntimeros 2 y 
10). ^C<3mo hace el sistema para elegir una de las 
dos? Puede que haya una preferencia a partir de las 
sefiales de sonido, pero es poco probable que la 
misma sea decisiva. En general, invoca una infor- 
macion pragmatica: hace una suposicion muy 
firme, que no es otra que la de que el jugador in- 
terna ganar la partida. Si ve que (de acuerdo a sus 
propios algoritmos de evaluacion de ajedrez), K to 



/Que has dicho? 



COMPAR^AnON DE SBQUTL'D DE PLANTILUS 



PL-JOmLU^S DE REFERENTIA 
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MARCADORES DE DISTANCIA 



REGLA DE DECISION 
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PALABRARECONOCIDA 

K2 es virtualmente suicida, mientras que Q to K2 es 
un buen movimiento, adoptara este movimiento 
como su interpretacion. 

Concluimos este analisis consider an do un peque- 
no ejemplo que le debe mas a las simples tecnicas 
de emparejamiento dc palabras claves del Eliza 
que a los ulter lores trabajos mas sofisticados. La 
base de datos utilizada en nuestro program a de in- 
terrogaci6n es una tabla de las 16 empresas britani- 
cas mas grandes (datos de 1982-1983). Todas las 
interrogaciones se interpretan intentando descubrir 
a que firma o a que prcsidentc se refiere y que atri- 
buto de esa empresa o dc csa persona se desea. 
Puede responder a preguntas como: 

^Quten es el prcsidente de ICI? 

^Cual fue la cifra de beneficios de GEC? 

Pero no puede ofreccr una rcspuesta coherente a 
preguntas mas complejas. 
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El lenguaje es mucho mas 
un conjunto de paJabras 
indrviduales; cuaiqaier sisi 
cJe reconodmrento de voz 
empezar por reconooer las 
pe^ras de forma fiable; e 
aa^s^ sesttanlKO mas 
sofeticado no sirve sin la 
materia prima, las pa[abra 
lasquetrabajar, LossJstei 
estsndams de reconocimiE 
de voz comienzan pordivii 
sena] de entrada en sus 
CO m pon antes de baja. mei 
alta frecuencia mediante e 
def litres . Los pat rones 
acusticDs resiiltantes se 
comparan luego con tos di 
referencia en fa memoria y 
producen marcadores de 
di stand a (relaoionados co 
grade de exactitud con qu- 
encaja el patr6n de entradi 
de referencia), Luego un 
procedim lento de decisidr 
analiza ^stos para clasifica 
entrada habiada 
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Programa de lenguaje natural 



1€0 G0SU6 10€0 ; REM leer la ' b€SB de dalos^ ' 

110 Gosus mo-Mu im datos de sinonimos 

120 LAST%=0 

1 25 PRINT' " Se algo Mbre las principales einprfisas brilsiiicas: " 
12^ PRINT "Pideme informacion sobie ellas. "" 
15fl REM "-'BUCLEPRINCIPAL ■■■■ 

160 INPUT as 

166 IF aS=- THEN GOTO 230 

170 GOSU83000:REMhall3rlc™ 

177 IF QT< 1 THE N PR I NT " Lo siento. i m compiendo ! " 

180 G0SUB™:HEMh.ill3rakibu(D 

m IF AT<1 AND aT>0 THEN PRINT " M&temu que no 10 se.^ 

190 G0SU8 MOO: REM fonmgj nejpu^St^ 

200 LAST%=O0% 

220 IFQSo " THEN ISO 

250 PRINr"Adios,poratiorar' 

3W END 

99^ : 

1t)0€ REM— Rutins entradadedalas: 
1010 C%=0 

102O DIM QB&(9.32) : REM ba^ de dalas 
1024 RESTORE 

1030 REM ■"*''TOMAR DATOS**** 
104C READXS 

105)0 IFXS="" THEN GOTO 1110 

1060 C%=C%+1 

1070 DB|(1.C%)=XS 

1075 PRINTXS 

1090 FOR 1% -2 TO 9 

lOJO READ D&S[1%,C%) 

It 00 NEXT 

niO IFX$<>- "THEN103O 
1120 PRINT ■C%."elemBntos leidos/' 
1150 RETURN 
1155 : 

3000 REM — Rutina para hallar iMia: 
3010 OlT-0 

3030 IFLEN{QS)<1 THEN RETURN 

3025 ca%=o 

3010 REM ■ ■ " BUSCAR EMPRESA 

3040 CO%=CQ%+^ 

3050 NS=Oe$(1.CO%)'GOSUB330O 

3055 IF SK THE NOT- 1 

3050 NS -O85(2.CO%);GOSL/B330O 

3065 If SKTHENQT=t 

3070 IF QT<=OANDCO%<C% THEN 3030 

30a0 IF OT>0 THEN RETURN 

3090 C0%=0 

3100 REM '"'BUSCAR PR ESIDENTE"" 

3105 C0%-C0%+1 

31 10 NS = DaS<4,C0%):GOSUB 3300 

3115 IF SK THEN 01=3 

3120 IF QT<=0 ANO CO%<C% THEN 3100 

3132 IF OT>0 THEN RETURN 

3133!FLAST%=0THENRETURN 

3135 N$= su-:GaSUBB0O;IFSKTHENaT=1:CO%=UST% 

31 40 Nt - "sy" :GOSUB 3300iF SK THEN Cn"= 3: C0% = LAST% 

31 44 N$ = " Qllos '■ iGOSUB 3300:1F SK THEN 0T= t : €0% = IAS1% 

3146 N$='-el';GOSDB3300;IFSKTHEN QT=3;C0r»-LftST% 

3150 RETURN 

3190 : 

3300 REM " ■ ' RUTINA PARA BUSCAR ■ " ' 
3325 IFLEN[NS}>LEN(QS)THENSK=0 
3330 REM primera porter en irintisculasi 
3340 J^S= 

3350 FORP%=tTOLEN(QSJ 
3360 XS=MtDS{QI,P%.l) 

3370 lFASC(X$}>64AND ASq3($}<91 THENXS=CHR$(ASC(XI) 

4-32) 
^0 BS=BS+XS 
3390 NEKT 

3400 FORP%=tTOLEN(NSj 
3410 XS MIDS[NS,P%.1) 

3420 I F ASC{X$}>64 AND ASC(!($) <91 THEN X$= CHRSt32 -i- ASC^{XS)) 
3430 AS=A$+XS 
3440 NEXT 

3450 SK=INSTRtB5.ASJ 
3455 RETURN 
3460 : 

™o R EM ~ Rulina piara hallar atribiito: 
4010 AT=0 

402Q IF 01=0 THEN RETURN : REM eNo sirve! 
4030 A%=0 

4040 REM ' * " HALLAR ATR I BUTO " " 

4050 AT. AT-H:WD$="" 

4070 REM CGMPROBARCAOASENONIMO'*^' 

4075 y%={i 

4060 A%=A%+1:XS=S${A%) 

40&e IFWD$=' "THENWDS=X$ 

4090 IF X$<>-^ "THEN NS=XS:G03yB 330O:V%=SK 

4m \f XS< > " * " AND =0 THEN 4070 

41 20 IF V%= 0 AND AT< = 7 TH EN 4040 

4l30IFAT>7ANDY%=0THENAT=0;REMf3]|iElfl, 

4133 IFAT=OANOQT=3THEHAT=1 

4140 RETURN 

4150 : 

5000 REM — Maquina respondiendo: 
5010 !FOT*AT=0 THEN RETURN 

5020 IF QT=3 OR AT=3THEN PRINT DftSt4,C0%);" es el presidefflle de 

DBS(1.C0%);".' 
5030 I F QT - 3 AND AT= 1 OR AT= 3 THEN RETURN 
5050 PRINT "El ^WD3;" de":D8|(2.C0%);" es ■'■DBI(AT+1,C0%J; 
5060 IF AT>3 ANO AT<7 THEN PRINT " milloJiK * libras"; 
5070 PRINT 
50S0 PeURN 
5200 ; 
SOOO : 



S010 REM iFifopmacion sobre fas empresaK 

8020 DATA BP, Rrilish P^rotei^m Co. , P^troleo. PI Waltenj, 

34583,1 7306,SS&9, 145150, Rftino Unido 
5030 DATA Sh^l UK.Shell Transport & Trading. Petroleo.Sir Peter 

Bajtendall. 2 191 0,1 1962.3246. 1 11111 .Reino Unido 
9040 DATA BAT,"B.A.T. Indusrfies-. TatMTO.T. 

SheehyM1316,4607J 018,178000,RemoUnitfo 
8050 DATA ICI.Imperlal Chefnicaf Industries. Peljoquimlcos, 'J. M, Harvey- 

Jojies ■■ . 7359.5421 . 724 , 1 23800 . Reino UnidQ 
8060 DATA Shelt. Royal Dutch Shell PelfoleoJM 

Raisman . 6665.3704 J 206 , 1 9027 , Holanda 
8070 DATA Esso.Esso PeUoleum Co. , Pelroleo.AW Forsler,61 09,2891 .1315,7638, 

USA 

8090 DATA Unitever, Unilever pic, Alimentacion.K 0«f ham,5447, 2434 ,406 . 69233,Reino 
Unido 

8090 DATA Imperial. Imp&rFal Group, Tabaco.GC Kenl.4614.1124 J92,l0l300,fieino 
Unido 

3100 DATAP&O. P&OSteamNavfgatior)Co„Naviesa.JM 

Sterling . 4206.927. 77. 12512, Reino UnitJo 
61 1 0 DATA GEC , GansFal E lectric CO- , Ingen ier sa eleclrica.Arnold 

WeiJistocK.41 90 , 21 33,621 , 1 90302. Reino Urtido 
9120 DATAGiaod Mel, Grand M^dropolilan, Hoteles.SG 

Grinstead.3a49,2350.366.129454,ReifioUnido 
9130 DATA RTZ,Rio Tinio Zinc Coipo ration, Mlnejia.SirAnlhojiy 

Tuke , 3630,51 63. 402 . 703 1 4 . Reino Unido 
81 40 DATA Fo rtt.Fo f d Molof Co . . Veh iculos automoteres ,SES Toy , 

3297.21 43. 273. 69500,USA 
6150 DATA British Leyland. British LeyJantJ plc.Vehiculos automotores.Sir Mir^ael 

Edwardes. 3072 , 1 346. ..■ 1 02,1 05062 , 

Reino Untdo 

8160 DATA GWH, George Weston Holdings. ANmentacion, GH 

WestGn,2981 ,8t7,157.72932,RBiJio Untdo 
81 70 DATA Be risf &rd , S a W Berislord ,Mergancias,ES 

Marfluties, 2729 , 768.67 , SI 90, Reino Unido 
8440 DATA^*" 

8500 REM ' LEER DATOS SINONIMDS * ' 
3510 DJMSI{62) 

3520 FORP%-1T061-READS${P%):NEXTP% 
8530 PetlRN 
6540 ] 

9000 REM— sinoninios: 

901 0 OATA.enipjesa,firrna,of9anizac]on.(5orporacion. ' 
9020 OATA negctcio.afllividad.oomerciojnduslria. indole, 
manuractura.^ 

9030 DATA presid&^le,jele.supremo,djreclor.encargado.cabeza. 

lider.lleva.quien/ 
9040 DATA movrmienEo total, canlidad.ventas.bruto.ingresos, 

Cuantia,' 

9050 DATA capiial.dinero , accion ,vaior.i;nteres,ef eclii* 

9060 DATA beneficwi.pmpue.sto .hecho , perdidas, perder, reaJi^zar . 

dcvotver.ganar,GEianto,* 
9070 DATA msno de ot>ra,eiripleados . emplear. Irabajo , personas , 

cuantos,obpero,* 
9090 DATA pais , rtacion, reino unido.britan ica . eKtranjensL^corttroln 

br5pen,dondE,' 
9090 : 



Complementos al basic 

El programa esta escrfto para el BBC Micro. Para el Commodore 
64 y el Spectrum, introducir las siguientes modif lead ones: 

Commadore 64: 

3450 SK=0 L-LEN(A$) 

3451 F0RT-1T0L-1 

3452 FOR R-1 TO L 

3453 IFM[Oi(A$.T,R)-BSTHENSK-T:T=L:R=L 

3454 MEHRiNEHT 

Spectrum: 

Eliminar todos los signos % de los nombres de las variables. 
Reemplazar LAST% por LA, DB$(,) por D$(,) y WDS por W$. 
Introducir estos cambios: 

1020 DIIVtD$(9,32.3Q) 

3360 L£TXS-QS{PTOP) 

3370 IF C0DE(X$)>64 AND C0DE{XS)<91 THEN LET 

X$=CHR$(CODE{X$) + 32) 

3410 LETX$ = N${PTOP) 

3420 IF C00E(X$)>64 AND C0DE{X$)<91 THEN LET 
X$=CHR$(C0DE{XS)+32) 

3450 LETSK=0:LETL-LEN(A$} 

3451 F0RT=1T0L 

3452 FOR TO L 

3453 IF AS(T TO T+ R) = B$ THEN LET SK=T:LET T- LlET R = L 

3454 NEXT R: NEXT T 

4090 IFXS(T0 1)<>'*" THEN N$^X$:GOSUB 3300: LET 

41 00 IF X$(T0 1 )<> ' AND YY=0 THEN GO TO 4070 
8510 DIMSS(62,20) 
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Maestro 



Antes de ''conocer" la musica, debe saber que el juego que 
presentamos emplea f unclones propias de microordenadores 
concebidos segun el estandar MSX 



Este programa no es, en realidad, un juego; consti- 
tuye, mas bieo, una buena demostracion de las po- 
sibilidadcs musicales del Spectravtdeo- En esla 
crcaci6n ee la meoor de J.-S. Bach se utilizan solo 
dos vias. De usted depende agregar una tercera. 



1 0 REIW **■*■**■****■******'■******'*■*********■*■****■**■**''*■* 
20 REM * MAESTRO 

40 KEY OFF 
50 CLEAR 50O0 
6D SCREEj4l,2 

70 AS-"V5T32L3304R32EA05CO4BEBO5DL16CEO4G#O5E'' 

SO A1S-"V5T32L3202Al603A8G+t6AEAO4CO3eEBO4D" 

90 AS=AI+"0^L32AEAO5CO4BEB05DLT6C04A&Rl6'' 
1 00 A1S= A1S+ "L1 6C03Ae+ EL32AEAO4C03BEB04D" 
no AS=AS-r"05L32fi32£CE04AO5C04EGLl6FA05DfL32f0- 
120 A1S= AIS^ ^L1 6C03A04CO3AL32O4DO3AFAJ)FO2AO3CO2 
LT6B' 

130 3^'O4»^5D04G80FLlGEe05CE' 
(HOP 

150 BS=SS^ a32EC04AO5CO4Ll6FO5DL32OO4BGBL16ED&G 

L32C04AFAL16DB05C8aa" 
1 60 BS - BS f " 04L32 R32GO5CE0 04G05D FL1 6EG04e05G L32C04G 05CEOO4G " 
170 BlS=ai$+ "L16ECO36GL32Q4C03GO4CEI3O3GO4DFL1 6EC8" 
180 CS- ' 05DFL16EC6E " 
190 CT$= "RlfiR32L32GEGCE03G&" 
2O0 GS - CS+ ' OeL32C05AEACE04 A05CL1 6DF+ A06C^ 
210 C1$=C1S+"L16A04CEGL32F+ADF+03A04D03F+A" 
220 CS = C$-t " im &B GOG04B05D 04GB05L1 6CE6BL32 AF+ " 
2m CTS= C1S+ '^166B04DF+U2EGCE03604C03EGL1 
240 DS - " D + f + 04BG5D 4 04F + AL1 6G05GL32GECE " 
250 D 1 S - " AB040 + L32R32ECEO3A04CEG " 
2e0 DS=DS+ ■'04L16AO5F+L32F+D04B05DO4L16G0SEL32ECO 

4A05C' 

27D D1 $=D1S+ "F+D03BO4DO3GeO4DF+EC03AO4CO3F-s-A04C16" 
2flO OS-DS+"04F+05eF+ED+F+04eO5D+EeRSL32'' 
290 01S= D1S+ "COaBO^COaALI 6B02B03L32EO4EO3BGE02B 
GB" 

300 ES - ' R32GB - G EG C+ EGEC + E04 AGFEDOSFA- FOF04B05DE 
D04B05D04G FEOC05EGECE04A05CD + C04AD5C04F+ EO 
+C+03B05D" 

31 0 'L1 6EO3E6B-C+aRS04DO3DFA-O2BSR8O4C03CEF+ 
02A8ftS03B" 

320 F$ = F004 BOS D04G + B05DO4BG + BER32R 1 6R32EAO5C04B 

EBOS OLl eCO4A6+EL32AO5CEC04A0SCO4F + A05C04 AF 

+AD+05CO4BAG+B" 
330F1i=''02B03DF02G+8R3204L32DC03B04L16C03AG+EL 

32AEA04C03B EB04 DCEAECEO3AO4C03F + A04C03AF+ AD + F 

+L16E^ 

340 Gi = " 05DO4BG+ BD F6+ FDF03BO4FEDGEAECEO3A04C Q + 
CO3A(MC03F+ 04CO3BAL16G+ 04BG+ER32L32EAO5CO4BE 
BO5DC04A'' 

350 GI S- " G + BG + E02BG •+ EAO3CECO2A03CO2O + 8R32 L3203 

eG+EDBG+DLI 6CE026+03E02A" 
360 ''05CED04BO50FECEGFEDGO48O&CDEFOG+D8OCAF 

DO4B05DO4G+ BO5G04 AEABG + AECE03AB " 
370 H1S= ■O3F+02BO3G+CADB - G+ F002BG+ ADEFD+E03E 

02ABAfl'' 
3S0 FOR 1=1 TO 10 
390 XS-XI+CHRS(0) 
4O0 NEJCTI 

41 0 XS - XI + C HRS(30J + CH RSteS) + CHRS(1 27)+ CH RI [1 27) + 

CHRS(63J+CHR$f30) 
420XS=XI+GHR^(192)+CHRS(160J+ 

CNflSd 44) + CKRSd 44) + GH R$[ 1 44) +CHR$(1 60) 




430 FOR 1=1 TO a 

440 Xi=XS+CH:Ri{12e) 

450 NEXT ( 

460 Xi=XS+CHR$^0}+CHRS(0) 

470 SPRITE£[1)=X$ 

480 60SUB660 

490 PUYAS,A1$ 

500 GOSUB660 

510 PLAVBS.BIS 

520 GOSUB660 

530 PLAY C$, CIS 

&4D GOG UB 660 

550 PiAY DS.DIS 

560 G0SLJB 660 

670 PLAYES,E1$ 

580 GOSJB 660 

590 PLAYFS,F1S 

6O0 GOSUB 560 

610 PLAYG$,G1S 

620 GOSUB 660 

630 PLAVH$,H1$ 

640 GOSUB 660 

650 GOTO 490 

660 F0R]-1T0t5 

670 X=RND(1)"240 

680 Y-RNO(1)*176 

690 PUT SPRITE I, (X,Y),RND(1JM5,1 

700 FOR J- 1 TO 60 

710 NEXT J 

720 NEXT I 

730 RETURN 



Programaci6n/Go 



Reglas del juego 



Al iniclar esta serie dedicada a 
desarrollar un programa para 
jugar al "go", proporclonamos 
las reglas de este milenario 
juego japones 



Los buenos programas para jugar al ajedrez ya son 
bastante comunes y los mvestigadores dedicados al 
estudio de la inteligencia artificial han volcado su 
interns eo juegos mas oomplejos. Uno de estos es el 
go. Si bien las reglas de este juego oriental son mu- 
chisimo m^s sencillas que las del ajedrez, se lo suele 
considerar como muchisimo mas sofisticado. Tras 
mas de 20 afios de investigaciones, ios mejores pro- 
gramas aun joegan a un nivel apenas superior al de 
Ids recien iniciados. 

A lo largo de la serie desarrollaremos un progra- 
ma para jugar al go. Aun no siendo sumamente 
eficaz, el programa proporciona una buena intro- 
duccion al Juego y se erigira en un valioso oponente 
para el recien iniciado. El programa se ha disenado 
especificamente para que sea facil modificarlo y de- 
sarrollar lo. 

El go es un juego para dos personas que se desa- 
iTolla en un tablero de 361 intersecciones (fig. 1), 
Los dos jugadoreSj que juegan el uno con fichas 
blancas y ei otro con negraSj colocan alternativa- 
mente una de ellas en cualquier interseccion vacan- 
te del tablero. Observe que las fichas se colocan en 
las uniones de lineas y no en los cuadrados. 

El objetivo del juego es rodear territorio (Inter- 
secciones vacantes) con las propias fichas de cada 
jugador. Para ganar, las fichas de uno deben hall ar- 
se rodeando el territorio mas grande al final del 
juego. 

En go el primer movimiento siempre lo realizan 
las negrasj que por lo general corresponden al juga- 
dor mas debit. De haber una diferencia significativa 
entre las destrezas de juego de los dos jugadores, el 
primer movimiento de las negras consist! rd en colo- 
car entre dos y nueve fichas de handicap en el table- 
ro, situandolas de acuerdo a un patron especifico 
en los nueve puntos marcados en el tablero (fig. 1). 

Limitarse a rodear territorio es excesivamente 
facil; tambien se pueden capturar fichas y eliminar- 
las del tablero. Todo punto vacante inmediatamen- 
te adyacente a una ficha (a lo largo de una linea) se 
denomina licencia. For consiguiente, cada ficha in- 
dividual puede tener dos, tres o cuatro licencias, 
segun la posici6n que ocupe en el tablero (fig. 2). 
Para poder capturar una ficha del oponente, usted 
debe colocar su propia pieza en tod as las licencias 
de la ficha del oponente. En la figura 3 vemos que, 
si el ultimo movimiento de las negras fue ocupar la 
ultima licencia de la ficha blanca, esta ultima seria 
eliminada del tablero, Todas las fichas capturadas 
se suman al marcador del jugador. 
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Si uno o mas puntos adyacentes de una ficha se 
ocupan con otras fichas del mismo color, se dice 
que las mismas estan conectadas y que forman un 
grupo. Las conexiones en diagonal no forman enla- 
ces entre fichas: en la figura siguiente, por ejemplo , 
vemos cuatro grupos, y no tres: 




Capturar grupos es mas dificil que capturar fichas 
individuales, porque se han de eliminar como si se 
trataran de una sola unidad. Por tanto, las negras 
pueden tener que ocupar 15 puntos de licencia para 
poder capturar un grupo de fichas blancas. 




Esto en realidad es todo lo que se necesita saber 
para poder jugar al go^ pero existen algunas com- 
plicaciones dcrivadas de las reglas resenadas: 

Suicidio: A tenor de las reglas, es posible que un 
jugador coloque una ficha de modo que no tenga 
ninguna licencia. Por ejemplo, si les tocara jugar a 
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las negras, cualquiera de los puntos marcados en la 
figura 6 produciria esta situacion. Este movimien- 
to J denominado suicidiOy esta prohibido en el go. 

Ko: Significa "infinitud" y alude a una posible si- 
tuacion en la que las fichas se podnan colocar y 
capturar indefinidamente. Los dos diagramas si- 
guientes son cases comunes de esta situaci6n. 




Para impedir esta situad6nj las reglas del go prohi- 
ben que un jugador coloque una ficha de modo tal 
que se produzca la posici6n 'inmediataraente ante- 
rior". Esta regla hace efectivas lo que se conoce 
como luchas Ko. Si no se permite que las blancas 
recapturen inmediatamente una ficha debido a la 
regla Ko, entonces^ obvtamente, se debe jugar una 
ficha intermedia. Esta generalmente se coloca en 
una posicion que amenace ya sea a una ficha negra 
0 bien a un grupo. en algun otro lugar del tabIero< y 
se conoce como un Seme (forzar una respuesta). 
For tanto^ la5 negras qo pueden ocupar el pun to 
Ko, que da por terminada la lucha Ko. y las blancas 
pueden recapturar la ficha Ko negra. Ahora las ne- 
gras tienen prohibida la recaptura inmediata y 
deben tratar de halJar un movimiento Sente si es 
que quieren que la lucha Ko continue* 

Un concepto muy importante que se desprende 
de estas regias es el de "vida y muerte" para un 
grupo de fichas, Ya hemos visto que es imposible 
que las negras jueguen en la interseccion vacante 
en el medio del grupo (fig. 6). Observe, sin embar- 
go, que Si aqui hubierao de jugar las blancas, el 
grupo negro seria capturado. 

Tambien sucederia que si el grupo negro no estu- 
viera rodeado por fichas blancas, luego estas no po- 
dnan colocar una ficha en este punto. Se desprende 
que si las blancas quisieran cap fur ar este grupo 
negro, la ultima ficha blanca colocada deb en a ha- 
ll arse en este punto vacante tras haber rodeado por 
cgmpleto el grupo negro con ficha^i blancas. El 
grupo negro seria, entonces, eliminado del tablero, 
dan dole a la ficha bianca recien colocada cuatro 
puntos de licencia. 

Se dice que el punto que se halla rodeado por 
fichas del mismo color de esta man era es un o jo y 
sucede que el ojo debe ser siempre la ultima licen- 
cia ocupada para capturar el grupo. 

Avanzando un paso mas este concepto, podemos 
imaginar un grupo que contenga dos ojos, como el 
grupo bianco que aparece en la figura 8. Para cap- 
turar al grupo, la ultima ficha negra debe ocupar 
am bos ojos simultaneamente; pero esto es imposi- 
ble, iporque las negras s61o pueden colocar una 
ficha por vez! En consecuencia, este grupo (y todo 
el que contenga al menos dos ojos) se halla a salvo 
de captura, y permanecera en el tablero hasta el 
mal del juego (i siempre y cuando, por supuesto, 



las blancas no incurran en el error de ocupar los 

ojos!). 
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Ni siquiera es necesario que los ojos se hallen en un 
mismo gropo. Los tres grupos blancos de ia figura 9 
comparten tres ojos, y todas las fichas blancas estan 
a salvo de ser capturadas. No obstante, usted debe 
tener cuidado. Mediante la secuencia indicada, las 
negras pueden capturar la formacidn similar de la 
figura 10 (que se difcrencia en solo una ficha). De 
los tres ojos, el de mas abajo en realidad puede ser 
infiltrado por las negras; esto es lo que se conoce 
como faiso ojo. 
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Todps estos grupos han tenido formaciones de ojos 
totalmente desarrollados, pero en la practica no es 
necesario formar dos ojos para cada grupo, sino 
raeramente contar con el potencial para hacerlo 
ante un eventual ataque. 

El juego termina con el mutuo consentimiento 
de los jugadores, cuando ambos consider an que 
ninguna de las partes puede ganar ya nada mas. 
Este final mas bien ambiguo ha si do causante de 
muchos problcmas en los program as go, a los 
que aun les resulta muy diffcil decidir cuando debe 
terminar el juego. Este tambien se da por termina- 
do si ambos jugadores "pasan" en sus movimien- 
tos, devolviendole el control al oponente. Durante 
el juego se les permite a ambos jugadores pasar en 
cualquier momento, pero eOo se hace solo muy ra- 
ramcnte. 



iQMn gana? 

AHinal del jyego, se caicuia 
asi ei ma read or de cada 
jugador: 

1. Seocupantodoslos 
puntos neutrales, 
denomlnados dams. Estos 
los puede ocupar cualquiera 
de los jugadores, ya que no 
contaran para eS marcador final. 

2. T€das las ffchaso grupos 
que no puedan evStar la 
captura se eliminan del 
tablero, como si hubieran sido 
capturados. Eilo imptica que 
no es necesario capturar estas 
fichas 'muertas" durante el 
juego, St bien usted puede 
hacerlo sr asi lo desea. Se 
pod r fa efectuar !a secuencia 
de captura, pero no 
benefjciarta a ninguno de los 
jugadores. (Cada ficha 
defensiva colocada 
incrementariael marcador del 
jugador atacartte en un punto, 
pero este jugador tambien 
tendria que colocar una ficha, 
ecu pa ado par tanto su 
territoncy reduciendosu 
marcador en un punto,) 

3. Luego se caicuia el 
marcador de cada jugador 
como el numero de 
intersecciones vacantes (el 
territorio) controladoporei, 
menos el numero de fSchas 
capturadas por eloponente. 
6ana quien oblfene m^s 
puntos. 



1847 



Lmeas melodicas 



Nos hallamos en la segunda fase del proyecto: la conexion de las 
patillas del chip a las lineas de datos y de control del ordenador 



El chip adaptador de interface para comunicacio- 
nes asincronas (AC! A) constituye !a base de la in- 
terface MIDI y es compatible con los procesadores 
6502 y 6510 que utilizan el BBC Micro y el Com- 
modore 64, respecEivamente. For lo tanto, pode- 
mos enlazar las lineas de datos de direcci6n y de 
control del procesador con las patillas del chip. 

La placa final esta disenada para enchufarse di- 
rectamente en la puerta para ampliacion del Com- 
modore 64. La version para el BBC Micro debe 
conectarsc cn la puerta de tubo de la cara inferior 
del ordenador mediante un cable piano de 40 vias y 
conectores adecuados. Explicaremos por separado 
las conexiones que se deben realizar para cada 
micro. Una vez construida la placa, se pueden lle- 
var a cabo algunas pruebas simples para asegurar 
que funcione correctamente. Estas pruebas impli- 
can colocar datos en los registros del chip ACIA y 
efectuar on simple bucle de comprobacion, 

Es necesaria la decodificaci6n de direcciones 
para acceder a cualquier periferico que este conec- 
tado al bus de datos principal, pero que no posea la 
misma cantidad de lmeas de direcci6n que la CPU. 
Tales dispositivos suelen poscer una patilla chip se- 
lect que permite que el dispositivo utilicc el bus de 
datos cuando la linea de seleocion de chip esta acti- 
va. Las Hncas de conexi6n conectadas al dispositivo 
permitir^n la selecci6n de registros diferentes. 

Las senales de selcccion de chip para los diversos 
dispositivos conectados a J sistema se generan deco- 
dificando las lineas de direccion mas significativas. 
Se puede utilizar cada combinaci6n de bits de estas 
lineas de direccion para seleccionar exclusivamente 
un dispositivo. De este modo, las registros intern os 
del dispositivo apareceran en el mapa de memoria 
de la CPU, permitiendo acceder a cllos como si 
fueran posiciones noniiales de memoria. Sin em- 
bargo, se debe tener cuidado en asegurar que las 
direcciones utilizadas por el dispositivo no corres- 
pond an a registros relevantes empleados por el OS 
del ordenador anfitri6n. 

La puerta para ampliaci6n dei Commodore 64 
tiene dos salidas, etiquetadas 1/01 e 1/02. Estas li- 
neas se ponen low (bajo) cuando se accede a las 
paginas $DE y $DF, respectivamente. Conectando 
simplemente la Ifnea CS2 del chip ACIA con 1/01 , 
podemos asociar el chip a la pagina $0E. Debido a 
que el ACIA no esta conectado a las lineas de di- 
reccion de la Al a la A7, se puede acceder a los 
registros intemos del chip mediante cualquier di- 
re cci6n comprendida entre SDEOO y SDEFF. Conec- 
tando AO directamente a la patilla de selcccion de 
legist ro del ACIA, tod as las direcciones pares acce- 
der an a los registros de datos de transmisitWrecep- 
cion. La eleccion mas obvia para las direcciones es 
SDEOO (decimal 56832) y $DE01 (decimal 56833)- 

El BBC Micro Mudelo B ofrcce dos posibles 
puertas que se pueden utilizar para conectar la in- 



terface, cada una de las cuales presenta sus ventajas 
y sus inconvenientes. La puerta de tubo nos permi- 
te el acceso directo al bus de datos de 2 MHz. Se 
proporciona una Imea de decodificacion de direc- 
cion, NTUBE, para las direcciones desde &FEEO hasta 
&FEFF. El inconveniente es que el BBC Micro com- 
prueba si hay presente algun dispositivo en el tubo 
mediante la lectura de ciertas direcciones del tubo 
cuando 6ste se enciende. Si hubiera instalado algun 
otro dispositivo distinto del segundo procesador, el 
ordenador parecera colgado mientras espera datos 
provenientes del segundo procesador. 

Una respuesta profesional a este problema seria 
conectar una de las lineas de direccion de mayor 
orden al CSO en el chip. Una alternativa es conectar 
NTUBE a CS2 y enchufar la placa en la puerta de 
tubo con el ordenador encendido. Por razones de 
simplicidad, esta es la solucidn que hemos elegido 
para este proyecto. Sin embargo, otra alternativa es 
usar el bus de 1 MHz. Las patillas marcadas NPGFC 
y NPGFO se proporcionan para asociar dispositivos 
extcmos cn las paginas &FC y StFO y se podrfan utili- 
zar de la misma forma en que se utilizan 1/01 y 1/02 
en la versi6n para el Commodore 64. 

La utilizaci6n del bus de 1 MHz tiene dos des- 
ventajas: primero, debido a que el reloj del sistema 
trabaja mas despacio, a 1 MHz, en las dos lmeas de 
decodificacidn se producen "desperfectos". Para 
evitar este problema debe utilizarse un circuito de 
limpieza (como el que se describe en la seccion 28.5 
de la guia para el usuario avanzado dei BBC 
Micro). El segundo problema es que no hay ningu- 
na aliment acion de potencia de 5 V al bus de 
1 MHz, En consecuencia, la potencia debe derivar- 
se ya sea desde la puerta para el usuario o bien 
desde el conector auxiliar de potencia. 



Un poco de sabiduria 

Si cJesea programar la fnterface MIDI por si mismo, 
es importante que comprenda las functones de los 
cuatm registros del chip ACIA. Este se puede 
pmgramar atraves del registro de control para 
intmumpira la CPU cuando se establezcan ciertos 
bits de estado en las secciones de recepcion y/o 
transmision del ACfA. Se producir^ una 
interriipcibn del transmisor si los bits 5 y 6 del 
registro de control est^n a 1 y a 0, 
respectivamente, y el bit de estado TDR esta 
establecido. La interrupcion se eliminaescribiendo 
datos en el TDR. Se produce una interrupcion del 
receptor si tanto el bit de control 7 como el bit de 
estado 0 estan a 1 . La lectura del RDR eliminara la 
interrupcion {a menos que tamblen este a 1 el bit de 
estado 5, que se elimina leyendo el registro de 
estado antes que el ROR). El bit de estado 2 
tambi^n puedegenerar una interrupcitin, pero esta 



Los registros del ACIA 

REG. DE ESTADO (S6L0 LECTURA) SEL. DE REG.=0 



REG. DE DATOS TRANSMISION/RECEPCION: 
SELECCION DE REGISTRa=1 



RECEPCI6N: LEER REGISTRO 
TRANSMISI6N; ESCRIBIR REGISTRO 



REGISTRD DE OATOS A RECIBIR LLENO 

REGISTRO DE DATOS A TRANSMITIR VACfO 

DETECTAR PORTADORA DATOS 

BORRARPARAENVIAR 

ERROR DE VENTANA (BITS INICIO-FINAL) 

RECEPTOR ATRAPADO 

ERROR DE PARIDAD (*) 

SOLICITUD DE INTERRUPCI6N 



REG. DE CONTROL {SOlO ESCRITURA) SEL. DE REG.=0 




SELECCIONAR DIVISION DE CONTADOR 
"1_ 00 DMDIR POR 1 (*) 
r01 DMDIR POR 16 n 
10DIVIDIRPOR64 
11 REINICIALIZACION MAESTRA 



SELECCION DE PALABRA 
BITS BITS 
OE DATOS DE FINAL 



000 
001 
010 
011 
100 
101 
110 

111 



CONTROL DEINTERR. 

00 INHAB1LITADA(*} 

01 HABILITADA 
10INHABtLITADA(*) 
11 INHABILITADA (*) 

CONTROL DE INTERR. 

0 INHABILITADA 

1 HABILITADA 



DE 



PARIDAD 

PAR (*} 
IMPAR (*) 
PAR (*} 
IMPAR (*) 
NINGUNAD 
NINGUNA(*) 
PAR (*) 
IMPART) 

TRANSMISION 



DE RECEPCION 



(*)=N0 APLICABLE AL PROYECTO MIDI 



no es aplicable aqui. Se proporctonan llneas 
separadas para los relojes de recepcidn y 
transmision, pero suelen estar conectadas juntas. 
El reloj de control de velocidad en baudios deriva 
diredamente de la entrada del reloj 0 bien 
dividiendo por16 0 54, segtin el estado de los bits 
de control Oyl, Los bits 2, 3y4 del reg. de 
control determinan la cantidad de bits de final y de 



bits de dates y si la paridad es par, impar 0 bien nc 
se usa. Para la MIDI necesitamos !os bits 2 y 4 en 1 
y al bits aO (ocho bits de dates, ningjna paridad, 
un bit de final) para adecuarnos al estandar. Los 
bits 5 y 6 del reg. de control gesiionan el control 
del transmisor. Para la MIDI, necesitamos que el 
bit 6 este a 0 y entonces el bit 5 activara las 
interrupciones del transmisor 



Commodare &4 
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BBC Micro 



CARAOE 

LOSCOMPO- 

NEIVTES 



CARADE 
COBRE 




Conexiones 
marginales 

Eslos diagramas mi^estran las 
conexiones aprapiadas a las 
patiilas del chip ACIA para cada 
micro. Los cables desdelos 
conectores marginales estan 
numerados. Estos estan 
relacionados con fos numems 
de patiflasde! cfiip ACIA, 
Observe que las patNfas de este 
chip estan numeradas del 
sigylente modo: sosleniendo el 
chip con la muesca situada 
arriba de todo y las pattllas 
aJejadas de usted, lapaliila 
ndmero 1 es la proxfma a la 
irmesca del lado Izqulerdo. Las 
pat 1 11 as se numeran luego h acia 
abajo por ef lado izquierdo, 
hastael nuniero12. La patslfa13 
es la opuestaa la patllla 12 
sob re e] lado derecho, y las 
restantes patillas se numeran 
yen do hacia arriba por el lado 
derecho hasta la patflfa24, la 
m^sprdximaalamLiesca. 
Empieealambre de enlace para 
real tzar las conextones 
apropladas. 

Unavezterminada, debe 
insertarse la versibn para el 
Commodore 64, con el fado de 
los componentes hacia arriba, 
en la puerta para ampliaclon del 
64, y encender ei ordenador, 
listo ya para las pruebas. Para la 
versi6n del BBC Mscro, es 
necesarto confeccionar un caWe 
de conexion usando un metro de 
cable piano de 40 vras, un 
conector de patiflas IOC de 40 
vias y un conector marginal de 
20 v»as 
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Comprobacion de la placa 

Con la placa ya enchufada, podemos llevara cabo 
algunas pruebas sencillas para venficar el correcto 
funcionamiento de la placa. Sera util un tester 
sencillo para aislar cualquier tallo, en la improbable 
circunstancia de que la placa Iracase en alguna de las 
pruebas. Si no tiene un tester, necesltara llevara 
cabo una concienzuda inspecci6n visual de la placa. 

1. Si el ordenador no funciona normalmente con la 
placa insertada, compruebe lo siguiente: 

Veritique que el voltaje entre las tineas de +5 V y 
0 V sea realmente de 5 V. De no ser asf, compruebe 
que todos Ids IC esten insertados correctamente. 
Examine la placa por si hubiera cortocircuitos entre 
las pistas de potencia. 

• Quite la placa del ordenador y use el tester para 
comprobar la existencia de cortocircuitos entre 
cualquiera de las conexfones del bus del ordenador. 

2. Cuando el ordenador parezca funcionar 
normalmente, conecte un cable MIDI entre los 
conectores MIDI IN y MIDI OUT utilizando cables 
conectores DIN de /7/-//normales de 5 patillas. Digite 
la siguiente instruccion (entre par^ntesis, el 
equivalente paraei BBC Micro): 

P0KEgoS52^3 (?S.FEE0=3) 

Esta instruccion coloca un 3 en el registro de control 
ACIA, que realiza una reinidalizaddn maestra. Ahorz 
digite: 

pnKE56832.22 f?SFEE0=S15^^ 

Esta coloca el valor $1 6 en el registro de control y 
configura al ACIA del siguiente mode: 

- Inhabilita las interrupciones del receptor y el 
transmisor (porque adn no disponemos de medios 
para manipularlas). 

Define las palabras en serie transmitidas y 
recibidas como ocho bits de dalos mas un bit de final 
sin ninguna generacidn/comprobacidn de paridad. 

Define la velocidad en baudios como el reloj en las 
patillas 3 y 4 dividido por 64. {2 MHz/64=3t.25 
KHz, que es la velocidad especificada para la MIDI). 

Ahora el ACIA debe estar listo para recibir y transmitir 



dalos, Compruebelo leyendo el registro de estado 
mediante: 

PRINT PEEK(56832) 

(PRINT?5tFEE0) 

Usted deberi leer el valor 2. Este indica que tanto el 
registro de dates a transmitir (bit 1 a 1 ) como el 
registro de datos a recibir (bit 0 a 0) estan vacios. 
Puesto que no se han recibido datos y las 
if^terrupciones estan desactivadas, los bits de estado 
restantes, del 2 al 7, deben estar a 0. 

3, Envie un byte desde el registro de transmisidn a 
travSs de! cable hacia el registro de recepcibn, 
mediante: 

P0KE56833,X (?&FEE1-X) 

donde X es cualquier niimero entre cero y 255. Esta 
instruccion coloca un valor en el registro de datos, 
para transmit! rio. 

4, En una fracci6n del tiempo que lleva digitar la 
siguiente instruccion, se debe haber recibido el byte, 
Vuelva a leer el registro de estado: 

PRINT PEEK(56832) 
(PRINT7&FEE0) 

Ahora el valor debera ser 3. El bit 1 se habra borrado 
inmediatamente despues de la liltima instruccion 
(registro de transmision completo), pero se 
establecera a 1 al cabo de un corto tiempo, apenas el 
registro de datos a transmitir este listo para al 
siguiente byte. B brt 0 estara estableddo a 1, 
iTKficando que ei byte se ha recibifloy que se lo 
puede leer desde el regtstrode datos. Observe que 
hay un postole error si el bit 0 no esta a 1 , 
probablemente haya un aYcuito abierto en el (^mino 
de transmisidn que este manteniendo ia entrada del 
receptor a un nivel high (alto), impidiendo su 
deteccidn, 

5, Habiendo verificado que se haya recibido un byte, 
podemos comprobar si es el mismo que el 
transmitido leyendo el registro de datos: 

PRINT PEEK(56S33) 
{PRINT?^FEE1) 

Estaoperacidndelecturadebedevolver el mismo valor 
X que se transmitio antes . Los pasos 3 , 4 y 5 deben 
repetirsevarias veces con distintos valores deX 



Desarrollo piano 

La placa de la interface MIDI se puede unir a la puerta 
de tubo del BBC Micro mediante un cable piano de 40 
vfas, un conector marginal IDC de 40 vfas que se 
instala en el borde de la placa y un conector de 
patillas IDC de 40 vias. Este cable se enchuta 
directamente en la puerta de tubo, en la cara inferior 
del BBC Micro. Al montar cable y conectores, 
observe la orientaci6n de los dos enchufes. Est! re el 
cable de modo que quede piano yfije el conector 
marginal de modo que la patiila 1 (marcada en la 
carcasa del conector) quede en la fila de abajo, Haga 
una marca en la superficie superior de la carcasa para 
seHalar la orientacidn del conector cuando sea 
utilizado con la placa de la interface. El conector de 
patillas IDC se debefijar al otro extremo del cable con 
Ea muesca rectangular arriba (vease fotograffa) 
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Un agente veioz 



Con el Phonemark 8500 Quick 
Data Drive, que utiiiza "wafers" 
defioppies seriaiizados, ios 
usuarios de Commodore 
mejorarr sus condiciones de 
almacenamiento externo 




Estlmabie aiternatlva 

A pesar de [as criticas de que 
han sido objeto ei aparato de 
cassette y la unidad de disco de 
Commodore, lia habido pocos 
proveedores "mdependientes" 
de sistemas de almacenamiento 
altematlvos para estas 
miquinas. La Quick Data Drive 
es un sistema de wafer flexible 
seriallzado que util^za bucles de 
cinta continues Identicos a ios 
de la Rotronics Watadrive. El 
sistema no es particularmente 
barato, pero vale la mitad que la 
unidad de disco Commodore y 
en mucbas apllcaclones es 
constderablemente m^s r^pido 



Haci^ndose eco de la demanda de muchos entusias- 
tas de Ios ordenadores personales, que desean con- 
tar con metodos mas rapidos y eficaces para acce- 
der a sus programaSj Ios fabricantes estan produ- 
ciendo una amplia gama de dispositivos de almace- 
namiento masivo dirigidos a Ios micros mas popula- 
res. Entre estos dispositivos se halla el Phonemark 
8500 Quick Data Drive, de Dean Electronics, fabri- 
cado para el Commodore 64 y el Vic-20. 

Este disposltivo es un pari en te cercano de la Ro- 
tronics Wafadrive, disenada para el Sinclair Spec- 
trum. Las unidades para ambos las fabrico BSR 
Electronics y utilizan wafers identicos. 

La unidad de disco estandar Commodore 1541 es 
conocida, al igua! que la unidad de cassette, por su 
lentitud. Ello no se debe a la unidad de disco en si 
misma sino al m6todo que utiiiza el ordenador para 
cargar Ios datos. Gran parte del sistema operativo 
del Commodore 64 es herencia de las maquinas de 
gesti6n PET de mediados de Ios seteota, cuando Ios 
sistemas de almacenamiento masivo , en particular 
las unidades de cassette, eian muy poco fiables 



como dispositivos para almacenamiento de dates, 
Cuando Commodore concentro su atencion en pro- 
porcionar almacenamiento de apoyo para la serie 
PET, decidio suministrar su propia unidad de cas- 
sette e incorporar una serie de comprobaciones 
para aseguraF que Ios datos cargados fueran correc- 
tos. Si bien ello incremento la fiabilidad del proceso 
de carga (LOAD), io logro a costa de la velocidad de 
acceso. Este sistema se traspaso a! Vic-20 y poste- 
riormeote al Commodore 64. 

En la actualidad, la calidad de la cinta de cassette 
ha mejorado mucho y la necesidad de una compro- 
bacion de datos larga y complicada para las maqui- 
nas Commodore ha desaparecido. Muchos paque- 
tes de software comerciales contienen actualmente 
sus propias tecnicas de carga, que eliminan muchas 
de las comprobaciones y hacen que la carga se reali- 
ce con mayor rapidez, sm perdida de fiabilidad. 

No obstante, al cargar sus propios programas, la 
mayoda de Ios usuarios no tienen acceso a estas 
tecnicas de gran velocidad y deben aun padecer las 
demoras impuestas por el sistema operativo Com- 
modore. Se puede considerar que la Quick Data 
Drive, de la cual se afirma que carga 15 veces mas 
rapido que las cassettes normales y mas rapido que 
la unidad de disco 1541, representa una altemaiiva 
comercial a Ios perif^ricos Commodore. 

La Quick Data Drive es un dispositive bastante 
pequefio, de poco mas de la mitad del tamano del 
aparato de cassette Commodore 1530. La unidad se 
conecta al Vic-20 o al Commodore 64 a trav^s del 
conector marginal paia cassette. A diferencia de la 
Rotronics Wafadrive, la Quick Data Drive posee 
solo una unidad- Aunque sena preferible contar 
con dos unidades cuando se necesita operar simul- 
taneamente un wafer de sistema y un wafer de 
datos, la unidad unica resulta adecuada a la mayo- 
ria de Ios usuarios. Si fuera absolutamente necesa- 
rio, siempre se podra adquirir una segunda unidad 
y conectaria para proporcionar una capacidad de 
unidad dual. 

El hecho de que la unidad se enchufe en la puer- 
ta para cassette no significa que usted no pueda 
tener en funcionamiento, al mismo tiempo, un apa- 
rato de cassette. En la parte posterior de la Data 
Drive hay un conector marginal para cassette que 
permite encadenar en margarita unidades de cas- 
sette o una segunda Quick Data Drive. 

Si bien la Rotronics Wafadrive y la Quick Data 
Drive poseen un aspecto similar, sus metodos de 
operacion son niuy diferentes y reflejan las diferen- 
cias existentes entre Ios ordenadores para Ios que 
ftieron disenadas. Mientras que el sistema operati- 
vo de la Wafadrive esta retenido en ROM (imitan- 
do a las ROM de la Interface 1), el sistema operati- 
ve de la Quick Data Drive (QOS) esta retenido en 
un wafer. Para cargar (LOAD) el QOS en el ordena- 
dor, se debe pulsar Shift/Run (tal como se haria 
para cargar una cassette normal). Cuando aparece 
en pantalla la indicacii5n PRESS PLftY ON TAPE, se 
debe pulsar un pequeno bo Ion situado en la parte 
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posterior de la unidad, que carga automaticamente 
el sistema. Una vez hecho esto, el QOS lo ilevara a 
cabo de forma automatica para los subsiguientes 
accesos. 

Los programas que componen el QOS se cargan 
en das zonas separadas de la memoria. Primero se 
aim ace nan las mtinas cu c6digo maquina para car- 
gar (LOAD), guardar (SAVE) y buscar programas, 
entre las direcciones COOO y CFFF hacia la parte su- 
perior de la memoria (normalmente utilizada para 
programas en c6digo maquma). Es este modulo del 
OOS el responsable de la mayor velocidad de carga 
de la unidad. 

Aunque el QOS no implementa ninguna instruc- 
cion propia (a! otilizar aqueilas ya disponibles en la 
ROM del sistema operative Commodore), inter- 
cepta las rutmas que se ocapan de la carga normal e 
insert a las suyas propias. 



QUICK DATA DRIVE 



M 

m _ ^ 

mm 

Conector para la puerta de 
cassette del Commodore 64 y 
elVic-20 



FORMATO 



Wafers flexlbles serializados 
de buclecontinuQ 



A laventa wafers de 16, 
64 y 128 Kbytes 



Tiempo de acceso promedio 
8seg/archivode15Kbytes; 
43 seg/archivo de 120 Kbytes 



MEMORIA ACnVA 



EOOO-FFFF 



DOOO-DFFF 



C004KC1TF 



BOOO-BFFF 



00Q0-3FrF 



eKROM 




La otra parte del Quick Operating System 
(QOS) es la FMU (file management utility: u till dad 
para gesti6n de archivos)i que contiene numerosas 
rutin as utiles. Esta se mantiene en la mitad superior 
de los 8 K de la Shadow Memory por debajo de la 
ROM de BASIC, entre las direcciones BOOO y AFFF. 
Los 4 K inferiores entre AOOO y AFFF sc utilizan 
como un tamp6n o buffer dc archivos sccucnciales 
que emplea la FMU. Debido a que la FMU est^ 
almacenada en la zona de memoria por debajo de 
la ROM de basic, no se pueden utiSizar ambas al 
mismo tiempo. Para Ham aria desde la memoria 
debe ej ecu! arse la instruccion LOAD TMU\ Esta 
simplemente "bianquea" la ROM de basic y da en- 
trada a la FMU. 

Sin ninguna duda, las operaciones de la Quick 
Data Drive son miicho m^s r^ipidas que los m^ to- 
dos dc cassette estandares. A modo de ejemplo, se 
utilize! como programa de comprobacion el juego 
de simulacion El Nuevo Mundo, desarrollado en 
nuestro apartado *Trogramaci6n". Cargar el pro- 
gmma eompleto de 25 K, k> que consumia mas de 



Una r^pida memoria 
La Quick Data Drive no conserva 
su sistema operativo en ROM 
sino que ha de cargarlo desde 
un wafer de sistema. Los 
diversos componentes se 
instaian en dos zonas separadas 
de la memoria. El primero, el 
Sistema Operativo Quick [OOS: 
qvick operating system), se 
carga en la zona normalmente 
reservada a programas en 
c6digo maquina. La otra parte 
dei sistema, la utiiicfad de 
gesti6n de archivos {FMU: file 
minagment utility) se retiene 
en la "RAM en sombras detris 
delaROM de basic. Aqui 
tambi^n se balla contenrdo un 
buffer de archivos en el cual se 
cargan ios programas antes de 
Quardariosenotrosoporie 



nueve minutos desde cassette y un minuto y medio 
desde disco, llevo apenas 30 segundos con la Quick 
Data Drive, lo que representa una me j era conside- 
rable. No obstante, coomo con todos los sistemas 
basados en bucle de cinta, ello depende en gran 
medida de donde se halle la cabeza de lectura/escri- 
tura de la unidad en relaci6n al comienzo del pro- 
grama. 

El Sistema Operativo Quick encuentra los archi- 
ves de dates requeridos comprobando cada uno de 
los bloques de encabezamiento de la cinta. Cuando 
se formatea un wafer, el sistema operativo divide la 
cinta en bloques, cada uno con su propia secci6n de 
nombre de archivo. Cuando se requiere cargar un 
archivo en el ordenador, busca hasta hallar el blo- 
que que contenga la primera parte del archivo, lo 
carga y despues busca el segundo. 

Del mismo modo, cuando se solicita visualizar un 
directorio del wafer, el QOS lee cada uno de los 
nombres de archivo a medida que el cabezal de lec- 
tura/escritura va pasando por la cinta, y registra los 
blcques que contienen archivos y aquellos que 
estan vacios. Cuando se hari lefdo todos los nom- 
bres de archivo, el sistema visualiza la lista de archi- 
ves m^s la caiilidad total de espacio disponible ex- 
presada en bytes. 

Gestion de archivos 

La FMU, ntilidad para gestion de archivos, es un 
con junto de mtinas activadas por menu que cubren 
apiicaciones tales como formateo y lectura del di- 
r^orio del wafer. Asimismo, contiene mtinas para 
oipiar que penniten transferir datos desde disco, 
cassette o wafer a un wafer de segurldad. Esta es, 
obviamente, una importante caracteiistica del siste- 
ma Quick Data Drive, porque pocos programado- 
res pensarfan en adquirir un sistema de almacena- 
miento, independientemente de lo bueno que 
fuera, que no pudiera transferir programas existen- 
tes al nuevo soporte. 

Por supuesto, el sistema tiene sus inconvenien- 
tes. Si bien las rutinas para copiar funcionan bien 
para programas en basic y archivos secuendales, 
ciertas rutinas (eo especial en o^digo maquina) que 
se cargan en una zona especifica de la memoria sue- 
len causar prcblemas. Ello se debe a que las dos 
zonas que utilizan el QOS y la FMU son tambien 
las zonas en que se conserva el codigo maquina. 
Por lo tanto, cuando se cargan programas en codi- 
go maquina, estos se grab an sobre el sistema opera- 
tivo de la Quick Data Drive y el programa queda 
colgado. 

Esta caracteristica de diseno significa que si bien 
se pueden copiar los programas del usuario, aun no 
es posible la transferencia de software comercial 
No obstante, de venderse suficientes cantidades de 
dispositivos Quick Data Drive, sin duda se produci- 
r^ un programa para permitir dicha transferencia. 

Hasta entonces queda en manos de Dean Elec- 
tronics el persuadir a las casas de software de que 
vendan sus juegos y aplicaciones en wafers. En este 
sentido, quiza la Rotronics Wafadrive resulte ser 
un vaiioso aliado: las empresas de software podran 
adquirir, entonces, cantidades mayores de wafers 
con mayores descuentos, cuando descubran que 
pueden colocar tanto su software para el Commo- 
dore 64 como para el Spectrum en el mismo sopor- 
te de almacenamiento. 
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Codigo que 
c rea codigo 

"Last One" y "Sycero" son dos 
generadores de programas que 
ejemplifican la situacion actual 
del software que escribe 
software 



Todos !os programadores recien iniciados (y proba- 
blemente tambien ios mis experimentados) suenan 
con la existencia de un programa qoe elimme de la 
programacion el trabajo pesado y la fnistracion y 
acabe con unas lineas de codigo qoe se ejecoten 
perfectamente, a la primera, sin nioguna ciase de 
deporacidn ni mensajes de error. 

En cierto sentido, per supuesto, quien escribe un 
programa en basic ya esta utilizando un programa 
para escribir programas: bien resida en ROM o 
bien haya que cargailo desde disco o cinta, el inter- 
prete de basic toma las Ifoeas que digita el usuario y 
las reescribe en c6digo m^quina para que el orde- 
nador pueda comprenderlas. Este es un proceso 
mucho mas sencillo que entrar los propios digitos 
del c6digo maquioa, desprovistos aparentemente 
de cualquier significado. 

La mayoria de los programadores estaran fami- 
liarizados con el truco de hacer que un programa 
genere lineas de programa extras ya sea utilizando 
el buffer del teclado con un contador creciente para 
numeros de linea, o bien colocandolas (POKE) en la 
memoria. Esto con frecuencia lo emplean los pro- 
gramadores de c6digo maquina para atisbar (PEEK) 
las posiciones de memoria y escribirlas en un pro- 
grama cargador en forma dc sentencias DATA. 

Algunos lenguajeSj por ejemplo el comal, po- 
seen comprobaci6n de errores incorporada y se nie- 
gan a aceptar una lioea de codigo que no se haya 
entrado de !a forma correcta, de mo do que osted 
no podra colar un PR NT cuando lo que qui ere signi- 
ficar en reafidad sea PRINT. El forth rechazara una 
instruccion que empiee una palabra que no este in- 
cluida en su vocabulario basico o que cl usuario no 
haya definido previamente. El logo posee una ca- 
pacidad similar para fiincionar de acuerdo a sus 
propias limitaciones. 

Sin embargo J las facilidades que acabamos de 
mencionar continiian sin permitir que el usuario, 
por ejemplo, le pida ai ordenador que escriba un 
programa para calcular su impuesto sobre la renta. 
Pero el crecimiento de sistemas que imitan o pare- 
cen incojporar cierto nivel de inteligencia artificial 
aparec^ como una posibilidad menos remota. Por 
ejemplo J hay un programa llamado Microtext, que 
se puede utilizar para guiar a un usuario no tecnico 
a traves de complicadas tareas t6cnicas. Tambien se 
lo puede emplear para generar ayudas interact! vas 
para la ensenanza^ programas que busquen fallos, 
cuestionarios y software para recuperacidn de in- 
formacion, Mediante el empleo de un sislema de 




"autor" para crear una aplicacidn, disponiendo du- 
rante la comprobaci6n de un editor en pantalla acti- 
vo, el software resultante se puede "publicar'' y 
convertir en un sistema de solo ejecucion que el 
usuario no pueda modificar. 

Por lo general el Microtext ^6\q esta a disposicion 
de las maquinas CP/M mas costosas (haciendo de la 
disponibiiidad de un sofisiicado editor dc pantalla 
una valiosa facilidad), pero tambien ha salido al 
mercado a un precio muy inferior para el Tatung 
Einstein. 

"The Quill" e "Illustrator" 

Otro generador de programas notablemente refina- 
do es The Quill (La ploma), disefiado especifica- 
mente para qoienes escriben juegos de aventuras. 
Permite que usted prepare y edite una base de 
datos de informacion (escenarios, objetos, c6mo sc 
los puede manipular, etc.) y la incorpora a un pro- 
grama en leoguaje assembly que se ejecuta d^*. bue- 
nas a primer as sin quedar colgado. 

A The Quill recientemente se le ha unido Ulus- 
trator^ que anade graficos a las aventuras de texto. 
The Quilt esta destinado al Spectrum, e! Amstrad 
464 J el Commodore 64 y el Oric^ e Illustrator al 
Spectrum y al Amstrad, y pronto se editara tam- 
bien para Commodore. A pesar de su bajo costo, 
The Quill es lo suficientemente bueno como para 
haber sido utilizado para escribir muchos juegos de 
aventuras comerciales, entre los que destaca en 
particular Hampstead^ de Melbourne House, 

Aunque tecnicamente ambos son generadores de 
programas, para la industria del micro existen solo 
dos programas que realmente escriben programas: 
The Last One (El ultimo), de nombre mas bien os- 
tentost) y que en el momento de su lanzamiento se 
anuncid como el ultimo software que usted necesi- 
taria comprar en toda su vida, y el Sycero, bast ante 
mas potente aunque algo menos amable. 

The Last One, oTLO, como prefieren 11am arlo 
sus distribuidoieSj se escribid originalmente para 
maquinas CP/M de 64 K. Esto es evidente, ya que 
posee la misma clase de alusion constante a los 
overlays de disco que hacen que el WordStar sea 
tan lento. Ahora existe para maquinas MS-DOS 
con un mmimo de 256 K de RAM, pero si bien ello 
permite la adicidn de muchas facilidades mas sofis- 
ticadas, continua operando a un ritmo ligeramente 
lento. Sus autores afirman haber incorporado en el 
programa un cierto grado de inteligencia artificiaL 
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Ciertamente, si usted lo carga con un tipo de basic 
distioto del que esta biiscando, identificara correc- 
tamente el disco DOS en cualquier mensaje de 
error. 

Aunque similares a nivel superficial (en tanto y 
en cuanto ambos son generadores de programas), 
Sycero y The Last One en rcalidad son bastante di- 
ferentes en cuanto a concepcionj esfera de accion y 
la forma en que abordan el problema de esclarecer 
las necesidades del usuario con el fin de producir 
a5digo utilizable {y transportable). Asimismo, son 
similares en el hecho de que ambos generan pro- 
gramas en BASIC y que son parficalarmente iddneos 
para la entrada, proceso, almacenamiento, recupe- 
racion e impresion de datos. Los dos se diferendan 
de otros programas que realizan sofisticadas ftincio- 
nes de base de datos, porque el codigo resultant e se 
ejecuta independientemente del sistema gene- 
rador. 

En cierto sentido, TLO cst^ dirigido a las necesi- 
dades de ios usuarios de hoy en dia, porque da por 
sent ado (probablemente de forma correcta) qne 
usted prefiere hacer todo el trabajo eo pantalla, 
prescindiendo de preparatives y calculos en hojas 
de papel. Pero utilizando Sycero y TLO de esta ma- 
nera no se aprovecha cabalmente su potencial. El 
plan de acci6n de Sycero, de sietc puntos, hace hin- 
capie en la importancia de la planificacion preli- 
minarr 

« Planificar 

m Especificar sistema 

• Dibujar pantallas 

• Comprobar datos 

• Definir programa 

• Producir sal id a impresa 

• Generar programa 

Y tanto Sycero como TLO resaltan c! punto con 
suficiente claridad en sus manuaies: la organizacion 
y la planificacion preliminares son esenciales para 
una buena prograraaci<3n. El Sycero afirma: 

Corregir errores originados por un ma! diseno 
puede Uevar mds tiempo que escribir el sistema 
en primer lugar, Siempre es tentador dedicar 
cinco minutos a pensar en un problema y 
luego, con los discos Sycero en la mano, correr 
hacia el ordenadory elaborar el sistema sobre 
la marcha. Este no es un buen enfoque. 

. . . usted siempre debe comenzar elaborando 
una lista exhaustiva de todo lo que desea que el 



Juegos de generscitin 

Estas pantallas Elustran las 
clas&sde programas que se 
pueden producir con el 
Mmrotext. El programa de 
comprobaci(5n de enchufes, a la 
Izquierda, formula al usuario 
preguntas sobre sistemas 
electrlcos. El programa de la 
derechaponeapruebasu 
CO nocim lento del procedimiento 
correcto a segurr cuando uno se 
encuentra atrapado en un hotel 
en llamas. Observe que ambos 
programas dependen dela 
interaccldn del ordenador con el 
usuario, comparando las 
respuestas del usuario con una 
base de datos de conocimientos 
retenlda en su memoria. Esta 
clase de apllcacioneses ideal 
para los generadores de 
programas 



The Last One: Para el Apple II y lie, maquinas 
CP/M'SOy MS-DOS 

Distribuido por. D J " Al" Systems Ltd, Summers 
Orchard, Speke Close, llminstef, 
Somerset TA19 9BJ, Gran Bretana 

Microtext: Para el Tatung Einstein y maquinas 
CP/M-80 

Distribuido por: Transdata Ltd, 11 South Street, 
Havant, Hants, Gran Bretana 

The Quill: Para Spectrum, Commodore 64, Amstrad 
464y0ric 

Distribuido por: Gilsofl, 30 Hawthorne Road, Barry, 
South Glamorgan CF6 8LE, Gran 
Bretana 

Sycero: Para m^qmnas MS-DOS 

Distribuido por; System C Ltd, 7 Mill Street, 
Maidstone, Kent ME1 5 6XW, 
Gran Bretana 



ordenador produzca para usted, desde el punto 
de vista de lo que quiere ver en la pantalla 
(informacidn on-lioej y de lo que desea en 

cuanto a salidas impresas Clistados"). Solo tras 
haber determinado lo que usted espera del 
sistema, habrd de decidir qui informacidn 
necesita para producir esos resultados. 

TLO es menos especifico pero insiste en el mismo 
punto: 

Planifique el flujo global de su programa y 
anticipe los errores que va a cometer el usuario 
finaL Despues prepdrelo todo para hacer f rente 
a los mismos de forma segura. De hecho, 
disehe su programa tan concienzudamente 
como planificaria cualquier otra tarea. Por 
regla general, es mds fdcil comenzar 
escribiendo algunos programs cortos^ unidos 
entre si mediante un menu sencillo que llame a 
cada uno de ellos por turno cuando as t sea 
necesario; mds adelante, hallard que este 
enfoque modular permite planificar y crear con 
gran facilidad programas extensosy 
complicados. 

Ningnno de estos paquetcs generara s61o una ctase 
de programas. No prod uci ran ningiin tipo de juego, 
por sopuesto (ni siquiera una aventura basada solo 
en texto), ni tampoco generaran un procesador de 
tcxtos ni una hoja electronica- Sus puntos fuertes 
residen en permitir qoe usted manipule virtualmen- 
te cualquier clase de datos, efecttie calculos con 
ellos (que puede ser cualquier cosa, desde una sim- 
ple cxtracci6n del IVA de una suma bruta hasta 
una larga y compleja ecuacion de ingenieria), alma- 
cenarios, recuperarlos e imprimirlos. En este senti- 
do, ambos son sumamente podeiosos. 

Es materia de controversia el hecho de que tra- 
bajen o no tan bien como lo hace un programa di- 
recto de administracion de bases de datos como el 
dBase //; pero es innegable que son mas faciles de 
utilizar y mas amables que un programa de esta 
clase, cuya hostilidad suele ser directamcnte pro- 
porcional a su potencia. 
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ImplemeRlaclonesdef usp 

A pesar del creciente interns que 
exists poreJ lisp, en la 
actual I dad hay pocas versfones 
del lenguajeal alcancedel 
presupyesto de los ysuarios de 
un micro. Existe el usp 
Acornsoft para el BBC Micro y el 
Acorn Electron a un precfo 
razonable. si t»ien fa mayoria de 
los usuarios se encontrar^n con 
que tendran que adquirir la GuFa 
para el U sua ho del lisp, que 
sumaoiro coste adiciona!. 

Otros nnicros no estan tan ^ 
bien provistos. Existen, no 
obstante, aigunas versiones 
CP/M del lenguaje, en particular 
Toolwof ks LISP/BO e Ilisp. Hay 
otf a version CP/M, muLisp-a3, 
de Microsoft, quees 
considerablennente mas cara. 

Los interpretes basados en 
CP/M men cion ados 
anteriormente se ejecutardn en 
la nnayoriade los micros 
personales que soporten CP/M 
(M em otech , Ei nste i n , etc . ) , 
aunque los usuarios del Amstrad 
no podran utilizarlos debido a la 
falta de espacio de memoria {el 
mfnimo requerido es de 48 K). 
Probablemente la mejor relacion 
cafidad-precio la ofrezca 
Toolworks, con un espacio de 
almacenamiento de 
aproximadamente S 600 celdas 
de listas y 1 1 000 caracteres 
paranombresdeatomos en 
43 K. Todos los pro gram as se 
pueden adquirir en Grey Matter 
Ltd, 4 Prigg Meadow, 
As hbu rton , D evo n . TQ 1 3 7D F, 
Gran Bretalia 




Basado €Ti listas que pueden representar tanto 
datos como funciones, el lisp permite al 
pragramador adaptar eJ lenguaje a casi 
€ualquier aplicaci^n. lukiamos una serie 
dedkada ai lisp, en la que nos referiremos al u^ 
que hace de las Jistas y veremos por qii^ ha 
tenido tanta aceptacion en el canipo de la 
mteligencia artificial. 

Ei LISP ha tenido bastante difusion en los 
ultimos aoos, fundamentalmente a raiz de su 
inclusion en la investigacian y desarrollo en el 
canipo de la inteligencia artificial. A medida que 
se acrecentaba el interes por el, se hizo cvidcnte 
que el usp podia actuar como un lenguaje para 
fines generalcs coo una amplia variedad de 
aplicaciones. 

Esta conviccion genero una ingente cantidad 
de implement aciones del lisp con muchas 
aplicaciones diversas, desde la escritura de 
sistemas operativos y compiladores hasta la 
escritura de juegos de aventuras, Una 
lamentable consecuencta de esta proliferacion 
del lenguaje es que, como sucede con tantos 
otros lenguajeSj existen ahora muchos dialectos 
de LISP. A pesar de ello, la mayona de las 
implementaciones estan moderadamente 
estandarizadas (debido a su cstnictura simple y 
directa) y por lo general traducir el lisp de una 
maquina a otra es bastante sencillo. 

Es probable que al utilizar el lisp advierta la 
carencia de una cierta funcion o instruccion, 
Esto sc debe principalmente a la falta de un 
estandar oficialj con lo que solo qaedan las 
funciones que los programadores consideran 
mas importantes. Sin embargo, tal como 
vcremos, ampliar el lenguaje es 
extraordinariamente facil, median te la adicion 
dc las instrucciones nuevas que usted requiera. 

E! LISP es completamente dife rente de los 
lenguajes mas coraunes, como el pascal, el 
FORTRAN y el BASIC. Posce una estructura 
sintactica unica, muy simple y uniforme, Esta 
estructura lo hace ideal para la manipulacion de 
datos y problemas dc cmparejamiento- 

La estructura inherente dc las listas se puede 
adaptar facilmente a las principales estriicturas 
de informacion para ordenador, permitiendo 
utiUzar el lenguaje para busqueda y 
clasificacion, funciones aritmeticas e incluso 
para practicar juegos. Ademas, la mayoria de 
los microordenadores soportan instrucciones 
especiales para hacer uso de sus propias 
facilidades de sonido y de graficos, Este es, 
ciertamente, el caso del lisp Acornsoft para el 
BBC Micro, que es el que utilizaremos a lo 
largo de esta serie. No se preocupe si posee una 
version diferente del lenguaje, ya que 
encontrara que todo se puede transferir 
directamente. 



La base del lisp, como cabria esperar, es la 
estructura de datos de lista: el nombre del 
lenguaje proviene de los terminos ''list 
processing" (proceso de listas). En muchos 
sentidos, una lista es similar a la mas familiar 
"matriz" de la mayoria de los micros. No 
obstante, a diferencia de la matriz, una lista no 
posee ninguna longitud especifica. Cualquier 
lista de elementos se indica encerrandola entre 
par^ntesis, en la forma; 

(ab cde ...) 

donde a, b, C, etc. , son los elementos de la lista. 
El termino tecnico para estos elementos es 
dtomos, y pueden ser datos num^ricos, no 
numericos (datos de caracteres o variables) o 
incluso otra lista. Observe que los elementos 
separados de una lista no se separan entre si 
mediante comas; en cambio, se utilizan 
espacios. 

Las operaciones se realizan sobre las listas 
utilizando funciones, de forma muy similar a 
una funcion de basic (instruccion DEF FN), que 
lleva a cabo una operacion sobre sus 
argumentos para producir un resultado. Una 
funci6n se escribe de la forma; 

(funcabcd ...) 

donde func es el nombre de la fundon y a, b, C, 
etc. son sus argumentos. Como puede ver, la 
funcion ticne un aspecto muy parecido al del 
primer elemento de la lista. De mo do que, por 
ejemplo, una lista compuesta por los seis 
primeros ntimeros primos se escribiria; 

(1 235711) 

Si quisle ramos sumar estos numeros en basic, 
utilizariamos: 

1+2+3+5+7+11 

En LISP, aplicanamos la funddn plus y 
escribiriamos: 

(plusi 235711) 

que nos devolveria como respuesta 29. Una de 
las caracteristicas de la funcion PLUS es que 
puede tomar cualquier cantidad de argumentos; 
de mo do que poddamos igualmente escribir: 

(PLUSI 23(PLUS5711)) 

Aqui, primero se evaMa la funcidn PLUS m^s 
interior, que devuelve la respuesta 23. Esta se 
utiliza luego como el cuarto argumento del PLUS 
mas exterior para devolver la respuesta final 29. 
Un punto importante a observar aqui es la 
facilidad con que se pueden anidar las 
funciones, Anidando otia funcion, SETQ, 
podemos asignar el resultado a la variable A; 

,(SETQA{PLUS1 235711)) 



donde SETQ posee dos argumentos: la variable A 
y una funci^n que halla el entero 29. For 
supuesto, SETQ es en si misma una fund6n y por 
tanto debe devolver un resultado (en este caso 
el valor 29). En consecuencia, la siguiente 
asignacion, que cs ilegal en la mayona de las 
versiones de basic: 

LET 8=1+2+3+5+7+11 

se podria escribir en us? como: 

(SETQB(SETQA(PLUS 1 235711))) 

Introdudendo la fund6n TIMES, podemos 
asignar, por ejemplo, 2 veces el valor de A a la 
variable B: 

(SETQ B(T!1VIES 2{SETQ A(PLUS 1 235 711)))) 

En primer lugar se calcularia el PLUS para 
devolver el valor 29, que se le asignaria a la 
variable A en virtud de la funcidn SETQ mas 
interior, Esta fundon, a su vez, daria como 
resultado 29, a utilizar como el segundo 
argumento de la funci6n TIMES. El nuevo 
resultado, 58, se pasana entonces a la funcion 
SETQ mas exterior para colocar el valor en la 
variable B. Toda la expresion daria como 
resultado 58, que se emplearia, cntonces, para 
otras funciones, y asi sucesivamente. 

Observe que los parentesis estan proliferando 
mucho en el ultimo ejemplo. Esta es una 
caracteristica del lisp, y seguir el rastro de todos 
estos parentesis puede ser bastante tedioso, 
aunque, si el programa esta bien disenado, 
tienden a ocuparse de si mismos. Ademas, 
algunos sistemas de lisp ofrecen la ayuda de 
informar sobre la cantidad de parentesis que 
posee, 

Por ejemplo, cuando se utiliza el usp 
Acomsoft en ei BBC Micro, la cantidad de 
fleehas que aparecen al comienzo de la 
indicacion de linea senala la cantidad de 
parentesis que es necesario cerrar para 
completar la expresion. 

En la ultima expresion introdujimos la 
funci6n TIMES y le dimos dos argumentos: el 
valor entero 2 y una expresion de lista que 
previamente habia dado como respuesta 29. Sin 
embargo, TIMES, al igual que PLUS, puede tener 
un numero variable de argumentos. Por tanto, 
to das ias expresiones siguientes serian legales: 

(TIMES 1 24816) 

(TIMES1 24 8(TIMES4 4)) 

(TIIVIES 1 2 {TIMES 2 2)(TIMES 2 4)(PLUS 8 8)) 

y todas devolverian el resultado 1 024, 

En realidad, la mayoria de las 
implcmentaciones del lisp poseen un limite en 
cuanto a la cantidad de argumentos que pueden 
tener este tipo de funciones. Por ejemplo, el 
USP Acomsoft tiene un limite dc 2S argumentos, 
y algunas otras versiones tienen restricciones 
aun mas severas. 

Llegados a este punto, podemos ver que una 
instmccioo en lisp es simplemente una lista de 
elementos, en la cual el primero es la funcion a 
realizar, y los subsiguientes son los argumentos 
de la funci6n. Estos, a su vez, pueden ser listas 
con el primer elemento de cad a una siendo una 
fdndon que devuelva un resultado. Ahora se 
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plantea la cuesti6n de que hacer si no deseamos 
ninguna funcion. Es posihle que querramos 
meramente preparar una lista de elementos de 
datos, supongamos, para utilizarla comoun 
titulo. 
No podemos escribir: 

(Ml COMPUTER ELMEJOR) 

como una lista de cuatro elementos de datos, 
porque el usp intentaria evaluar Ml como el 
nombre de una funci6n, con tres argumentos, y 
pensaria que cada uno de los tres argumentos 
(COMPUTER, EL y MEJOR) son tres nombres de 
variables. 

Podemos decir al lisp que no evalue una 
expresion anteponiendolc un ap6strofo ('), de 
modo que escribiriamos lo anterior como: 

'(Ml COMPUTER ELMEJOR) 

Entonces podriamos asignarle esta lista a una 
variable: 

^:SETQ REV (Mi COMPUTER ELMEJOR)) 

que le asignaria a la variable REV una lista de 
cuatro elementos no numericos. 

Observe que en usp no hay ningun tipo de 
variable. 

Si estuvieramos utilizando basic, una variable 
de enteros asumiria la forma A%, una variable 
de reales A y una variable en serie AS. En usp las 
variables no se difercncian de esta mancra, de 
modo que todas las expresiones siguientes son 
legates: 



Listas conlra matrices 

Las listas ofrecen dos ventajas 
principales sobre las matnces. 
En primer tugar, no hace falta 
reservar memoria para eJlas 
antes de que se la necesite; en 
segundo lugar, una Irsta es una 
estructura ' dinamica \ lo que 
equivaiea decir que no necesita 
tener longitud tija y que se 
puede compnmiroexpandir 
para aconnodar datos durante la 
ejecudon del programa. 
Ademds, las fistas se prestan 
m^steiimentealos 
procedimientos recursivos que 
se utilizan con trecuencia en la 
programacE6n de inteiigencia 
artificial 



{SETQ A 3) 

(SETQA^COMPUTER) 
(SETQ A (PLUS 2 4 8)) 
(SETQ A '(124 8)} 
(SETQ A 'pi COMPUTER}) 
(SETQ A B) 



A==el entero 3. 

A-la serie 'COMPUTER*. 

A=el resultado de 2+4+8. 

A- la lista {1 2 4 8). 

A-la lista {Ml COMPUTER). 

A=el valor de la variabfe B. 



Si bien los tipas de enteros y en serie son 
relativamente estan dares, pocos 
microordenadores soportan nna version de lisp 
que efectuc aritmetka de punto flotante, Eo la 
mayona de los casos, la arilmetica de enteros es 
suficiente y en el improbable caso de que fuera 
neoesaria la arilmetica de punto flotante, sin 
ninguna duda se podria simular empleando los 
enteros estandares. 

En este puntt) puede parecer dificil 
comprender en que medida puede ser de 
utilidad el lenguaje. En el proximo capitulo 
veremos las funciones del usp que pueden 
manipular sns argumentos de datos, y veremos 
de que forma se emplean los principios de la 
recursion. 
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Lengu^e maquina/Sistemas operatrvos 



Queda detenido 



El Z80 ofrece tres modos de interrupcion: veamos como el sistema 
operativo del Sinclair Spectrum vectoriza las interrupciones 



Las facilidades basadas en interrupciones, propias 
del sistema operativo del Spectrum , son mcnos di- 
rectas que las utilizadas en el BBC Micro. El em- 
pleo de las interrupciones en cl Spectrum exige 
sumo cuidado. En caso de inhabilitarlas, o "desacti- 
varlas" inadvertidamente, la maquina puede quc- 
dar gravemente afectada: el teclado puede no ser 
leido, por ejemplOj o puede colgarse el sistema du- 
rante la ejecuci6n de programas en basic. 

La CPU del Z80 es el coraz6n del Spectrum y 
responde a dos tipos diferentes de interrupciones: 
las enmascarables y las no enmascarables (NMf). Su 
diferencia es clara. Se puede programar la CPU de 
modo que ignore una serial de interrupcion enmas- 
carablCj pero el procesador siempre respondera a 
una NMI (no enniascarable). 

Estas interrupciones NMI son poco practicas en el 
Spectrum, ya que la rutina ROM que gestiona las 
NM! muestra bastantes errores. La intencion origi- 
nal de los disenadores del OS era la de permitir al 
usuario especificar una direccion en la^ variables de 
sistema no utilizadas en las posiciones &55cb0 y 
&5CB1 , donde se saltaria cada vez que la CPU reci- 
biera una serial de NML Pero ia respuesta habitual 
del Z80 es la ejecudon del cddigo maquina que co- 
mienza en la direccion &66, lo que se traduce en 



Anticiparse a todas 
las posibilidades 

AunQue en muchos casos se puede 
asumir que el bus de datos del 
Spectrum contiene, cuando se genera 
una rntemipcion, el valor 255, 
algunos peiifericos (como la interface 
de palanca de mando Kempston) 
pued^alterareste valor. La forma 
masfSdl de obviar ef problema es 
cerdorarse de que no se est^ 
empl^do el modo 2 (IM2) con 
perif^rieos acoplados. Otro metodo, 
ablerto a todo valor poslble en el bus 
de datos. consiste en llenar una 
pagina de memoria con valores 
iguales, Se carga despues el numero 
de pagina efi el registro I antes de 
seieccionarel 1M2. Cuando se da una 
interrupcion, ef Z80 toma la direccion 
de ta rutina de servjcio de 
intenupciones sacandofa de alguna 
posicfon de la pagina especificada: ta 
posidon fixacta que sera determinada 
por ef valor que lleve el bus de datos. 
Primerarnente cargamos el registro I 
con d vafor y llenamos los 



bytes &FCOO al &FDOO con el valor 
&FB, Despues seleccionamos el IM2. 
Si el bus de dates contiene &C3 
cuando ocurre la interrupcion 
siguiente, el Z80 sacard la direccion 
de la rutina de servicio de ia posicion 
&FCC3: la parte &FC de la direccion 
ha sido suministrada por el registro 1. 
La direcci6n tomada ser^ &FBFB, ya 
que todos los 256 bytes de la pagina 
FC (anadiendo el byte cero de la 
pagina &FD) ban sido ilenados con el 
mismo valor. Hay dos puntos a tener 
en cuenta. Primero: su rutina de 
servicio de interrupciones (ISR) 
tendr^ que estar siempre en una 
direccion con identicos bytes hiy lo 
(p.ej.,&C4C4ob[en &FDFD}. 
Segundo: debe recordar que el bus de 
datos puede que contenga el valor 
&FF en el momento de tener lugar la 
interrupcion. En este caso el Z80 
buscar^ larutinalSR en las 
direcciones noFF {byte lo) y (nn+)00 
(byte hi), donde nn es el valor det 
registro I. Por esta razon, debe 
recordar poner el primer byte de la 
pagina siguiente 



una inicializacion completa del sistema. Per lo 
tanto, s61o nos ceniremos al examen de las inte- 
rrupciones enmascarables. 

Modos de operacion de 
interrupcion 

Varias son las tbrmas cn que el Z80 puede respon- 
der a una inteiTupci6n enmascarable, llamadas pre- 
cisamente modos de operaci6n de interrupci6n. 
Trataremos tan solo aquelios modos importantes 
para el sistema operativo del Spectrum. 

En el momento de la inicializacion (que se da al 
conectar la maquina o al gencrar la instruccidn 
NEW) la CPU establece el modo de interrupcion 1, 
tambien conocido por I Ml. Este es el modo habi- 
tual en que fonciona el Spectrum. Los impulses de 
interrupcion se llevan a la CPU por medio de la 
ULA Sinclair (uncommitted logic array: tabk logi- 
ca sin cometido) a una densidad de 50 interrupcio- 
nes por segundo. En el modo IM1 , la CPU ejecuta 
una instruccion del RST en &0038 at recibir la serial, 
Esto provoca un sal to a las rutinas que leen el tecla- 
do y actualizan el contador FRAMES, situado en la 
RAM en las posiciones que van de la 23672 a la 
23674 (estos tres bytes forman un contador de 24 
bits que, por ende, se actualiza cada 20 milise- 
gundos), 

Una vez interpretada una Iinea del basic, el in- 
terprete de este lenguaje espera una interrupcion 
antes de pasar a interpretar la siguiente sentencia. 
Esto significa que si usted neutral iza las interrup- 
ciones, la ejecucion de un programa en basic se pa- 
rara. 

La CPU ignorara una interrupcion enmascarable 
una vez ejecutada la instruccion Dl (Disable \nte- 
rrupt: desactivar interrupcion), y vol vera a tencrlas 
en cuenta despues de la or den El (Emble Interrupt: 
reaclivar interrupcion). 

Existen diver sas rutinas en el OS del Spectrum 
que exigen la desactivacion de interrupciones mien- 
tras son ejecutadas, Se trata, por lo general, de ru- 
tinas dcpendientes del tiempo tales como la rutina 
BEEP del generador de sonido y las rutinas para 
guardar (o cargar) datos cn cinta. Las interrupcio- 
nes pueden ser desactivadas moment aneamente 
por medio de la impresora ZXj la Interface 1 o el 
microdrivc. Es claro que el OS vuelve a acti varias 
una vez acabada la rutina. 

Un resultado practico de las diversas rutinas que 
desactivan interrupciones es que mientras estas ru- 
tinas son ejecutadas cl contador FRAMES no se in- 
crementa, Por tanto, se "perderA tiempo" mientras 
son ejecutadas estas operaciones. Dado que una in- 
terrupcion puede darse mientras se est^ ejecutando 
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tino de sm programas, ser^ oportuno que desactive 
ias intermpciones para el fragmento de programa 
en que la temporizacion exacta sea importante. 
Pero, recuerde, es esenciai que las reactive antes de 
volver al basic. 

Interrupciones vectorizadas 

Para hacer un uso practico de las interrupciones del 
Spectrum, es necesario cambiar el modo y poner 
aquel que ofrezca mayor versatilidad. El modo de 
interrupcion mas util es el IM2, cuyo funcionamien- 
to es mucho m^s complicado que el de IM1 . Mien- 
tras el IM1 siempre consiste en un salto a la direc- 
ci6n &0038 (empleando la instruccion RST &0038), 
el IM2 puede saitar a cualquier rutina de la memo- 
ria. La direccion a la cual salta la CPU se especifica 
per medio del ilamado vector de interrupcion. 

En una interrupci6n vectorizada, el vector retie- 
ne la direccibn de la rutina de servicio de interrup- 
ciones que se ejecutari cuando se de una interrupt 
ci6n enmascarable. La CPU conoce donde esta si- 
tuado el vector en la memoria gracias a un registro 
especial del Z80 Ilamado registro I. La direccion de 
la rutina del vector de interropci6n se halia combi- 
nando e! contenido del registro I con el del bus de 
datos en el instante de la interrupcion. En algunos 
sisteraas el dispositivo que origina la interrupcion 
colocara un byte en el bus de datos para avisar a la 
CPU cual fue la causa de la interrupcion. 

Pero la ULA del Sinclair no pone ningun valor 
en el bus de datos cuando envia una senal de inte- 
rrupcion al Z80, aunque la forma en que esta confi- 
gurado el hardware del ordenador permite que el 
bus de datos contenga el valor 255 cuando no se ha 
aplicado otra entrada en el. De esta manera, el vec- 
tor de interrupci6n siempre estara situ ado en una 
frontera de pagina de memoria, con el byte lo de la 
rutina de servicio contenido en la direcci6n Srinff y 
el byte hi en la direccion &(nn+1)00, siendo nn el 
contenido del registro L 

Por ejemplo, si el registro cantiene el valor &FB, 
la direcci6n del vector estara en &FBFF. El byte !o 
del vector, en la posici6n &F8FFj contendra el byte 
lo de la direcci6n de la mencionada rutina de servi- 
cio, y el byte hi del vector, en la direccion &FCOO 
contendra el byte hi de la direccion de !a ISR. 

Existen algunas reservas sobre el posicionamien- 
to en memoria de la ISR; asi, por ejemplo , los pri- 
meros 16 Kbytes estan asignados a la ROM, y por 
ello no pueden usarse. Por otro lado, algunos pro- 
blemas del hardware impiden la operacidn correcta 
del OS con un valor del registro I que se compren- 
da entreel64 yel 127, 

Empleo del modo 2 

Examinemos ahora como se pone el Z80 en el 
modo 2, y se establece el vector de interrupcidn con 
la direccion de la ISR que ha de emplearse: 



F3 di ;cfesactiva interrupciones 

210000 Id h1 .ADDRESS ;toma direccidn ISR en HI 

Z2FFFB Id (#FBFF),hl ;pone direccion en vector 

3EFB Id a,#F8 :byte rt/ del vector.., 

ED47 Id i,a ;...al registro I 

rD5E IM 2 ; establece modo 2 

FB eE ;reactiva Interrupciones 

O ret ;vijelta ai basic 



Naturalmente este listado presupone que hay una 
rutina en ADDRESS que gestiona ias interrupciones; 
de lo cootrario, es posible que todo se venga abajo. 
Adem^s, toda rutina de servicio de interrupci6n 
ejecutar^ idealmente todas las tareas llevadas a 
cabo por lo general en el Spectrum en su modo ha- 
bitual de interrupcion, Esto se hace mejor con una 
IJamada a la rutina en la direccion &38. El siguiente 
programa en lenguaje assembly cambia el modo de 
interrupcion a! IM2 y obliga a la CPU a ejecutar la 
rutina de ADDRESS a cada interrupcion (en este 
caso solo ejecuta las funciones habituates que reali- 
za el Spectrum en su modo normal). 





org 


60000 


;e$:peclflca dir Inicio 


vector: 


equ 


#FEFF 


;FEFF es [a dIr vector 


216FEA change: Id 


hi, add res 


;lleva address a HL 


22FFFE 


Id 


(vector), hi 


;establece vector 


F3 


di 


;desactiva Interrupciones 


3EFE 


Id 


a.#FE 


;establece el... 


£D47 


Id 




registro 1 


ED5E 


im 


2 


;cambia modo Interrups. 


FB 


ei 




;reactiva interrupciones 


09 


ret 




;vyeita al basic 


F3 addres: 


di 




:ctesconecta interrupciones 


FF 


rst 


#38 


;procedl,m lento IM1 normal 


FB 


ei 




;reactiva interrupciones 


C9 


ret 







Si se llama a la rutina en la direcci6n CHANGE, se 
establecer^ el nuevo modo de interrupcion y el vec- 
tor. Una vez conseguido esto, la rutina en ADDRESS 
hara su trabajo cada cincuentavo de segundo. Por 
el momento esta rutina no hace nada especialmente 
util, pero pronto le asignaremos alguna funcion de 
interes. Si se necesita cambiar el modo de interrup- 
cion al normal en cualquier momento del progra- 
ma, podemos emplear una nidna como la que sigue 
para que realice esto: 



F3 dt 

3E3F Id a,#3f ;restablece rag I 

ED47 Id I, a ;...a su valor nornnal 

ED56 im i ;modo normal 

FB ei ireactiva interrupciones 

C9 ret 



Para hacer que una rutina de servicio de interrup- 
cion ejecute algun codigo maquioa escrito por no- 
sotroSj trataremos ese codigo como una sobrutina y 
!o Ilamaremos (CALL) de esta manera: 

F3 addres: di 



F5 pjsh af ;salva registros.,, 

05 push be 

D5 push de 

E5 push hi 

FF rst #38 : 1 lama fSR normal 

F3 di :ISR hizo El, portanto DI otra 

vez 

CDOOOO call PROG^DD ; I lama nuestra rulina 

E1 pop hi ;restaura registros... 

D1 pop de 

01 pop be 

F1 pop af 

FB ei 

09 ret 



Naturalmente, si la rutina de servicio es m^s bien 
larga, ralentizar^ ligeramente al Spectrum, lo que 
afectara a la ejecuci6n del programa y a la veloci- 
dad en que se incrementa FRAMES. Por ultimo, re- 
cuerde siempre que debe desactivar las interrupcio- 
nes durante su rutina para evitar que ocurra una 
segunda interrupcion a mitad del tratamiento de la 
primera. 
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B sfrieiMe p^irama m u e stra c6mo 

paraaliaer'Mstcade fondo" en 
er^jjpocifi B CoinpiiadQr de Datos 
de Mobs an prog ra ma en ba^ic 
poreJ»esefi!ieden escribir 

mecc ' ^^'enlrasqueel 
ItS'-i:: I Cargadoren 
SAS : ! ' . . . : 1. :^.3 de un 
ersi ~ : : : e : e'mitirS establecer 
la \ i - .E i^sada en 
intr'M: . i^asarle los datos 
cor: k:s :r ^ Compilador d& 
Or.:s :f \:-i=. Si seejecuta el 
Cc^: ' :e Datos de Notas se 
n: ; " "arru con tres 
c: .:.-03por'C- 
C2 : : %s1ira la melodfa 

(c:"-r :i :" E.e'tencias data 
qie = = iineas 10 y 900) 

en „^ '';:-e^tode codigo m^quina 
uti e ::' a mtinade 
Inte"-: : : " .a opcidn 'P' hm 
SO"-:- I ■- 7 rnia de modo que pueda 
rea ly : e :i"iDios qoe le 
ape:E::E" eitras 'R' volverS al 
BAE ■ :_eDuedaguardar 
{Sr .1 : : : E-.:s compilados o 
Cc'-' : -z' -.' zr.ds mosicales 
cc^:^- r- as sen ten das data. 
Ob==-,e;e :.5siseejnp]ea la 
opcion C . se obtendra una 
interrog«3dn para que 
espec^quemos donde se desean 
almacenar Eos datos de notas en la 
memona. Cerdorese de que los 
almacena por enclma de RAMTOP, 
cuyo valor nabra alterado 
previamente para dar espacio a los 
data, Una vezcompjiadas las notas y 
almacenadas. ladirecclon de basey 
la longed del codego quedaran 
visuafizados. Para guard ar el codigo, 
vuelva al basic y teclee: SAVE 
"KOT^OATA" CODE (dfrecci^n de 
base), (longitud en n.° de bytes). 
For uitiTOj. si desea emplear sus 
propias meSodfas, efimine las Imeas 
que van de ia 1 0 a la 90 y escriba sus 
pro pi OS datos entre estas iineas. 
Oigite es tistado assembly por medio 
de on ensambladory gu^rdelo en 
cinta. Si no posee on ensamblador 
empiee el Cargador del basic. La 
mlina liene una direccton de base en 
65021 , por [o tanto cerciorese de 
que antes de cargar el codigo en la 
memoria ysted ha rebajado 
convemeyttemente e! RAft^TOP 
(bastara con CLEAR 65000). Una vez 
ensamt>lacio y cargado el codigo, 
sec^ nece^rto cargar el codigo 
compilado por el Gompilador de 
Datos d«e Notas (ver mas abajo) , De 
nuevo no ohride de rebajar el 
RAMTOP para dar espacio a los 
datos de las notas. ES programa 
Musics bajo mterrupdonesm^^ el 
conodmiemo exacto de ia posici6n 
de los dAis de notas que ha de 
hacer sonar, pan que fun crone. Esta 
InformaoDfi se pasar a !a 
rutlfta pof madio del sigucente 
progranaenBAStc: 

10 LETL-^152:LH 

- 'r:: :' base de 
:e :e::e :E"::asn 
20 F0^£.-'.:^7(V256j: 
POKELV-PEEK 

HectK) esto, HAW USR 65041 

estafiiece'^ ^ TV2 y ^ti"!. me- 
lodta. Z : ^ : 

narae? ^V" , :eee ^ e _i j-.. 



Programa "Musica bajo 
interrupciones'' 

Compilador de Datos de Notas 

1 >»MUSICA BAJO INTERRUPCIONES«< 

2 »Connptlador Datos Notas<< 

3 REM 

6 REM *OATOS DE NOTAS EN FORMA BEEP DEL SPECTRUM 

7 REM 

9 RESTORE 

10 DATA 1,12,2,9,1 .9, 1,9.1,8.1, 9, 2,17,1, 12,2.12,1, 9, 2.10,1, 

10,2,10,1,12,5,14 
20 DATA 1,14.2,7,1,7,1,7,1,6,1,7,2, 16,1, 14,2,14,1. 10,2,9,1, 

9,2,9,1,10,5,12 
30 DATA 1,12,2,9,1,9,1,9,1,8,1,9,2,17,1,12,2,12,1,12,2.11, 

1 19 2 19 1 19 5 19 

40 DATA 1,17, 2, 16,1,19,1, 19,1, 18,1, 19,2,14,1, 19,1, 19,1 ,18, 

1,19,2,12,1,11,2,12,1,11,3,12 
50 DATA3,10,1,9,1,8,1, 9,2,14,1, 12,3.2,9,3,2,5.3.2,2, 

2 3 2 7 5 5 

60 DATA 1,5,'l,7,1,9,1, 10,2,16,1,14,3.2,12,3.2,17,3.2,16, 
3.2,14,5,12 

70 DATA1, 12,2,14,1, 14,1, 14,1,13,1, 14,3,16,3,9 

80 0ATA2, 17,1 ,17,1,19,1,17,1,19,5,21 

90 DATA 1,21 ,2,19,1,17,2,14,1,10,3.2,9,3.2,5,3,2,7.3.2,4.5,5 

997 REM 

998 REMN0B0RRARLINEA999 

999 DATA 255,255 
100O REM 

2000 REM ""MENU**** 
2010 BORDER 1: PAPER 1: INK 6 
2020 CLS 

2030 PRINT AT 5,4;^X0MPILA00R MUSICA' :AT10,5;"C — 
Compile note data":AT 1 2,5;" P — Play tune In beeps ^AT 
14,5;"R— Return to BASIC" 

2040 LETaS = INKEY$ 

2050 IF aS = ' c ■ OR aS=^ C" THEN GO TO 5000 
2060 IFa£="p" ORaS = "P"THENGOT0 3000 
2070 IFaS= "r " OR a$="R ' THEN CLS : STOP 
2030 GO TO 2040 
3000 RESTORE 

3010 READd,f: IFd-255 ANDt=255 THEN GOT02000 
3020 GEEPd/10,f 6:GOT0 3010 



5000 RESTORE : CLS ; INPUT ' DIRECCIONE BASE OE DATA 
NOTAS? ";dd1: POKE 23301, fNT (dd 1/256); POKE 
23300,dd1 -(256* PEEK 23301): CLEAR ddl -1: LET 
ddl = PEEK 23300 + 256' PEEK 23301 

5005 LETf-0:LETp=dd1 

5010 READdelay,pitch 

5015 LET delays INT (delay*6) 

502O LET treq = (1 .0594631 "pitch)*256. 

5030 LET bip = INT {{437500/f req) - 30 . 1 25) 

5035 IF delay =255*6 THEN P0K£d,255: GO TO 6000 

5037 LETI=f + 1:PRfNTAT1O,10;'NOTA)^f 

5040 POKE d, delay 

5060 POKE d + 1 .blp-(INT (bip/256)*256) 
5070 P0KEd + 2.INT(bip/256) 
5030 LETd=d+3 
5090 GO TO 5010 

6000 PAUSE 50: CLS : LET len = (d+2)-'dd1 
6010 PRINT ■^■-NUMERO DE BYTES DE DATA'DE NOTAS..." Jen 
6020 INPUT "PULSE ENTER' PARA VOL VER A MENU "\ LINE aS: 
GOTO 2000 

Cargador del basic 

10 RESTORE9000 
20 CLEAR 64000 

30 LETcqs=0: FOR f =65021 TO 65156 
40 READ dat: POKE f.dat 
50 LETcqs=cqs+dat 
60 NEXT f 

70 IFcqs<>18B50THEN PRiNT ' ERROR EN OATAiM " : STOP 
80 PRINT '^OK CORRECTOS LOS DATA" 
90 STOP 

9000 DATA 0,0,221,229,229,197,213,245,195,52,254,241,209, 
193,225,221.225,195.56,0,33,255,253,34,253,253,243, 
62,253,237,71,237,94,42,128,254,34,126,254,62,1, 
50,130,254,61,50,131,254,251,201,243,237,86,251,201, 
58,130,254.254,0,202,8,254,58,131,254.254,0, 
202.75,254,61.50,131,254,195,6,254,42,126,254,126, 
254,255,202,103,254,50,131,254,35,126,35,95,126,35, 
34,126,254,103,107,17,4,0,205.181,3,243,195,8, 
254,42,128,254,34,126,254,62,1,50,130,254,61, 
50,131.254,195,8.254,0,0,0,0,0,0,0, 
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start 
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Inteligenoia artificial/Aplicaciones 




Conocimiento visual 

Al programar un ordenador para que «comprenda» lo que ve, es 
necesario diferenciar lo que se ve de lo que se conoce 




Vista de lince 

Algunossistemas de 
reconoci miento de pal rones 
adoptan un enfoque de Bmba- 
al)Bjo, en ef Que se explora un 
patron oescena en buscadela 
presencradeunobjeto 
determinado. Sobre fa pantalla 
se proyecta una representacidin 
esquem^tica del objeto en 
diversas orientaciones hasta 
que. si el objeto esta presente, 
se encuentra una proyeccion 
que eneajaen lasllueta de la 
f lgura real. En una escena 
trIdFmensionaf, como la que 
vemos aqui, es muy grande la 
cantidad de postbles 
proyeccionesquese podrian 
hacerde un modelo 
esquemalico del autobOs antes 
de ballar fa correcta 



Dicen que «la belleza esta en los ojos del que 
miraw; pero seria mcjor decir que ia belleza esta en 
el cercbro del perceptor o, con mayor precision, en 
una compleja cadena de procesos nerv-'iosos que co- 
mienza en el fondo de la retina y termina en algun 
lugar de la corteza occipital del cerebro, Es esta 
cadena de eventos lo que los fisio logos intentan 
comprender y lo que los expertos en rob6tica inten- 
tan, en cierto sentido. imitar. 

La percepcion visual es un componente tan inte- 
gral de la forma cn que comprendemos nuestro en- 
torno, que con frccuencia decimos «Ya veo» cuan- 
do en realidad queremos significar «Ya compren- 
do». La comprension es realmente la clave del de- 
safio que representa la vision por ordenador. De 
alguna forma, el ordenador debe tomar la mforma- 
cion que le proporciona una camara, u otro disposi- 
tivo sensible a la luz, y entender lo que esa informa- 
ci6n !e dice sobre el est ado de su entorno. Adquirir 
la informacion es facil: el problema es como inter- 
pret aria. 

El proceso de transformar imtigcnes en significa- 
dos consta de tres etapas principaies: 

L Proceso de ia imagen: Convertir una imagen di- 
fusa o dtstorsionada en una mas nidda. (La solu- 
cion de esta tarca es relativamente simple.) 
2. Reconocmuento de patroues: Detectar la presen- 



cia 0 la ausencia de rasgos u objetos significativos. 
(Esto es mas complicado,} 

3. Comprension de ia imagen: Determinar lo que 
esta sucediendo en el mundo real. (Un problema 
muy complejo.) 

Aunque la aut^ntica vision por ordenador (etapa 3) 
lodavia no se ha alcanzado, de las dos etapas inicia- 
les SI se han obtenido resultados utiles - 

Reconocimiento de patrones 

El reconocimiento de patrones es una tare a fasci- 
nante, si bien nos resulta dificil <<ver» las dificulta- 
des que entrafia. Los reconocedores de patrones 
clasifican las imagenes emparejandolas con un 
con junto limitado de alternativas, tales como las le- 
tras del alfabeto en ei caso de los sistemas de reco- 
nocimiento de caracteres opticos. Tipicamente, ex- 
traen caracteristicas mediante el examcn de partes 
de la imagen digitalizada (pequenos grupos de pi- 
xels). £1 sistema puede entonces reconoccr y clasi- 
ficar patroues basados en la prcsenda o la ausencia 
de ciertas caracteristicas distintivas. 

El reconocimiento de algun as caracteristicas, 
como pueden ser los trazos en diagonal, para noso- 
tros es claro, pero con frecuencia la identificacion 
de tales sistemas puede resultar puramcnte de 
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calculos arbitrarios efectuados sobre los datos de la 
imageo, Algunos sistemas poseen iniportantes usos 
praoicos. pero apenas si tocan la superficie de lo 
que enteodemos por vision. 

Historicamente, la vision por ordenador como 
comprensioD de la imagen ha tenido dos enfoques 
opuestDs: el enfoque de arriba-abajo o activado por 
modelos. y el enfoque de abujo-arriba o activado 
por datos. 

El anitif^is de escenas activado por modelos con 
frecueuda se denomina alucinacidn controlada. El 
sistema posee un modelo interne de lo que esta 
buscando (un autobus de dos pisos, p. ej.) y 
proyecta ese modelo sobre el piano de imagen en 
di^'ersa5 orientaciones. Luego comprueba la cali- 
dad de encaje entre lo que ha «imaginado» y lo que 
hay verdaderamente alli. 

Los sistemas de abajo-arriba exploran los datos 
de la imagen en busca de lineas, hordes y otros sig- 
nos reveladores, Mediante esa expioracion cons- 
tmyen una descripci6n simplificada de la imagen ^ 
que se denomina boceto primidvo y es una repre- 
sentacion muy abstracta de ios datos. La idea es 
que al prescindir de gran parte de los detalles se 
hace mas facil comparar el boceto con ejemplos to- 
mados de una categoria dada de objetos almacena- 
dos como plantillas de referenda. 

Los sistemas practices tienden a emplear tanto el 
metodo de arriba-abajo como el de abajo-arriba, 
pero hasta muy recientemente habia muy pocos sis- 
temas de aprendizaje en ef campo de la vision por 
ordenador. Todos ellos dependian de inteligencia 
preprogramada. 

Una excepcidn notable es el WISARD (Wilkie, 
Aieksander <& Stonham's Recognition Device) de 
Igor .AJeksander. Se le puede ensenar a hacer la 
distinrion, comparativamente sutil, entre un rostro 
humano sonriente y uno con el ceno fruncido. 
Puede incluso generalizar este conocimiento a ros- 
tros que no haya visto nunca antes. El WISARD 
opera en tiempo real (25 fotogramas por segundo) 
y su exito comercial para clasificar chocolates sobre 
una cinta transportadora mdvil podria allanar el ca- 
mino para una nueva generacion de «m Aquinas que 
ven» que adapten y me j or en su rendimiento. 

De forma muy resumida, el WISARD trabaja 
asignajido grupos de ocho pixels por vez (octuplos) 
a bancos seleccionados de RAM. Un octuplo es un 
detector de rasgos y puede estar en uno de 256 esta- 
dos (de 0 a 255). segun el estado de cada uno de los 
pixels que controla. Durante la fase de entrena- 
miento, se almacena un 1 en la posicion del banco 
de RAM especificada por el estado del octuplo 
cuando hay presente una imagen determinada, 
Luego. en la fase de reconocimiento, la presencia 
de un 1 en la posicion direccionada del banco de 
RAM de ese octuplo constituye una evidencia 
de que la imagen «enseiiada>^ est^ otra vez pre- 
sente. 

Mediante el empleo de una gran cantidad de oc- 
tuplos. 0 discriminadores, el sistema se vuelve rela- 
tivamente impermeable a datos espurios (imAgenes 
«ruidosas>^). 

El sistema de Aieksander posee una cuadricula 
de 512 por 512 para la imagen y mas de 32 000 oc- 
tuplos, Eilo requiere alrededor de ocho millones de 
bits (un megabyte) de RAM. Tales memorias se 
han vuelto econdmicamente viables desde hace 
muy poco tiempo. 
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La diferencia entre R y A 

En el mundo real, los datos bien definrdos son muy poco 
frecuentes. En el ejempio de arnba vemos formas digitalszadas de 
las letras A y R, pero ningun patron esta blen definido, al existir 
manciiasy distorsiones. Los datos <^rujdosos» como ^stos son 
un problema constante para todos los tipos de sistemas de 
Inteligencia artlflclaL ^Podria usted determlnar cuai es cuMI? 
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Proceso de imagenes 

llustramos un ejempio de proceso de imagenes. Aqui 
se ha procesado por ordenador una fotografia tomada 
desde una sonda espacial, para acentuar las fronteras 
entre regiones de distinto relieve. Ello implica el uso 
de colores falsos. Lo interesante de este grabado, que 
en realidad es una imagen por radar del planeta 
Venus, es quetodos los cofares son <^falsos>'. Sin la 
ayuda del ordenador jamas podriamos ver esta 
imagen, porque Venus est^ envuelto en densas nubes 
y nuestros ojos no son sensibles a [as longitudes de 
onda que se requieren para penetrarlas, En 
astronomia, tafes imagenes han resultado muy utiles 
(y algunas veces muy bellas) en los dltimos anos, 
aprovechando, ademas de la luz visible, Jas longitudes 
de o^nda de radio, inlrarrojas y ultravioletas. En 
nuestro planeta se esta investigando el lecho oceanico 
por sonar para construir <^imagenes acustjcasi> que 
emplean ef principio del sondeo acustico y no 
dependen en absolute de la radiacidn 
electromagnetica (Ju2 visible, uftravioleta, infrarroja, 
rayos X, etc.). Otras clases de proceso de imagenes 
se utilizan para «limp!ar» imagenes borrosas o 
distorsionadas. Tales algoritmos se emplean ahora de 
forma tan rutinaria que ya no se consideran 
componentes deAl 
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Bocetos primitivos 

Se ha desarfollado un metodo de proceso visual que no depends 
del conocimiento previo de lo que se supone que represerta el 
patron. El boceto primarlo (a) extrae de la imagen del osito de 
peluche fronteras y formas pnmitivas, mediante la com pa radon 
de regiones adyacentes. Sucesivas extracclones del boceto 
primitivo {de [b] a [d]) revefan grupos importantes que 
contnbuyan a reconocer ta Imagen original 
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Diseno 
funcional 

Contjntiando con nuestra serie dedicada al lisp, 
exammamos sus dos conceptos fundameiitales: 
listas y funciones 

En el primer capitulo de esta serie vimos como 
informar al lisp dc que queremos que una lista 
determinada se evalue como una lista dc 
elementos de datos y no como una funcion. De 
modo que: 

{SETQX*(ABCDEF)) 

asignaria la lista (A B C D E F) a la variable X, 
donde cada cicmento de la lista es una serie de 
un unico caracter. Veamos lo que sucedena si D, 
E y F fucran series de un unico caracter y A, B y C 
fucran variables con los valorcs 2, 4 y 8, 
respectivamentc. En este caso, en realidad 
deseariamos asignar a X la lista (2 4 8 D E F). 
Podemos hacerlo introduciendo una nueva 
funcion: LIST, Esta crca una lista de sus 
argumentos. Por lo tanto: 

(SETQX(UST^A^B 'C 'D 'E T)) 

seria exactamente lo mismo que la cxpresi6n 
previa, pero: 

(SETQX (LISTA BC'D 'E 'F)) 

asignaria correctamente la lista (2 4 8 'D 'E 'F). 
Aqui, al omitir los apostrofos prcccdentes, se 
evaluarian A, B y C. Dc forma muy similar: 

(SETQX(LIST1 24'{PLUS44)) 

asignaria a X la lista {12 4 (PLUS 4 4)), donde e! 
cuarto elemenio de la lista es en sf mismo una 
lista compuesta de los tres elementos PLUS, 4 y 
4. En otras palabras, PLUS no se ha evaluado 
porque hemos precedido la cxpresi6n con un 
apostrofo. Sin embargo: 

(SETQX(UST12 4{PLUS4 4)) 

asignaria a X la lista (1 24 8), donde PLUS se ha 
evaluado (lo que demuestra la diferencia que 
puede suponer un simple apostrofo). Podemos 
ampltar aun mas estc concepto para crear una 
lista de Itstas. 
Por ejemplo: 

(SETQ PERSONA' ((JUAN PI) (17 1 1950))) 

asignaria a la variable PERSONA una lista de 
datos. 

La lista contiene dos elementos, siendo cada 
uno de ellos una lista. La primera contiene dos 
elementos de caracteres y la segunda, tres 
elementos numericos. Usted puede seguir 
ampliandola para obtener todavia mas listas de 
listas. 

Hasta ahora hemos visto las funciones SETQ, 
LIST, PLUS y TIMES. El lisp tiene muchas mas 
funciones incorporadas, y su utilizacion 



dependera de cada implementaci6n en 
particular. Ademas, usted puede definir sus 
propias funciones; de hecho esta es la forma en 
que se construyen ios programas en lisf. 

Antes de ver como se haee estOj examinemos 
las tres funciones basicas que existen en todas 
las implementaciones de i.tsp. Estas son CAR, 
CDR y CONS. El nombre CONS alude 
simplemente a CONStruccion. Los nombres CAR 
y CDR datan de una de las implementaciones 
originates del lenguaje, y corresponden a las 
siglas de Zontents of Address R^gi^^rer (contenido 
del registro de direcciones) y Contents of 
Decrement Register {contenido del registro de 
decremcnto), respect iv am ente. Tanto CAR 
como CDR toman un linico argumcnto, que ha 
de ser una lista eon al menos un elemento. Esto 
excluye la estructura de lista especial conocida 
como lista vacta, o NIL^ que se escribe: 

( ) 

La funci6n CAR devuelvc como resultado el 
primer elemento de su argumento. Asi: 

(CAR ^1 2345)) 

devolveria el valor entero 1 . No hay ningun 
motivo por el cual el resultado no pueda ser en 
SI mismo una lista. 

Por ejemplo, en la expresion: 

(CAR^((1 2) (3 4)5)) 

el primer elemento es la lista (1 2). 

La funcion CDR efcctivamente devuclve todo 
menos el primer elemento de una lista, Dicho 
en otras palabras, devuelve lo que queda tras 
una operacion CAB. De modo que: 

(CDR '{123 4 5}) 
devolveria la lista {2 3 4 5), y: 

(CDR'((1 2) (3 4)5)} 

devolveria la lista {(3 4) 5). 

CONS espera dos argumentos y los concatcna 
entre sf, anadiendo el primer argumento a la 
lista del segu n do argu mento . 

Per lo tanto: 

(CONS r (2345)} 
construiria la lista (1 2 3 4 5} y: 

(CONS 12) '((34} 5}) 

construiria la lista ((1 2) (3 4) 5). 

A menudo las funciones CAR y CDR sc 
encontraran anidadas, de modo que: 

(CDR '((12) (3 4) 5)} 
devolvera ({3 4) 5), y: 

(CAR (CDR'({1 2) {3 4) 5))) 
devolvera (3 4) , que es (CAR '{(3 4) 5)), y: 

(CAR (CAR (CDR ^({1 2) (34) 5)})) 

devoivera el valor 3, que es (CAR '(3 4)), 

Esto enseguida resuha tedioso, de modo que 
el LISP suele admitir abreviaciones. Los nombres 
dc las funciones comienzan igualmente con C y 
term in an con R, pero pueden tencr entremedio 
cualquier combinacion dc Aes (para CAR) y Des 
(para CDR). Utilizando el lisp Acomsoft, esta 




Lisp/Ciencia informatioa 



combinacion puede constar de hasta tres Ictras 
empotradas. For tanto, podnamos escribii la 
ultima expresion asi: 

(CAAR {CDR '{(1 2) (34) 5))) 



(CAR (CADR'((1 2] {3 4) 5))) 
o incluso; 

{CAADRX(1 2) (34) 5)) 
todas las cuales darian como respucsta 3. 

Def inicion de funciones 

Como ya hemos obsen^adOj los programas en 
Lispse construyen como una serie de funciones 
definidas por el usuario. Hemos visto, adcmas, 
que todas las expresiones son listas de 
funciones. de modo que es bastante natural que 
utilicemos funciones para definir funciones. En 
este caso, empleamos la funcion DEFUN, que 
espera tres argumcntos de la forma: 

(DEFUNa(b){c)) 

donde a cs el nombre de la funcion, b cs la lista 
de parametros (como las del pascal, el basic 
BBC, etc.) y c es una estructura de lista que 
contienc cl cuerpo principal de la funcion. 
Estamos ahora en condiciones dc definir nuestra 
primera funcion. Supongamos que 
frecuentemcnte desearamos multiplicar 
numeros por el valor 8. Podriamos slmplemente 
escribir: 

(TIMES 8 N) 

cada vcz, donde N es el ntimero a multiplicar. 
En cambio, vamos a definir una funci6n para 
hacer io mismo: 

(DEFUN TIMES (N) (TIMES 8 N)) 

Aqui la funci6n TIMES toma su argumento N y 
utiliza la funcion cstandar TIMES para 
multiplicar este ntimero por 8 y devolver un 

valor. 

De modo que la expresion: 

(TIMES 11) 

ahora dan a como result ado S8, 

Antes de que prosigamos, hcmos de 
examinar un import ante concepto de 
programacion: la coiidicion. jSu importancia 
puede quedar ciara si pensamos en lo que seria 
cl BASIC sin sentencias IF, . .THEN ! 

La scute ncia condicional del lisp asume la 
forma de una funcion: 

(COND (Condicioni Expresionl) 
(CondicidnZ Expresidn2) 

(CondicionX ExpresidnX)) 

En primer lugar, observe que esta funcion se ha 
extendido a varias hncas para darles cabida a 
todas. 

Esto cs bastante normal en lisp, que sabc 
cuando usted ha tcrminado una expresion 
porque habra cerrado el parentcsis final. 

La funcion COND es muy pa re ci da a la 



(DEFUN EQUAL (A B) (COND 
((EQAB)T) 

((OR (ATOM A) (ATOM B)) NIL) 

((EQUAL (GOCHE A) (COCHE E)} (EQUAL {CDR A) (CDR B))) 
(TNIL))) 

(DEFUN HALLAR_COCHE (X L) (COND 

((NULL L) (NINGUN NUMERO)) 

((EQUAL X (CDAR L)) (COCHE L)) 

(T (HALLAR_COCHE X (CDR L))))) 
(SETQ COCHES '({PEREZ ABC123X) (TORRES XYZ789Y) 

(MARTI N ACE99L) (LUCIA JBB1 )) 
(PRINTC (HALLAR_COCHE (ACE99L) COCHES)) 



sentencia CASE del pascal. Se evalua la 
Condicioni y, dc serverdadera, entoncesse 
utilizara la Expresidnl para devolver un 
resultado. De lo contrario, se comprobara la 
CondiCi6n2, y asf sucesivamente. Algunas 
implementaciones dc lisp {incluyendo el lisp 
Acornsoft) exigen que hi evaluacion de a) 
menos una de las condiciones (denominadas 
predicados) resulte verdadera. Esto se maneja 
facilmentc mediante la adicion de una condicion 
final de la forma: 

(COMD (Condicidnl Expresionl) 
(Condicion2 Expresidna) 
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Aqm el caracter Tse utiliza para representar 
Trw^; de modo que la expresion final (en caso de 
que se liegue a eOa) siempre se evaluara. En 
usp: 

T - True = No cero 



F = False ^ Cero - ( ) 

Lo tiltimo es la lista vacia. Ahora podemos 
definir una funcion algo mas compleja. Una 
facilidad muy ulil de la que disponcn la mayor 
parte de las versiones de basic es ABS, que 
devuelvc el valor absoluto de su argumento. En 
Otras palabras, si su argumento es positivo, 
quedara sin modificar; de lo contra rio, sera 
negado. 

Nuestra funcion de lisp habra dc scr de la 
forma: 

(DEFUN ABS (X) 

(cuerpo de la funcion}) 

donde X es el argumento entero. Empleando 
nuestra nueva funcion condicional, podemos 
escribir toda la funcion ABS como: 

(DEFUN ABS (X) 
{COND ((MINUSPX) (MINUS X)) 
(T X ))) 

Aqui hemos utilixado dos nuevas funciones. 
MINUSP es una funcion de comprobacion que 
devuelve el valor si su argumento es un numero 
negativo, y falso de lo contrario. Si la condicion 
evalua a T, la funcion MINUS cambia su 
argumento a ncgativo. Si no es este el caso, la 
condicion T (que siempre es verdadera) 
devolvera ei valor X original. 
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Margarita, Margarita... 

Elmetccc ^23 usual para 
corf:;r ':;-_^erttos 
torizy.: f : la J^IDI es 
mediante una cad ana margarita. 
La mayoria de las inslrumentos 
poseen conedores MIDI THRU 
(ademas de MIDI EN y MIDI 
OUT). Estos. en efecto, 
permiten la formacion de un 
sistematipo bus, an efcual 
todos I OS instrumentos est^n 
coneclados al bus pero s6\o 
responden a mensajes por 
canates determinados 



Reglas de 
composicion 



Construida ya la placa de la Interface, concentraremos nuestra 
atencion en el software 



Ya hemos visto como se transmite un byte de datos 
a traves de la MIDI hasta un instrumento receptor. 
Ahora vamos a determinar el fonnato del (los) 
byte(s) necesanos para comunicar la informacion 
requerida, Un unico «evento» musical se transmite 
como un giupo de bytes denominado mensaje. La 
longitud de !a mayoria de los mensajes esta entre 
uno y tres bytes, con la excepcion de los mensajes 
«exclusivos para el sistema» (que analizaremos mas 
adelante), cuya longitud puede ser de cualquier nu- 
mero de bytes. Cad a mcnsaje comienza con un 
byte cuyo bit mas significativo (MSB) es igual a 
uno, seguido por el resto de las bytes del mensaje, 
todos los cuales tienen sus MSB establccidos en 
cero. Se dice que tin byte con su MSB establecido 
en uno es un byte de estado; los otros son bytes de 
datos. Los mensajes MIDI se dividen en dos tipos 
basicos: canales y sistemas. 

La necesidad de los mensajes de canal surge del 
«encadenaniiento en margarita», e! metodo de in- 
terconexion mas usual utiiizado en sistemas peque- 
nos. En estos sistemas, cada unidad recibe todos los 
datos en via dos por la unidad transmisora maestra. 
Los mensajes de canal se utilizan para transmitir 
informacion que no este dirigida necesariamente a 
todas las unidades de un sistema. Por consiguicnte, 
a la mayoria de los receptores MIDI se les pucdc 
asignar un numero de canal entre 1 y 16. 

Los mensajes de canal poseen bytes de estado 
con valores comprendidos en la escala entre $80 y 
SEF inclusive, y tienen uno o dos bytes de datos. El 
numero de canal esta codificado en los cuatro bits 
menos significativos (el digito hex a menos significa- 
tivo) del byte de estado, representando $0 el canal 
1 y SF el canal 16. Los tres bits restantes determinan 
el tipo de mensaje que viene a continuacion. 

Una caractcristica especial de los mensajes de 
canal es que no es necesario enviar el byte de esta- 
do si se trata del mismo que el byte de estado ante- 
rior. En efecto, el estado actual o corriente perma- 



nece vigente hasta que se recibe otro byte de esta- 
do. La excepcion es cuando un mensaje de sistema 
en tiempo real Interrumpe temporalmente el estado 
actual. 

Esto es particular men te litil para comunicar mu- 

chos mensajes consecutivos dc nota on/off, dado 
que un mensaje nota on con una vclocidad (con 
cuanta fuerza se pulsa una tecla) de cero equivale a 
un mensaje nota off La utilizacion del mismo esta- 
do (nam on) para una serie de mensajes de nota 
on/ off resulta en un ahorro de espacio de memoria 
y de tiempo de transmision. 

En los sintetizadorcs, asignacidn de voz es el pro- 
ceso de dirigir un mensaje de nota (ya sea desde la 
MIDI o desde el teclado del instrumento) a una de 
ias voces del sintetizador disponibles en ese mo- 
mento para producir realmente la nota. Por ejem- 
plOj se dice que un sintetizador polifonico de seis 
notas posee seis voces. Para control ar la respuesta 
del instrumento a los mensajes dc canal, los men- 
sajes de modaUdad MIDI puede n seleccionar cierto 
numero de mod alidades. El receptor que no sea 
capaz dc operar en la modalidad requerida ignora- 
r^ el mensaje de modalidad. 

La modalidctd omni es la mas simple; en ella el 
receptor responde a todos los mensajes de canal 
con independencia del niimcro de canal MIDI codi- 
ficado en los mensajes. Cuando se apaga la modali- 
dad onini, ia unidad responde s61o a los mensajes 
enviados por canales MIDI especificos. 

La mayoria de los sintetizadorcs polifonicos po- 
seen un ntimero de voces limitado (por lo general, 
seis u ocho), lo que significa que debe emprenderse 
alguna accion si se requiere una nota cuando ya han 
sido asignadas todas las voces por mensajes de nota 
anteriores. Por lo general las voces se asignan par 
estricto orden de rotacion, de niodo que la nota 
menos reciente se apaga para que la voz quede dis- 
ponibie para la nueva nota. Esta modalidad de ope- 
racion se selecciona mediante el mensaje po. 
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mode on. Un mensaje mono mode on indica al re- 
ceptor que asigne cada una de sus voces monofoni- 
camente a uno de un grupo de canales MIDI conse- 
cutivos comenzando desde el canal original (basico) 
del sintetizador. El mensaje de modalidad mono se 
envia por el canal basico y su segundo byte de datos 
especifica el numero total de canales requeridos. 

Si esta activada la modalidad omni, un mensaje 
mono simplemente indica al receptor que asigne 
monofdnicamente una voz a los mensajes de canal 
MIDI en todos los canales. 

Los mensajes del sistema no se codifican con nu- 
meros de canal en sus bytes de estado. Por consi- 
guiente, todas las unidades del sistema reciben el 
byte de estado. Los mensajes del sistema caen en 
tres categorias: comunes, en tiempo real y exclu- 
sivos, 

Los mensajes de sistema comunes poseen bytes 
de estado desde $F1 hasta SF7. Se componen por el 
byte de estado seguido dc 0, 1 o 2 bytes de dates. 



Los mensajes del sistema en nempo re^ estan cS- 
Tigidos a todas las unidades del sistema. Tienen 
b>les de estado desde SF8 hasta SFF >' los utilizan 
principalmente las maquinas de ritmos y los secuen- 
ciadores para sincronizar sus propias secuendas in- 
ternas con el reloj del transmisor maestiD. La 
mayoria de ios sintetizadores ignoraran esios men- 
sajes a menos que posean alguna forma de secueu- 
ciador intemo con capacidad para sincromzacwSn 
MIDI. 

Los mensajes del sistema en tiempo real difieren 
de los otros mensajes en que sc componen de un 
byte de estado solamente y ningtin byte dc datos. 
En consecuencia, se permite enviarlos en cualquier 
momento, aun cuando interrumpan mensajes dc 
otros tipos, 

Los mensajes exclusivos del sistema comienzan 
con el byte de estado SFO, seguido por cualquier 
numero de bytes de datos, y acaban ya sea con el 
byte de estado de final de exclusivo ($F7) o bien 
con cualquier otro byte de estado. El primer byte 
de datos es el codigo de identificacion (ID) del fa- 
bricante. Si este no coincide con el ID de la unidad 
reccptora, se ignorara el resto del mensaje. Los 
mensajes estan destinados a la transferencia de 
datos entre instrumentos de tipo similar, que care- 
cerian de significado para otras unidades. El princi- 
pal tipo de datos transferido son los datos de pro- 
grama parche para sintetizadores. (No debe con- 
fundirse la transmision de un programa parche de 
esta forma con el mensaje de canal $Cx, que selec- 
ciona entre programas parche ya almacenados en la 
memoria del receptor.) Sin embargo, el tipo de 
datos transmitido por los mensajes exclusivos del 
sistema queda en manos del fabricante, siempre y 
cuando se le haya asignado un codigo ID valido. 
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c= valor controlador 
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d)n=$7C,c^0 
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(tod as las notas apagadas) 








e)n=S7D,c=0 
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Mod. mono encendida 
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Mod, poll encendida 
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SCx pp 




Seleccldn Prog, Parche 
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Excepto cfonde se especlfique otra cosa, todos los bytes de datos 
pueden terter cualquier valor antre 0 y S7F. El numero de canal se 
representa medianlex. el diglto (hexa) menos significativo dei byte de 
estado (x^O especjfica canal 1 y x^SFespeciHca canal 16). 
1 p es el tono de la nota en semitonos. Do central es el nOmero de 
tono $3C y, pQr tan to, todos los do son mOltiplos de SOC (decimal 
12), E\ tedado de pfano est^ndar dc aS notas va de S15 a $6C, 

2. Los vafores de veiocsdad van desdeSOt hasta S7F. Los teclados sin 
sensores de velocidad deben utllizar una velocidad pordefecto de 
$40. Un mensaje de «nota encendida^ con una velocidad de 0 
equivale a un mer^saje de «nota apagada» con una velocidad per 
defecto de S40. 

3. «0espu6s de pulsaci6n» es fa cantidad de presidn ej'ercida sobre 
urrateda tras haberia pulsado. Por lo general se utiliza para introducir 
efectos de modulacidn sin tener que operar un mando oe modulaci6n. 
Hay dos lipos de sensores de presi6n y dos tipos difensrrtes de mensajes, 

a) El "cfespues de puisaci6n" individual o polifdnico requiere sensores 
de presifin individuales para cada tecJa y afeda solo a la nota 
correspondiente a la tecia puisada. En consecuencia, ademSs del 
valor de presifin se debe enviar un numero de tono. (Su 
implementad6n requiere, asimismo, qye se proporcionen circuitos 
de moduiacidn separados para cada voz,) 
b} Lapresidn de canal se produce mediante un unico sensor de 
presion, a I que afectan de igual forma todas las teclas. La presidn que 
se trans mite correspond e a la presidn m^ima (todas fas teclas 
pulsadas al misrno tiempo). El efecto resultante se apiica 
simult^neamerrte a todas las voces. 

4. Estos mensajes Ids envian controladores separados del teclado. 
Los numeros controladores de $0 a S1F son cootroladores continuos 
que poseen valores de control (c) de SO a 37F. Estos equivalen a fas 
palancas de mando de potenciomeiro para ordenadores y de tiecho 
pueden ser palancas de mando u otros dispositivos tales como 
mandos de ruedas, pedaies y controladores de aliento. Los numeros 
de controlador de $20 a S3F se utiliza n opcionalmente para enviar 
stete bits menos signiffcativos ejctras para los controladores de SO a 
S1F, si se requiere una resolucion muyalta, Los numeros de 
controlador del $40 al $5F son controfadores de conmutacidn (como 
los pedales de sostenimiento, potlamenlo, interruptores Qn/on, etc.] 
con c establecido ya sea en cere (off) o bien en S7F (on). Estos son 
equivalentes al tipo de palanca de mando de conmutacibn m^s usual . 
que utiiizan los ordenadores. Los numeros de controlador del S60 al 
$79 son indefinidos, y los del $7A al $7Fest^n reservados para 
mensajes de modalidad de canal. 140 se requiere que se asignen fos 
ntlmeros de controlador a controladores fisicos especjlicos, con la 
excepci(5n del mando de modufacifin , al que se syele asignar el S1 , 

5. El control local se utifiza opcionalmente para romper la uni6n 
interna entre fos dispositivos de entrada de una unload (por lo 
general, un teclado y controladores asociados) y so sistema de 
drcuitos de generacidn de sonido, de modo que el teclado (p. ej.j 
s6lo envia datos a IV1IDI OUT y los circuitos de peneracidn de somdo 
sdio responden a los datos recibidosen MIDi IN. 

6. La implementacidn de «todas las notas apagadas » es opcional, y 
estos mensajes no se deben utilizar en lugar de instrucciones 
fndividuafes de "nota apagada ^> para apagarvarias notas. Ef ra20iiajniento 
que motiva esto no est^ nada cJaro y hace que las jnstrocciones s-san 
virtual men te inutil^^. 

7. El tercer byte del mensaje de modalidad mono especifica el numero 
tota? de can ales requerido. Si esle numero es cero, fa cantidad de 
can ales es igual a la cantidad de voces disponibles en e! receptor, 

8. El mando de altura se diferencia de otros controladores en que 
puede tener vafores positives y negativos. La posicidn central se 
envia como N$0 y m-S4D. Muchcs receptores poseen s6lo siete 
bits de resolucidn y sdio respond erin a m, ignorando el valor da I 
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Mensajes del sistema 




Estado 
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Datos2 Descripcidn 
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SFO 


c u alqu ie rn tJ me ro Excl usivo del siste m a 
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Indefinido 




SF2 
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SF3 
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Selecci<^n de cancion 








s^numerodecancidn 




$F4 




Indefinido 




$F5 




Indefinido 




SF6 




Solicitud de melodia 
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m 




Fin de excl usivo del 








sistema 
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SF6 




— Reloj temporizador 
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$F9 




Indefinido 




$FA 




— Empezar 
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SFB 




— Continuar 
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$¥C 




— Parar 
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$FD 




Indefinido 




SFE 




— Percepcf6n activa 


5 


m 




— Inicializaci6n del sistema 


6 



Notas: 

Los mensajes de SFfi a $FF son los mensajes del sistema en tiempo 
rea^ y se pueden enviar en cuaiquier momento (inciuso durante la 
transmispon de otros mensajes). 

1 . Los mensajes exclusivos del sistema pueden tener cuaiquier 
nflmero de bytes de datos, terminaodo con un byte de «fin del 
excEusivo del sistema" ($F7) o cuafquier otro byte de estado. 

2. Este mensaje se utiliza para preestablecerarbitrarjamente el 
puntero de posicJdn de cancirin, que es un registro interno que 
contiene la cantidad de teats [1 t}&at=B reiojes M\D\) desde el 
comianzo da la secuencia (cancidn). 

3. Esta sa utilsza para solicftar a fos sintetizadores analdgfcos que 
all n en sus osci fad ores. 

4. Estos mensajes se emplean para sincronizar ias unidades 
secuenciadoras maestra y esctava. El reloj del sistema se establece a 
una velocidad de 1/24avo de un cuarto de rtota. La instruccidn 
«continu3r* sa diferencia de t<comenzar>.' en qua reinicia una 

sec u end a desde el puntero en el cual se detuvo. 

5. La percepcidn active se utiliza como un mensaje ficticio cuando en 
la MIDt no se registra ntnguna otra actividad. Si se utiliza, debe ser 
enviado de modo que no transcurrari m^s de 300 ms sin actividad. 

6. Este mensaje se em plea para inicializar a! sistema complete a la 
situacidn de encendido. l\fo se lo debe enviar automaticamente detr^s 
del aocendido, para impedir fa posibslidad de que dos unidades se 
reinicialicen la una a Ea otra indefinidamente. 

No se deben enviar mensajes que no est^n tncluidos en la lista 
anterior, y fos receptores habran de ignorarlos 
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Apricot F1 e/Hardware 



Pequefio 
melocoton 



Si bien e! Apricot F1e es 
principatmente una maquina de 
gestion, puede tambien suscitar 
interes en el campo educative^ 

Quienes esten familiarizados con los ordenadores 
Apricot (albaricoque) reconoceran facilmente la 
estruclura basica del Fie. Vendido en forma de pa- 
quete, incluye el teclado FL ia unidad del ordena- 
dor propiainente dicha con una unidad dc disco de 
una sola cara y densidad simple, y una pantalla de 
fosforo verde de ocho pulgadas. Al igual que con ei 
Apricot Portable, la empresa ha aplicado su tecno- 
logla dc infrarrojos, que elimina la necesidad de 
usar gran numero de cables colganies. Tanto el te- 
clado como el raton opcional controlan cl ordena- 
dor a traves dc haces infrarrojos que son detectados 
por sensores en la parte delantera del Fie. Hacien- 
dose eco de la tendencia hacia ordenadores cada 
vez mas pequenos (iniciada con el Apple Macin- 
tosh), que no ocupan excesivo espacio, el Fie es 
notablemente estrecho, mi die n do ape n as 200 mm 
de ancho, aunque esto queda compensado por su 
longitud, que es de alrededor dc 425 mm. 

El teclado tiene el trazado Apricot estandar; las 
teclas estan niveladas y su aspecto cs similar a las 
del Sinclair QL. No es particularmcnte apropiado 
para mecanografia al tacto y, en consecuencia, no 
se presta muy bien a aplicaciones de tratamiento dc 
textos. Las teclas, si bien son adecuadas para una 
maquina de gcstidn moderna, traquetean un poco y 
pueden despertar dudas en cuanto a su fiabiiidad a 
largo plazo. Al igual que en el Apricot Portable, en 
la parte superior del teclado hay cuatro botones: 
«Reset», para arranques en frio, ^Repeat Rate», 
que permite variar la velocidad a la coal se rep i ten 
los caracteres cuando se mantiene pulsada una 
tccla, «Set Time» y <<Keyboard Lock». 

La unidad del ordenador posee una unica unidad 
de disco Sony de 3 Vi pulgadas, incorporada cn la 
parte anterior, que esta adquiriendo una creciente 
popularidad entre los fabricantes y en consecuencia 
ha justificado el use original de ACT de este forma- 
to para sus maquinas en mas de un senddo- Mien- 
tras que otras empresas estan tenieodo dificultades 
para transferir sus amplias bases de software a los 
discos de 3 Vz pulgadas, todo el software Apricot es 
convenientemente compatible. En conseGuencia, 
los usuarios que deseen adquirir el Fie no tiene n 
necesidad de preocuparse por la falta de software 
adecuado. Ad em as, los discos de una sola cara y 
densidad simple que utiliza el Fie pueden retener 
un maximo de 315 K de informacidn, mas que sus 
equivalentes de 5 Va pulgadas. 

Otras caracteristicas de la parte delantera de la 
unidad de ordenador incluyen una serie de LEDs 
que indican potencia, Caps Lock, desplazamiento 




de la pantalla y unidad de disco on! off. Debajo de 
ellos estan los detectores de haces infrarrojos. 

En el lado derecho del ordenador hay un bus de 
ampliacion de 60 vias, a traves del cual se puede 
anadir una amplia gama de placas de ampliacion o 
una unidad de disco extra. Esta ranura hace que el 
Fie se pueda ampliar a la misma capacidad que el 
Apricot XL median te la adici6n del sistema de am- 
pliacion MSD, que proporciona 10 megabytes en 
disco rigido. 

El panel posterior, si bien no posee muchas in- 
terfaces, esta disenado suficientemente bien como 
para permitir la instalaci6n de los perifericos mas 
comunes. Sobre la izquierda hay un conector D de 
25 VI as estandar que da cabida a una interface en 
serie RS232. Junto a esta puerta hay dos conectores 
para pantalla. El primero es un adaptador de nueve 
patillas que proporciona la senal RGB para panta- 
Ilas en color (si bien las pantallas ACT monocro- 
maticas existentes tambien se enchufan en este co- 
nector). A la derecha de este hay un conector de 
video compuesto ptira otros tipos de pantallas. 

El precio del Fie no incluye la pantalla^ El orde- 
nador no posee ningun adaptador RF que lo capa- 
cite para enviar una senal a un aparato de television 
comun; no obstante, si hay dispofiible un adaptador 



Aspecto alrayEnte 

El Apricot Fie ha here:aife s 
aparienciaatractivs^fsjs 
parSeriitas. La unidiC :e ism 
integral de 3 !^ pi,!,:=:2s. s 
sistema operativo V^-DOS 
estandar y los pacr^ ^ 
software en lote. .'" s 
precio asequiblB. -z.:sr :f - 
unseriocompet:rr ~s 
cfrcuios educa: »:i ■ :r^'5 
entre los us.^^ • - 
ordenadores it :: r- 
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que proporciona tal senal. Asimismo, dado que el 
Fie estandar no tiene pantalla instalada y que mu- 
chas pantallas poseen su propia entrada de poten- 
cia, los conectores para pantalla no proporcionan 
lineas de potencia de forma automatica, y el orde- 
nador propiamente dicho no es capaz de proporcio- 
nar tal fuente. For lo tanto, para que este pueda 
operar una de las pantallas ACT, se le ha dc insta- 
lar una fuente de alimentacion externa de 17 V, 

Aunque esto parezca logico, el hecho de que 
ACT haya tornado la decision de suprimir ios ca- 
bles colgantes mediante la incorporacion de comu- 
nicaciones infrarrojas, no concuerda con su deci- 
sion de proporcionar una fuente de alimentacidn 
externa para operar sus pantallas. Esto adquiere es- 
pecial relevancia teniendo en cuenta que otros mo- 
delos de la gama (como el ACT Apricot, el buque 
insignia de la empresa) no requieren tal dispositivo. 
La fuente de alimentacion se puede colocar en un 
lugar donde no moleste, en especial cuando se la 
instale en una posicion permanente, pero asi y todo 
uno queda con la sensacion de que, en este aspecto, 
la maquina no se penso lo suficiente. 

En el interior del ordenador, hay otra ranura de 
ampliacion para placas adicionales. La placa del 
Fie, al igual que otras de la gama Apricot, tiene un 
diseno elegante y esta protegida de la unidad dc 
disco y el transformador de potencia (que puede 
generar tempera! uras perjudiciales) mediante una 
carcasa de metal que actua a modo de disipador. 

El Fie esta basado en el procesador 8086 de 16 
bits y opera bajo el popular sistema operativo MS- 
DOS. Los ordenadores Apricot, sin embargo, 
siempre han tenido su propio sistema de adminis- 
tracion basado en iconos, lo que en realidad signifi- 
ca que su relacidn directa con el sistema operativo 
es escasa. El sistema de administracion del Flc se 
llama Activity y es con el con quien los usuarios 
se familiarizaran mas- 

Activity es un programa orientado hacia objetos. 
EIlo significa que, en lugar de impartir una serie de 
instrucciones para el ordenador, como una para 
cargar (LOAD) un archivo en la memoria, uno sola- 



Chr|)ZB0SlO _ 

Proporcfona las seriales de reloj 
para sincronizar las acciones del 
chip de E/S en serie 




ROMs F1 



Estos chips de ROM incluyen las 
ruiinascargadoras, de 
autodiagndstico y BIOS para el 
sistema 



Chips RAM _ : 

0 F1eincluye256Kde RAM 



Controlador demise© — 

imm 

Este chip Idgico hecho a medida 
control a las acciones de la 
unidad de disco 




Software de calidad 

El software g'atu to que se entrega con el Fie incluye un 
procesaccr G£ lextos. un euaderno de rotas elect rdnico y una 
hoja eleci''c^ ca. Au.ique los dos primeros programas son, 
reiativame-^Ts. doco sofisticados, la hoja electron iea {SuperCalc) 
posee mijras 'acilidades, como fadivisi6n en ven tanas, que 
cabe esperar de tod as las apficaciones caras de este tipo 




Unidad de ^ — 

potencia 

La unidad de potencia incluye un 
transformador de corriente para 
el ordenador y un conector CA 
de 1 7 V a tm^s del cual se debe 
alimentar la fuente de potencia 
para la pantalla 



Luces 

intficadoras 

Informan de las condiciones de 
potencia con ectada, caps lock^ 
despiazamiento de pantalla y 
acceso a! disco 



Receptor 
infra rrOjO 



EJ tecJado sin cables del F1e 
utlNza transmisi6n per 
infrarrojos para oomunicarse 
con la unidad principal 
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Apricot F1e/Ha 





iCentrtmics 

cfciona una interface &n 
^0 estandar 




Collector para pantaNa 

ProporcionaJIneasRGBycfe 
potencia para la pantalla 
compatible 



Conector RS23Z 

Tambi^n se prop orciona una 
puerta alternativa en serle 



l*=Te opera bajo un procesador 
SSdejebits 




Ranura para amplracidn 

Permile anadir al SfStemafichas 
de controlador para un disco 
ngrda 0 una red en area local 



Puerta para ampllaci6n 

Proporciona las m ism as lineas 
de datos, dedireccidn yde 
control que la ranura de 
ampliacidn, pero ninguna 
aEimentacidn d& potencia. Esta 
puerta se puede utilizar para 
anadir al sistema unidades de 
ficlias externas 



Unidad de disco 

La unidad de disco integral 
utiiiza discos d& 3 ""h pulgadas 
tormato Sony, de una sola cara 
y simple densidad 



mente indica (por lo general selecdonando un 
icono entre una serie presentada en la pantaila) la 
accion que desea realizar: el ordenador se encarga- 
ra del resto. 

La mayoria de estos sistemas dependen del uso 
de un raton para desplazar el cursor a traves de la 
pantalla; pero en el sistema Fie el mismo se puede 
sustituir por el teclado numerico. Los numcros del 
1 al 9 estan dispuestos en tres filas de tres teclas. 
Tomando el teclado a modo de brujula (excluyen- 
do la tecla central) hay ocho dirccciones en las cua- 
les se puede mover el cursor, Por lo tanto, pulsando 
la tecla central de la fil^ superior (8) el cursor se 
movera directamente hacia arriba hasta un icono 
que se halle en esa direccion, mientras que al pulsar 
3 (tecla de la derecha de la fila inferior) ei cursor se 
movera oblicuamente hacia abajo y hacia la dere- 
cha. Para seleccionar un icono se debc pulsar la 
tecla Enter del teclado de calculadora. 

Entre el juego de programas incluido en el disco 
del Sistema Activity hay un programa de aprendi- 
zaje para ayudar al usuario a acostumbrarse al sis- 
tenia. Asimismo, expliea los usos de! icono y !os 
editores de fuentes (con facilidades para cargar sus 
propios juegos de caracteres cuando asi lo quiera) y 
el configuradoi del sistema^ que permite preparar 
el ordenador para cualquier periferico especializa- 
do que pueda estar utilizando. 

Como cabe csperar en una maquina pensada 
fundamentalmente como maquina de gesti6n, el 
Fie incluye varios paquetes de software en un lote 
de aplicaciones. SuperV^'rit^r es un programa para 
tratamiento de textos basado en el WordStar, cuyo 
uso esta tan difundido, pero sin las amplias capaci- 
dades de format eo de este ultimo. El Si^perPlanner 
se describe como un «bloc de notas electr6nico» 
que permite al usuario ^planificar con antelaci6n» 
sus actividades. Este programa incluye una agenda 
de direcciones, un calendario, un diario y un pe- 
queno sistema de archivo. Aunque superficial men- 
te se asemeja a una base de datos. Super Planner no 
cc>ntiene las refinadas tecnicas de busqueda y recu- 
peraci6n que por lo general earacterizan a una au- 
tentica base de datos. 

El ultimo paquete que viene empaquetado con el 
Fl e es SuperCalc. Este es una hoja electronica para 
apiicaciones financieras y contables. Quiza sea el 
mas completo de los tres paquetes; contiene una 
gran cantidad de instrucciones que permiten venta- 
nas, justificacion de textos y muchas otras facilida- 
des que es dable esperar de un paquete de hoja 
dec t ronica pro f csio na I . 

Al redueir el predo del Fie, ACT ha dado a en- 
tender que tiene intenciones de introducirse de 
fonna concertada en el mercado educativo. Esta 
actitud se hace aun mas evidente al haber lanzado 
ACT J paralelamente al anunciado recorte de pre- 
cios, un nuevo producto denominado B-TRAN, 
que permite que el ordenador ejecule virtu almente 
todos los programas escritos en basic BBC. 

Ciertamentej la reduccion del precio del Fie 
mejorara las ventas de! ordenador, en particular en 
los mercados educativo y de pequena gesti6n. Si 
bien no es probable que llegue a dominar el merca- 
do del ordenador personal, el Fie es, no obstante, 
^ una compra excelente para quienes esten interesa- 
I dos en adquirir una maquina de precb asequible 
^ que se puede ampHar hasta alcanzar la potencia de 
■iE un ordenador de gesti6n totalmente equipado. 



APRICOT Fie 



mm 

425 X 200 X 105 mm 



Procesador Intel 8086 
operandoa4.7MHz 

256 Kbytes estandares 



PANTAUA 



Resolucidn de textos de 132 
X 50 Li 80 X 25 caracteres, 0 
una resolucidn maxima para 
graficos de 800 x 400 pixels 



INTERFACES 



Puerta RS232Jnterface 
Centronics y conectores para 
RGB y video compuesto 



Una sola unidad de disco de 
3 H pulgadas y 31 5 Kbytes 



SISTEMA OPERATIVO 



MS-DOS. CP/M-86y 
Concurrent CP/M 



DQCUMENTACION 



El manual def paquete de 
apiicaciones es muy compieto 
y responds al elevado estandar 
que es habitual en ACT, si bien 
el manyaf de iniciacicSn es algo 
parco en cuanto a informacion 
detallada sobre la maquina en 
sj misma 



VENTAJAS 



Porsu precio, el F1e parece 
una gangs y podria causar un 
gran impacto en los mercados 
educativo y de pequena 
gestidn 



DESVENTAJAS 



El teclado piano no esta a la 
altura del estandar del ACT 
Apricot. Aunque contiene un 
procesador rapido, el F1 e no 
estanveioz como algunas 
maquinas que pueden 
compararse con el 
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Lenguaje maquina/Mapa de memoria del Commodore 64^ 



Datos basicos (I) 

.J 

For cortesia de la Commodore Business Machines, iniciamos un 
analisis detaliado dei mapa de memoria del Commodore 64 



ETIQUETA 


DIRECCION 


POSICION 


DESCRIPCiON 




HEXA 


DECIMAL 




D6510 


0000 


0 


Chip 651 0 On-Registro de 








direccion de dotes 


R6510 


0001 


1 


Chip 651 OOn-reg. E/S 8 bits 




0002 


2 


No usado 


ADRAYl 


0003-0004 


3-4 


Vector saltos: conversion 








flotante-entero 


ADRAY2 


0005-0006 


5-6 


Vector saltos: conversion 








flotante-entero 


CHARAC 


0007 


7 


Coracter busqueda 


ENDCHR 


0008 


8 


Flag: rastrea comillas de fin de 








variable en serie 


TRMPOS 


0009 


9 


CoL panto 1 la desde 








ult.TAB 


VERCK 


OOOA 


10 


Flag: 0=carga, 1 =verificar 


COUNT 


000 B 


11 


Puntero buffer entrada / 








n,° subscrltos 


DIMFLG 


OOOC 


12 


Flag: DIMension tabia por 








defecto 


VALTYP 


GOOD 


13 


Tipo datos : 








$FF=serie,$00=numero 


INTFLG 


OOOE 


14 


Tipo datos : 








$80=enfero,$00=flotante 


GARBFL 


GOOF 


15 


Flag: busca DATA/connillas 








LIST/recolector de basura 


SUBFLG 


0010 


16 


Flag: refer, suscrito/llamada 








funcion usuario 


INPFLG 


0011 


17 


Flag:$00-INPUTJ40-GET, 








$98 -READ 


TANSGN 


0012 


18 


Flag: signo TAN/Resultado 








comparacion 




0G13 


19 


Flag: interrogacion de INPUT 


LINNUM 


0014-0015 


20-21 


Temp: valor entero 


TEMPPT 


0016 


22 


Puntero: pila temporal de serie 





Jujgadas 
preliminares 

Cuando se escribe un programa 
para un juego como el «go», es 
mejor empezar por las rutlnas 
de E/S 



El programa de go se presentara en cuatio versio- 
nes separadas: para los micros BBC Modelo B, 
Commodore 64, Sinclair Spectrum y Amslrad CPC 
464/664. Siempre que ha sido posible, los numeros 
de line a se han mantenido constantes para tod as las 
versiones, pero por diversas razones ha sido nece- 
sario incluir lineas extras para implementar algunas 
ruttnas en cada una de las maquinas. Esto es espe- 
cialmente evidente en el caso de la recursion em- 
pleada en el basic BBC (no est a implement ad a la 
recursion en nmguna de las otras tres maquinas). 
Por consiguiente, es necesario implementar una 
pila para el usuario con el fin de conseguir que los 
listados sean 1o mas parecidos posible. Cuando el 
texto hace mencion a rutinas y variables del iistado, 
estas corresponden a la version para el BBC Micro, 
si bien las correspondencias entre los cuatro lista- 
dos son bastantc dircctas. 



Go/Prografinaci6ii 



Movimfentcr apertura 

Tradicionalmente. el iuego del go se desarrolla sobre un tablero 
de .Tiaderaquetiene grabarfa una cuadricufa de 19 por 19 lineas 
que se intersecian. Para niiestra version informatizada tiemos 
reducido ef tamano del tablero a una cuadricuia de 1 5 por 15, 
para permftir que se pueda visualizar comodamente en una 
pantalla 



La siguiente seccion del programa se ocupa de la 
inicializacion de variables, la creacion de la visuali- 
zacidn del tablero y las rutinas de entrada. Las li- 
neas de la 10 a la 140 constituyen el cuerpo princi- 
pal del programa. Antes de entrar e! bucle del 
juego propiamente dicho (de la hnea 60 a la 90). se 
Uamar^ a las rutinas PROCIniciallzar y PROCintroduc- 
cion. 

PROCinicializar solo se utiliza en la primer a ejecu- 
cion del programa, para DIMensionar el tablero 
(tablero%), inicializar el cursor, etc. El tablero se 
DIMcnsiona para estar compuesto por una serie de 
255 bytes, creando una superficie de juego de 15 
por 15 (en lugar del tablero normal del go^ de 19 
por 19). Esto obedece a varias razones, de las cua- 
les la mas importante es la velocidad. No se puede 
esperar que un programa de juego en basic opere 
con especial rapidez, pero reduciendo las dimensio- 
nes del tablero el tiempo de ejecucion se acortara 
en aproximadamente un tercio, sin incidir en la 
forma de jugar al juego. For supuesto, esto tam- 
bien significa que el tablero cabra limpiamente en 
una pagina (256 bytes, un cuarto de byte) de me- 
moria, permitiendo un limite compuesto por cua- 
drados individuales. Asegurando que todas las re- 
ferencias al tablero esten comprendidas en la escala 
entre 0 y 255, este reborde circundara el tablero. 

Las variables inicializadas en las lineas 190 y 200 
son constantes, pero el usu del nombre de la varia- 
ble en lugar de numeros simplifica mucho las modi- 
ficaciones. Por ejempio, si usted quisiera un juego 
para dos personas, o bien que el ordenador jugara 
eonsigo mismo, solo necesitaria cambiar los valores 
de blancas% y negras% para poder utilizar normal- 
mente todas las rutinas. Sobre la base de estos valo- 
res, cada byte del tab!ero se empleara de la forma 
que se indica en el diagrama. 

PROCIntroduCCion se utiliza al inicio de cada parti- 
da, para preparar el contador de movimientos 
(movimientoS%), la condicion de final (fin°o). etc. 
Hace uso de ias rutmas PROCiniC_jyego y 
PROCpantalla_titulos. La pantalla de titulos es bas- 
tante elemental debido a las restricdones de e^pa- 
do para los listados, pero usted esta en libeiisd de 
modificarla en la medida que asi lo desee. Por 
ejempio, podria a nadir el simbolo zpooc&^go o, 
quiz^, algunos acordes de musica oricrtaL S desea 
anadir trozos de codigo, puede empiea r pa a eEo 
todos los numeros de Ifnea a pardr dd JOOOl 

PROCimprimir_tablero, como es msmaL i^rime 
el tablero. FNint_l0 char se utiliza des*«ttiiiti- 
na para converter una coordenada de i 
teros en las coordenadas de caraciares < 
la visualizacidn en pantalla: se OB^calftftaea 
2260. 

FNinput y PROCmensaje sondos iiiimii ^propd- 

sito general para la entrada del usoxiD jl 
sion de mensajes, basadas en la maid 
lizada en PROCIeer_mensaje^. Esa ] 
10 avisos o mensajes que el ordeaa^m^Bes^ ^ 
sualizar durante el juego. El mcoajc ^bb^kid se 
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Program acion/Go 



Variables 
del juego 
del «go» 



Modulo Uno 



seiecciona pasando a estas dos rutinas el numero 
del elemento de la matriz correspond iente, M%, La 
incorporacion de estas rutinas, en lugar de limitarse 
a solicitar y recibir una entrada y una salida cuando 
es necesario, aumenta la flexibilidad del programa. 

Al digitar la version para el Spectrum, puede en- 
contrarse con un problema entre las Imeas 1480 y 
1505, Los numcTOs de estas Imeas subrayados 
hacen referenda a los graficos de simbolos del 
Spectrum. Usted los obtendra pulsando primero 
Caps Shift y 9 juntas, entrando por tan to en moda- 
lidad de graficos (el cursor G) y despues digitando 



los numeros indicados. Pulse nuevamente Caps 
Shift y 9 para salir de ia modalidad de graficos al 
final de la sentencia de impresion. Si el numero % a 
precedido por Sh, entonces digite el numero mien- 
tras pulsa la tecla Shift al mismo tiempo. 

Si ejecuta el codigo tal como esta, obtendra una 
pantaila de titulos pidiendole una cantidad de fi- 
chas de handicap, seguida por la pantaila principal 
del juego. Luego el programa hara indefinidamente 
un bucle. Por el momento el numero de handicap 
se ignora, pero en el proximo capitulo lo anadire- 
mos, asi como algunas otras rutinas generales. 



Variable Finalidad 

Re9ras% Valor 1 ; ficha negra en byte del tablero. 

tablero% El valor de comienzo para el tablero de 256 bytes en la memorfa. 

captura%(2) Retfene le cantidad de fichas capturacfas por las negras y fas bfancas, 

color % Valor 3. Se utfliza para enmascarar los bits de color en un byte del tablero, 

dir%{4) Retiene los desplazamientos necesarios para avanzar un cuadrado hacia el N, E, S y 0. 

licenGia% Valor 8. Se usa en la rutina de busqueda de grupos para marcar licencias ya contadas. 

marcador% Vafor 4, Se usa en fas rutinas de busqueda de grupos para marcar fichas ya contadas. 

movimjento% Retiene fa cantidad de movimientos efectuados en cada partida para la visualizacion, 

blancas% Valor 2: ficha blanca en byte del tablero. 

ataril $ Retiene 5 espacios cualesquiera o «Atani> si el ultimo mov. del ord. produjo esta sit. 

atari2$ Retiene 5 espacios cualesquiera o ^^Atari^ si el ultimo mov. del jugador produjo esta situacibn. 

Nota: Atari es la accidn de colocar una ficha de modo tal que deje a uno o m^s grupos del 

oponente con una sola licencia. 

eje$ Parte de fa visualizacion del tablero. 

mens$ Retiene todos los mensajes gene rales de E/S, utilizados por PROCinput y PROCmensaje. 



BBC Micro: 

10WIODE7 

20*FX14,6 

30 PROCinicializar 

40 PROCintfoduccion 

50 CLS: PROCimprimirtablero 

60 movimiento%=movimfento%+1 ; REM aqui movimientos fas 

blancas 
7OIFfin%GOTO1O0 

80 movimiento%=movimieFito%+:REM aqui movimientos de las 

negras 
90 IF NOT lin% GOTO 60 
lOOrespS-FNinput (21,9,1) 

110 IF respS=«S» GOTO 40 ELSE JF resp$<>«N^ GOT0 100 
120 PROCmensaje (22,5/ 
130 PRiWT:END 
140: 

1 50 R Em ^ " ^ "*''****'''*********** 'H'l' *********** 
160: 

170 DEF PROCinrcializar 
180 LOCAL L% 

190 neqras%=1 : biancas%=2 : color%-3 

200 niarcador%=4 : lioencia%=8 

210 @% =2 

220DIMtaE)iero%255 

230 VDU 23;8202:0;0;0; 

240 DIM captura%{2) 

250 ejeS=CHRSl30+CHRS157-HCHR$132+ "AB C DE FG H I J K 

LMNO" 
260 PROCIeer mensajes 
290DIMdir%j4) 
300 RESTORE 340 
310F0RL%=1TO4 
320 READdir%(L%) 
330 NEXT 
340 DATA 16.1, -16,-1 
350ENDPR0C 
360: 
370 REM 
380: 

390 DBF PROCIeer_mensajes 
40O LOCAL U% 
410 RESTORE 460 



420 DIM mensS(9) 
430 FOR M%=0TO9 
440 READ f7iensS(M%) 
450 NEXT 

460 DATA ' O.K. ESTOY PENSANOO.,," 
470 DATA "Entrada (legal: " 

"Ficha ya enese lugar: " 
'llegal. Koen ese lugar: " 
Tlegal. Suicidio en ese lugar; " 
" O.K. JUEGOTERMINADO' 



Cuantas ffchas puedo tenerde handicap 



480 DATA' 
490 DATA' 
500 DATA ■ 
510 DATA' 
520 DATA' 
530 DATA ' 
(2-9) ?" 

540 DATA "Digite su movimiento (por ej. H8), PASO 0 

A6AND0N0:" 
550 DATA " Q u renes jugar otra pa rtida (S/N) ? ' 
560 ENDPROC 

570: 

580 REIVt — - 

1260: 

1270 DEF PROCintroduccion 
1280PR0Cln[c juego 
1290 PROCpantalla_titulos 
1300 ENDPROC 
1310: 

1320 REM — 
1330; 

1340 DEF PROCrnIc juego 
1360atari1S='' ":ataff2$=" 
1 370 po&icion% =0:movimrento%= 1 
1380 fin7fl= FALSE 

1390 captura%(1)=0:captura%(2)=0 
1410 ENDPROC 
1420; 

1 430 RE M ******************"**** *-********^ 
1440: 

1450 DEF PROCpantalta trtulos 
1460 CLS 

1470 PRINT TAB{12,4);CHR£145;CHRS1 54; 'h7+$ 
ii7k4" 

1480 PRINT TAB(12,5);CHRS145;CHR£154:15k5 
j5j5" 

1490 PRINT TAB(12,6);CHRS145;CHRS1 54;^' pssp 
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men DE 

qr-AS ULTIMO IVfOV. 
^^DAS DEL ORDENADOH 



VISUAL. AVISO f^ARA EL, "UMERO 
OEL TABLERO JUGAOOR Y "^V. 
MENS. DE ERI^OR 





Type your mov© <eg. H8>, PASS or 



Comenlando la parti da 

La visualizacion en pantalla de arriba muestra la disposicion de 
las diversas caractensticas del juego, Adem^s de mostrar el 
tabl&ro, el programa Informa al jugador sobre el nurtiero de 
fichas capturadas lanlo por el ordenador como por eJ jugador, el 
numero de movlmientos realizados en la partlda, y cuales Jueron 
I OS uftimos movimientos efectuados por la m^quina y por sj 
adversario. La porcidn Inferior de la pantalla esti reservada a 
avisos y mensajes de error dirigidos al jugador. A medida que se 
desarroiie el juego veremos c6mo el programa detecta y 
desautoriza movlmientos ilegales como el «suicldio» o cualquier 
intento por colocar fichas en posiciones ya ocupadas 




{ 




*^ -v^ 


\ 












I 


\-r m. 












38 


31 


3 


14 


15 



Sin utilizar 



Color: 



1=Negra 
2^Blanca 

Negra 
Blanca 



Licencia: se establecera 
en una rutina ulterior, 
cuando se haya 
identificado una 
licencia. 



Marcador: se establecera en una 
rutina ulterior, cuando se h5>3 
identificado una ticha. 



1500 PRIWTTAB{9,10);CHRS134; "por Marcus 
Jeffery" 

1510 PRINT TAB{1,13):CHR£1 33; ^^Jugaras con 
1520 PRINT CHRS1 35; "fichas ";CHR$1 33/ blancas, 

y" 

1530 PRINT CHR£133;'"el ordenador (al ser mas 
debil!)" 

1540 PRINT CHR$133;"'jugaracon las^CHRSl29;llclias"; 

CHRS1 33; ' negras coo ventaia de' 
1550 PRINT TAB(13);CHRS133;"handicap'' 
1560'hand%=VAL{FNInput (20,7,1)) 
1570 IF hand%<2 OR hand%>9 THEN 1560 
1590 ENOPROC 
1600 : 
1610 REM 
1720; 

1730 DEF PROCImprtmir_tabiero 
1740 LOCAL P%,X%,Y% 

1750 PRINT TAe(0,0);CHRSl33;CHR167;GHR$131;Tichas 

capturadas por:"; 
1760 PRINT TAB(32,0);CHR$1 35;" movlmlento^' 
1 770 PRINT TAB(0,1 );CHRS1 33;CHR$1 57;CHRS1 31 ; " Blancas 

= ";CHRS134;captuTa%{2); 
1730PRtNTTAB(l6,1);CHR$131;"Ne9ras 

= '";CHRS134:captyra%(1); 
1790 PRINT TAB(33J);CHRSl35:movlniiento% 
1S00 PRINT TAB(0,2);eje$ 
1810FORY%=15T01STEP"1 

1820 PRINT TAB (0,13-Y%);CHR$130;CHR$157;CHR$132; 

RIGHTSC^ ''+STRS(Y%).2); 
1830 F0RX%=^1T015 

P%=tablero7o?(16*Y%+X%) 
IF P%= 1 THEN PRINT CHR$1 29; '0" ;:GOTO 
1880 

IF P%=2 THEN PRINT CHR$135: '0" ;:GOTO 
1880 

PRINT CHRS131;" + "; 
NEXT 

PRfNTTAB(35J8-Y%);CHR132,Y% 
NEXT 

1910PRINTTAB(0J8);eje$ 

1920 PRINTTAB(0,l9);CHRSl33;CHFt$157;CHRS131;' Mi ultimo 
movimiento fue:"; 



1340 
1850 

1860 

1870 
1880 
1890 
1900 



1930 PRINT CHRSl34;FNim_to_char[posid6n%);TAB{30) 
atarjIS 

1940 PRINT TAB(16,22);atari2$;CHR$7 

1950 ENOPROC 

1960: 

1970RE1V1 ********** 

1980: 

1990 DEF FNinpyt(P%,M7o,W%) 
2000 LOCAL S%,ASJS 

2010 PRINT TAB(39,P% + 1);STRINGS(119.CHR$1 27); 
2020 AS 

2030 PRINT TAB(3,P%);mens$(M%);CHRSl 34; 
2040 PRINT STRINGS(W%,CHR$32);STRIN6S(W%, 

CHRS127); 
2050*FX21,0 

2060 l$=GET$ :1F ASG{IS)-13THEN GOTO 2120 
2070 IF ASC(I$)<>1 27 GOTO 2090 

2080 IFS%>OTHEN S%=S%-1:AS=LEFTS(AS,S%) GOTO 2110 

ELSE GOTO 2050 
2090 IF IS> = '^a" AND IS< = '^z" THEN IS = CHRS(ASC[IS) 

-32) 

2100 IF S%<W% THEN S%=S% + 1;AS=A$+IS ELSE GOTO 
2060 

2110 PfilNTiS;: GOTO 2060 

2120 =AS 

2130: 

2 1 40 RE M *************************•************'******* 

2150: 

2160 DEF PROCmensaje(P%.M%,AS) 
2170 LOCAL L% 
2180FORL%=P%TO P%+ 1 
2190 PRINT TAB(39rL%);STRIN6$(39,CHRS1 27); 
2200 PRINT CHR$141 ;CHRS136;CHRS129;rtiensS(M%); 
AS' 

2210 NEXT 
2220 ENOPROC 
2230 : 
2240 R EM 
2250 : 

2260 0£F FNrnt to_char (P%) 

2270 IF P%=0 THEN ^''Handicap" 

2280 =CHR$(P% MOD 16 + 64)4-STR$(P% DIV 16) + " ' 

2290 : 

2300 REM 



Bits a bordo 

Cada posiclon de 
representa enia - 
mediante un u" :: 
diagramasups' : 
trazado de los 25; 
representao toaa^ 
Iritersecclones e" 
15 por 15. Los : : 
retieneoinfor-;: 
estadodeia '.^ 
correspond; 7 : 
dos bits me^:i : 
determlnan 2 : 
presente (o " 
iitersecclon z-l 
2y3losutliiz£-i" 
evaiuaciPn del 
juego». que Ci==- 
prPximos ca: ". : 
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Plan de 
accibn 



Finalmente veremos como 
actuan dos importantes 
paquetes: «Sycero» y «The Last 
One» 



Todo el software destinado a posibilitar que el prin- 
cipiante absoluto gene re aplicadones para ordena- 
dor debe satisfacer algunos punios rigurosos: 

• Debe favorecer un enfoque de arrtba abajo, en 
el que el usuario pueda definir ei proyecto a reali- 
zar y espccificar con claridad cada punto a medida 
que vaya progresando el trabajo. 

• Debe ser activado por menu, con solicitudes de 
opciones multiples que vayan guiando al usuario a 
traves de las opciones disponibles. 

• Debe delectar los errores apenas se produzcan y 
permitir cambios o correcciones simples. 

• El codigo resultante debe ser « transport able es 
decir, debe poder ser ejecutado en otro ordenador, 
con independencia del software del sistema que lo 
genero. 

• Debe producir amplia documentacion del proce- 
so de generacion del programa, de modo que el 
usuario que no este familiarizado con la programa- 
cion prcccdcntc pucda introducir correcciones o 
me j or as. 

Sin embargo, puesto que el generador de progra- 
mas es una herramienta cuyo uso no esta limitado a 
los no iniciados, tambien ha de resultar acep table al 
usuario mas experimentado. Es probable que un 
programa dirigido a un nivcl muy bajo molcstc e 
incluso confunda al usuario mas avanzado, ademas 
de deniorar las cos as con medidas de protecci6n y 
seguridad mnecesarias. 1 ambien es probable que el 
usuario mas experimentado tenga algunas rutinas 
favoritas {formas de usar el kasic, p. ej.) y el gene- 
rador habra de estar preparado para aceptarlas. 1 e- 
niendo en cuenta todas estas consideraciones, los 
dos generadores de programas de mayor acepta- 
cion, The Last One (TLO) y el mas recicntc Syce- 
ro, obtienen altas calificaciones. 

Ambos utilizan ampliamente mentis informati- 
vos. Sycero posee pan tall as de ayuda para los con- 
troles del cursor y graficos; las instrucciones para 
edicion de textos estan disponibles en todo momen- 
to pulsando las teclas Control y H. De los dos siste- 
mas, el TLO es el que sigue con mas fidelidad ei 
enfoque de arriba abajo. Comienza por elaborar un 
diagrama de flujo, que en realtdad es una serie de 
comentarios (REM) acerca de lo que se pretende 
que haga cada seccion del programa (Branch on 4- 
Option men Li, p. ej,) y, si asf se desea, se lo puede 
incorporar al final del programa en basic. 

Las pantalias de entrada y de visualizacion se de- 
fin en durante el proceso de codificacion del progra- 
ma V el codigo resultante estara en formate ASCII. 



El usuario cntonces ha de salir del generador. car- 
gar (LOAD) el programa generado y volver a guar- 
darlo (SAVE) en codigo binario. En el Sycero, el 
usuario se encarga en primer lugar de la definicion 
de archives y ei diseno de la pantalla. Tras ello vie- 
nen el «proceso de variables de entrada» (asocian- 
do avisos dc ayuda y mensajes de error a la entrada 
del usuario en cada caso), las definiciones de lista- 
dos y otras varias opciones. Los diversos modulos 
se uniran cntrc si justo antes de la codificacion. 

Aunque este enfoque es menos amable para el 
usuario mexperto, ofrece la venfaja de que exige 
defmir cuidadosamente el proyecto antes de codifi- 
cario, ya que de lo contrario no se ejecutara en ab- 
soluto. Ademas, si durante la codificacion el gene- 
rador detecta algun error, deliene el proceso y le 
informa al usuario acerca de! error, de modo que 
pueda enmendarlo. El proceso de codificacion con- 
ciuye guard an do el programa^ en archivo binario, 
que se puede ejecutar desde dentro del entorno del 
Sycero. 

Los dos generadores producen un codigo com- 
pletamente transportable. De hecho, si el progra- 
ma TLO es suficientemente corto, es posible ejecu- 
tar la version ASCII en una maquina de estandar 
MSX (en la medida en que se ajuste a las limitacio- 
nes de memoria del micro). No obstante, ambos 
programas incluycn cxhaustivas rutinas de dctcc- 
cion dc crrorcs cn los programas que generan, con 
lo que resultan bastante voluminosos. 

Como es comun en el software MS-DOS, tanto 
el TLO como el Sycero ban de estar configurados 
con el hardware en uso con los programas Install, 
que se pueden utilizar con mdquinas de disco rigido 
o disco flexible de unidad doble. El TLO tambien 
debe «certificar^> un disco de trabajo, un proceso en 
cierto modo similar al format co. A este fin, un 
disco de trabajo puede ser un disco flexible entero 
o bien un subdirectorio del disco rigido (este ultimo 
se certifica como parte del proceso de instalacion). 
La ccrtificaci6n es esencial, porque si durante la co- 
rreccion del diagrama de flu jo el programa no 
puede detecta r una zona de disco de trabajo, sera 
incapaz de hallar el diagrama de flu jo en cuestion. 
Esto significa que ei usuario tcndra que volver al 
principio o bien intcntar manipular ei codigo en 
BASIC, Como siempre, puede protegcrsc contra esta 
clase de desastres haciendo frecuentes copias de se- 
guridad del contcnido del disco que este utilizando. 

Tanto cl TLO como el Sycero generan una pro- 
fusa documentacion, listando cuestiones tales como 
las caracteristicas del diseno de pantalla, los nom- 
bres de las variables utilizadas, etc. Sycero aiiade la 
fecha y la hora en la pantalla, asi como en las copias 
impresas, para que se puedan distinguir, al compro- 
barlas, las primeras vcrsiones de las posteriores 
mcjoradas. 

Tras la instalaci6n, al usuario del TLO se le ofre- 
ce un Main Dispersal Menu (menu de dispersion prin- 
cipal) de ocho opciones: 



Crear un programa 
Modificar un programa 
Modificar un archivo 
Definir un archivo 



Interrogacion 
Certtficar disco nuevo 
Resumir codificacion 
Retornar al basic 



Tras elegir la primera opcion y responder en send- 
do afirmativo a la pregunta: ^Requerira archivos sii 
programa?, el usuario ha de deflnir los archivos nt- 



1876 




Generadores de programas/SoTfware 





cesarios con sus campos y tipos dc campus (alfabe- 
ticos, numcricos o datos). Despues de esto, la pan- 
talk visualizara el Flowchart Creation Menu (menu de 
cieacion de un diagrama de flujo). En la version 
mas reciente, hay 20 opciones disponibles, numera- 
das del 1 al 12 y del 14 al 21 {evidentemente, el 
autor del TLO es supersticioso): 



Listar diagrama de flujo 
Modificar diagrama flujo 
Codificar proQrama 
Mezclar diagramas flujo 
Abortar 

Entrada por teclado 
Visualizar datos 
Bifurcaciones 
CalciJlos 

Funclones especlales 



Borrar 

Establecer punteros de arch. 
Leer un archive 
Escriblr un archlvo 
Buscar o claslf. un arch, 
Mezclar 

Confiprobaclon de reg. 
Borrar archive 
Funclones de base datos 
Multlfunciones 



Utilizando estas opciones se puede desarrollar un 
diagrama de flujo, que podria parecerse a la si- 
guiente, para un archivo dc nombres y direcciones: 



Dos "escritores" de 
prog ram as 

Tanto The Last One (TLO) como 
Sycero permiten que el usuario 
gene re programas en basic, que 
se ejecutan con mdependencia 
del ordenadoranfitridn. Sin 
emdargo, ladefinicidn precisa 
de las necesidades del usuario 
implica una concienzuda 
prep Ian iff cacion antes de que 
ambos paquetes se puedan 
ytifizar de forma rentable 



Ian McKinnell 



1 . , Bifurcacion a un menu de 3 opciones 

2. . Establecer puntero en el final del arch. Direcciones 

3 . . Entrada por teclado para archivo Direcciones 

4. . Escriblr datos en archivo Direcciones 

5. . Preguntar <iHas termlnado?>. Biiurcar si «No» 

6. . Dlriglrbifurc^clon incondicional 

7. . Bifurcacion a un menu de 3 opciones 

8. . Establecer puntero af comienzo del arch. Dirs, 
9 . . Busqueda por teclado de archivo Direcciones 

10. . Visualizar datos de archivo Direcciones 

11.. Preguntar <^,Otra busqueda?>. Bifurc. si «Si« 

12. . Dirigir bifurcacion incondicional 

13. . Clasiflcar archivo Direcciones 

14. . Establecer puntero al comienzo del arch. Dirs. 

1 5. . Leer datos de archivo Direcciones 

1 6. . Visualizar datos de archivo Direcciones 

17. . Dirigir bifurcacion incondicional 

18. .Terminar 



1^ 

If 

If 



Entonces puede empezar la codtficacion. Hasta 
este punto, el usuario no ha podido salir del progra- 
ma sin perder todo el trabajo realizado hasta ese 
momento. Sin embargo, cuando comienza la codifi- 
cacion se podra salir y usar la opcion Resumir Codifi- 
cacion para volver a comenzar. Durante la codifica- 
cion, se completan los destines de las bifurcaciones; 
el primer menu, por ejemplo, se bifurcara a 2 (es- 
criblr datos). 7 (leer datos) o 18 (terminar), y se 
disenan las pantallas, Se pueden guardar (SAVE) 
pantallas, lo que es aconsejable, puesto que se las 
puede modificar para utiliz arias ulteriormente en 
cualquicT lugai del programa o incluso eo otros 
programas. Sin embargo, ni en el software ni en el 
manual se le da a esta facilidad la importancia que 
requiere. En el Sycero, las pantallas se guardan 
(SAVE) automaticamente. 

Menu de apertura 

El menu de apertura del Sycero ofrcce 13 opciones 
que se utilizan mas o menos por ei orden en que 
aparecen: 

Configuracion def sistema 
Inicializacion 

Definicion de archivo-campos del sistema 

Definicion de la pantalla 

Proceso de la pantalla 

Definicion de llstado 

Proceso de llstado 

Definicion del programa 

Generar un programa 

Crear un archivo de datos «vivos» 

Ejecutar un programa generado 

Utilldades 

Finalizar la sesion 

Cuando se Uegue a la opcion de generacion del pro- 
grama ya se habra hecho gran parte del trabajo, y 
el proceso reiativamente simple que sigue exigira 
poca interv'encion, a menos que el software detecte 
un error obvio, Por supuesto, el sistema no puede 
deducir sus intencioncs, de mode que es imperativo 
que lo instruya de una manera precisa^ 

La principal diferencia entre los dos generadores 
es de enfoque. Como se afirma en el propio manual 
del Sycero, «la mejor forma de desarrollar un siste- 
ma es ulilizar el enfoque de arriba abajo. Comience 
con un boceto lo mas general posible y luego, de 
forma gradual, vaya rellenando con los detalles 
desde arriba hacia abajo. Lamentablcmente, la 
mejor forma de entrar los detades en un generador 
es la contraria, de abajo arriba 

Al comenzar con un generador de diagrama de 
flujo, el TLO se aproxima mas al enfoque clasico 
de abajo arriba, aunque parad6jjcamente puede ser 
que, de este modo, esdmule al usuario a comenzar 
el trabajo con una preplan if icacicSn in ad ecu ad a. Por 
el contrario, es virtualmente imposible trabajar con 
Sycero a menos que se haga una preplanificacion, si 
bien hace que resulte mas facil ir revisando las 
cosas a medida que uno va trabajando. 

Tanto Sycero como TLO ofrecen al usuario una 
forma conveniente de generar programas en basic 
que se ej ecu ten indcpendientemente de la maquina 
anfitriona. A pesar de sus limitaciones, pueden re- 
sultar utiles para la const rucci on de utilidades de 
bases de datos y programas sencillos de c^culo con 
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Tener gancho 



La Interface 1 para el Spectrum nos proporciona unas interesantes 
rutinas que vamos a analizar aquf 



Laprocesidn por dentro 

El dibujo muestra los principales 
componentes de la placa de 
circuito impreso 
carrespondiente a la Interface 1 . 
No s6lo proporciona tacilidadas 
para microdrive, interface serial 
y LAN, sinoque permite la 
creaci6n de nuevas 
instrucciones en basic definidas 
per el Dsuario. En otrocapitulo 
examinaremos estas 
instrucciones extras definidas 
por el usuario 



La Interface 1 tiene ocho Kbytes de memona 
ROM, y ocupa la primera seccion de la memoria. 
Proporciona las rutinas necesarias para gestionar 
los dispositivos adicionalcs (como los microdrives); 
asimismo amplia el interprete del basic para que 
acepte instrucciones como CAT y FORMAT. Esta 
ROM suele denonninarse ROM Sombra (Shadow 
ROM). 

Hay numerosas versiones diferentes de esta 
ROM, y existen diferencias de importancla entre la 
impiementacion inicial (versi6n 1) y la actualmente 
presentada (version 2). La version 1 se mostro muy 
poco eficaz en su empleo de microdrives, y diversas 
operaciones de las que ofrecia no las podia realizar. 

Las versiones siguientes de la ROM son mas efi- 
caces en el mane jo de los microdrives, ademas de 
permit irnos emplear mas e spado cn un cartucho 
de microdfive. Asimismo iiieron depurados los 
errores y se incorporaron nuevas facilidadcs rela- 
cionadas con fas impresoras en serie. 

Estas diferencias de ROMs suelen ser «invisi- 
bles>> para el usuario, mientras solo se acceda a la 
Interface mediante basic o con las tecnicas consa- 
gradas de program aci on en c6digo m^quina. Sin 
embargo, si usted intenta llamar a ta ROM Sombra 
directamente, con toda probabilidad encontrara di- 
ficultades, ya que las ruttnas estan colocadas en di- 
recciones que difieren segun la version de ROM. 
Las direcciones especificas de ROM Sombra que 
damos se refieren a la ROM version 1. 

Pero ^como puede la ROM Sombra ocupar los 
ocho primeros Kbytes de la memona si la ROM del 



ROM Sortitora 

Reside enire &0000 y &1FFF. La 
ROM Sombra es pa^finada 
siempre que ef contador de 
programa contenga &0008 



i- OsGilador 

E! oscilador a afta ve I odd ad 
(junto con el cnstal) proporciona 
una senaj de reloj al controlador 
de fatablade puertas 




Circuiteria de parche — 

Esta puerta, a veces llamada 
cucaraclJB, se incluyo en un 
disefio posterior a la fabricacidn 
para recti fi car un error en el 
controlador de la tabia de 
puertas 



ContrDlador de la tabIa de 
puertas 

Supen/isa el furtcionamiento del 
microdrive, la puerta en serie 
RS23aylarad de irea local 



BASIC se encuentra justamente en esta zona? La tec- 
nica us ad a es similar al si stem a paginado de ROM 
que emplea el BBC Micro. Siempre que cl Z80 
vaya a leer una instruccion de las direcciones St08 o 
bien &1708 con la Interface 1 conectada, la ROM 
del BASIC es «pag!nada» y relevada por la ROM 
Sombra en las operaciones siguientes. Hay una ru- 
tina en la ROM Sombra que vuelve a restaurar la 
ROM del BASIC en su momento. 

Antes de que esto suceda, sin embargo, debe ini- 
cializarse la Interface 1. Esto se logra despues de: 

L Emitir una instruccion NEW una vez acoplada la 
Interface. 

2. Paginar per primera vez la ROM Sombra. 

El resultado practico de este proceso de inicializa- 
cion es que se ha establecido un nuevo con junto de 
variables dc sistema. Estas ocupan la RAM a partir 
del final de las antiguas variables de sistema y hasta 
el area de los canales; mas de 50 bytes eii total. Lo 
anterior, junto con el establecimiento del mapa del 
microdrive y demas informacion necesaria para los 
distintos dispositivos administrados por la Interface 
1, hace que, conectada esta^ el inicio del texio de 
programas en basic se desplace hacia arriba en la 
memoria. Por esto es muy poco recomendable al- 
macenar el codigo maquina en las sentencias REM 
de la Ifnea 1 despues de haber conectado la interfa- 
ce (ya que la linca 1 del programa no tiene ahora 
una posici6n const ante en la memoria). 

Como ya hemos indicado, la Interface 1 ofrece 
tambien instrucciones en basic adicionales. Incluso 
podemos anadir algunas de elaboracion propia, 
como veremos en otro capitulo, Nos limitaremos 
aqui a examinar someramente la impiementacion 
de instrucciones como CAT y FORMAT. En un Spec- 
trum no amplia do, eludiran toda comprobacion lle- 
vada a cabo por el interprete del basic, por lo que 
gcncrard normalmente un error. Esto se hace me- 
diante ia instruccion RST que accede a la direc- 
cion &08. Cuando la Interface 1 es conectada, esta 
instruccion paginara la ROM Sombra, que propor- 
cionara al enojado fragmento del basic unas «se- 
gundas gafas» para que pueda ver si se trata de una 
instruccion que pueda interpretar correctamente. Y 
si puede, lo hara. De esta manera mas o menos 
funciona una instruccion como la siguiente, que 
guarda el programa de nombre Juan en el micro- 
drive: 

SAVE *^'m";1;" Juan" 

La parte * de la instruccion genera una condiciori 
de error, obligando al control a pasar a la direccion 
&08, y por tan to a ia ROM Sombra, donde tienc 
lugar la correcta interpretacion de la sentencia. 

Veamos ahora las rutinas adicionalcs en lenguaie 
maquina que incorpora la Interface L Ex am in are- 
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mos las que pueden dar en llamarse nitinas para 
«tareas universales^, que son ias mtinas no relacio- 
nadas con el control del microdrive, la interface se- 
rial o las faciiidades LAN. 

Codigos de enganche 

El primer problema es llamar a estas rutinas. La 
ROM Sombra solo se activa despues de una llama- 
da a alguna de las direcciones anteriormente men- 
cionadas. Esto se resuelve llamando a la direccion 
&08 mediante las siguientes instrucciones: 

RST &08 

DEFB nn 

donde nn es un valor entre &1B y &32 (los valores 
fuera de este intervale generan error). A estos va- 
lores nn se les denomina codigos de enganche (hook 
codes), y cada una de estas llamadas pertenece a 
una rutin a dife rente de la ROM Sombra. Los efec- 
tos de los codigos de enganche no han cambiado en 
las distintas versiones de la ROM Sombra. Antes 
de examinar algunas de estas llamadas, advertire- 
mos varias cosas. 

L Las operaciones del codigo de enganche suelen 
afectar a todos los registros, por lo que es necesario 
proteger los registros que puedan necesitarse des- 
pues. Ademas, siempre es bueno guardar el par de 
registros HL, pues es esencial a la hora de volver al 

BASIC. 

2. Algunas mtinas de los codigos de enganche de- 
sactivan las interrupciones. Usted debe reactivarlas 
si no esta seguro. 

3. Cuando se us a un codigo de enganche, ponga el 
valor &5C3A en el par de registros lY. 

4. Antes de emplear un codigo de enganche, se re- 
comienda asegurarse de que las variables de sis te- 
ma de la Interlace 1 han sido establecidas. Existe 
un codigo de enganche que hari esto y vamos a 
examinar lo antes de nada, 

• Codigo de enganche 49 {&31): se encarga de 
crear, o insertar, las variables de sistema de la In- 
terface 1. Si usted no esta seguro de que estas 
hay an sido ere a das, debera hacer la siguiente Ha- 
mada antes de emplear cualquier otro codigo de 
enganche: 

RST 8 
DEFB 49 

Una vez que la ROM Sombra ha ejecutado una 
rutin a de codigo de enganche, el control pasa a la 
ROM principal. La ROM Sombra tambien nos 
proporciona algunas rutinas que estan presentes en 
la ROM principal del basic de una manera menos 
adecuada. Estas tratan de entradas/salidas a panta- 
Ila desde el teclado, 

• Codigo de enganche 27 (&1B): provoca una es- 
pera hasta que se digita en el teclado un caracter, y 
pone en el registro A el codigo del caracter corres- 
pondiente a la Tecla pulsada (observese que esto no 
aparece en pantalla). 

• Codigo de enganche 32 (&20): inspecciona el te- 
clado en el momento de ser llamado e indica (por 
medio del estado del flag C) si se ha puis ado una 
tecla o no. Esta rudna no espera hasta que se pulse 



una tecla- Si ha sido pulsada, el flag C se pone a 1 , y 
en caso contrario a cero. Es fundamental que se 
activen las interrupciones antes de llamar a los codi- 
gos de enganche 27 y 32, dado que la inspeccion del 
teelado en el Spectrum se gestiona mediante inte- 
rrupciones. 

• Cddigo de enganche 28 (&IC): se encarga de la 
impresion de un caracter (que conoce gracias al co- 
digo ASCII previamente contenido en el registro 
A) en la corriente 2, que suele ser la parte superior 
de la pantalla de television. El empleo de esta ruti- 
na, junto con la del c6digo 27, se ilustra en el si- 
guiente fiagmento en lenguaje maquina. Si usted 
utiiiza este programa. observe que es un buc!e inde- 
finido, y que tendra que desconectar el ordenador 
para salir de el. 

;J(ama mtina ROM Sombra - ponga atencion! 
210000 Id ni, ADDRESS ^inserta dinecdon de futtna 

22ED5C fd (23?89}.ni ;pone direccion en variable de sis- 

CF rst *08 tema 

32 defh +32 ;opera 

• Cddigo de enganche 31 (&1F): es semejante al 
codigo 28, solo que escribe el caracter (cuyo codigo 
ASCII esta en el registro A) en la corriente 3, que 
suele ser la impresora ZX. 

• Cddigo de enganche 50 ( Sr32) : se trata del codigo 
de enganche final para tareas universales, y lo 
vamos a examinar con mas detenci6n. En las espe- 
cificaciones del fabricante se le rotula, no sin un 
cierto misterio, Sinclair Research Use Only (s6lo para 
uso de Sinclair Research). Gracias a el podemos 
llamar a una rutina do la ROM Sombra a una direc- 
cion determinada desde la ROM principal, sin 
tener que usar codigos de enganche. A causa de las 
diferencias entre las distintas versiones de la ROM 
Sombra to do programa que emplee esta I lama da 
para accedcr a las rutinas de aquella se vendr^ 
aba jo si se usa en una version diferente, Los deta- 
lles que damos aqui son, pues, a efectos de comple- 
titud. 

La direccion de la rutina de la ROM Sombra a la 
que deseamos aceeder se encuentra en dos b)ies 
dentro de las variables de sistema mostradas por la 
Interface L La direccion de la variable en cuestion 
esta en ias posiciones 23789 y 23790. Seguidamente 
se realiza el cddigo de enganche, !o que se ooose- 
guira con el siguiente fragmento en cddigo ma- 
quina: 

:espera el carader, impri^ne m corriemtie 2 





:cod. de eng. &1B y &1C 




CF 


start: 


rst #08 


:establec& vanai*^. ss^a 


SI 




defb *31 


InEeffe;^ 


FB 


loop: 


ei 


;ei. por s 


CF 




rst *08 




IB 




deftJ *ie 




CF 




rst #08 




1C 




defb *1C 
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jr loop 


;vLeca "sss 



Desde luego que no es una llamada extremadamen- 
te util a mcnos que se conozcan las madones de las 
disdntas rutinas de la ROM Sombi^ y con que ver- 
si6n de dicha ROM se esta trabajaiieio. No obstan- 
te, deberemos examinar esta llamada con mayor 
detenci6n cuando tratemos como se einpiea la In- 
terface 1 para anadir nuevas instrucciones al basic. 
En el proximo capitulo, de momenio. examinare- 
mos aquellos codigos de en gauche que son e specif i- 
cos de las operaciones del niicrodrive. 
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^Que diferencias esenciales 
existen entre un juego basado 
en disco y otro basado en 
cassette? Veamosia a traves del 
anafisis de un |uego de 
aventuras recien aparecido 



S Los juegos de aventuras requieren enormes canti- 
I dadcs de almacenamiento de datos y son ideales 
£para los sistemas basados en disco, en los cuales las 
^ descripdones de nue%^os escenarios, mensajes y ru- 
tinas de instrucciones se pueden cargar desde disco 
cuando es nccesario. Esta situacion siempre ha re- 
prescntado un problema para los programadores 
de aventuras europeos, quienes han debido escribir 
juegos para un mercado que tradicionalmentc ha 
rechazado el almacenamiento en disco en favor del 
realizado en cassette, de menor capacidad. For este 
motivo, casi todo el software de aventuras europeo 
esta basado en RAM y, por consiguicnte, bastante 
limitado, aunque los programadores se han vuelto 
expertos en cxplotar el limitado espacio disponible. 
En particular, se ha frenado el desarrollo de «per- 
sonajes interactivos^ (que requieren grandes canti- 
dades de datos), asi coma la introduccion de juegos 
con a bund ante vocabulario. 

En Estados Unidos. sin embargo , la situacion es 
muy diferentc. Todos los micros populares perso- 
nales tienen facil acceso a sistemas de disco, y la 
disponibiltdad de ingresos, que registra niveles por 
lo general mas elevados que Jos de los usuarios eu- 
ropeos, ha significado que tales sistemas por lo ge- 
neral los adquieran los usuarios noveles. El merca- 
do, por lo tanto, ha sido ideal para el desarrollo de 
complejo software de aventuras o, como algunos 
prefieren llamarlo, de «ficcidn interactiva». La casa 
de software norieamericana Infocom ha sido el 
lider en juegos para este mercado. 

El ultimo producto de Infocom es representativo 
de los elevados estandares que actualmente se es- 
peran de la compania. Se trata de The hitchhiker's 
guide to the galaxy (Guia de la gaiaxia para el autos- 
topista), escrito por Douglas Adams en colabora- 
cion con los programadores de Infocom para el 
Apple lie y la gama de ordenadores Atari (apare- 
cera tambien una version para el Commodore 64). 
Exige una irnica unidad de disco y muchisima pa- 
ciencia. 

El juego se has a, con bastante fidelidad, en la 
serie escrita originalmente para la radio por Dou- 
glas Adams, e incorpora personajes tales como 
Ford Prefect, Zaphod Beeblebrox, numerosos alie- 
nigenas y, por supuesto, Arthur Dent, el antiheroe 
de la historia, quien un buen dia se encuentra 
arrancado de su existencia suburban:^ y Uevado se- 
cretamente a la in men si dad del espacio en la cabin a 
de carga de un Vogon Starcruiser, 



The hitchhiker's guide to the galaxy: Para la gama de 
ordenadores Apple, Apricot, IBM y Atari, Pronto 
habra una versi6n para el Commodore 64 
Distribuido por: Softsel, Softsel House, Sion Gate 
Way, Great West Road, Brentford, Middlesex, TW18 
9DD, Gran Bretaha 
Palanca de mando: No se necesita 
Formato: Disco 



El primer punto fuerte del juego, y el m^s obvio, 
es el analtzador gramatical, la parte del programa 
que acepta e interpreta la entrada del usuario. Los 
anali^adores gramaticales de Infocom pueden dis- 
tinguir adjetivos, adverbios y preposiciones, ade- 
mas de los mas tradicionales verbos y sustantivos a 
los que se limitan la mayona de los juegos de aven- 
turas europeos. Ademas, el vocabulario es suma- 
mente amplio (entre mil y dos mil palabras) y la 
entrada puede tener numerosos formatos diferen- 
tes. Por ejemplo, usted puede entrar una instruc- 
cion directa (como Beber la cerveza), una instruccion 
multiple (Coger el paquete y despues guardarselo en el 
bolsillo), o una pregunta directa (^Donde estoy?]. 

El jugador se puede dirigir a los personajes sim- 
ple me nte diciendo sus nombres, como en Ford, 
(^donde estamos? o Marvin, vete. Inciuso aunque el 
ordenador no comprenda exactamente lo que se es- 
pera de el, el programa por lo general aparecera 
con una re spues t a aceptable: una enorme me j or a 
respecto a re spue st as tradicionales como No puedes 
hacer eso o, simplemente, No comprendo. 

Otras tecnicas de programacidn incorporadas en 
este juego incluyen la provision de «contenedores» 
(objetos que pueden retener otros objetos), una fa- 
cilidad que con frecuencia falta en tos juegos euro- 
peos. Otras provisiones son «objetos globales» 
(tales como «suelo», «pared», etc.), que pueden 
estar presentes en muchos escenarios diferentes, y 
«vehiculos», contenedores que pueden retener 
y transportar al jugador de un escenario a otro. Es 
interesante observar, no obstante, que la mayoria de 
estas facilidades, junto con el enorme vocabulario y el 
eficaz aiializador gramatical, son resultado del mayor 
almacenamiento de datos permitido por los discos y 
no de una programadon mas inteligente. 

El desensamblado de un juego producido por 
Infocom reveia un diseno muy complejo del argu- 
mento y el guion, pero poco en cuanto a lo que 
hemos dado en llamar inteligencia artificial. Entre 
algunos programadores de aventuras europeos 
existe la creencia generalizada de que la exube- 
rancia de posibilidades que ofrece la programa- 
cion basada en disco ha vueho algo perezosos a 
sus colegas norteamericanos y que, cuando el 
mercado europeo abandone las cassettes, el habi- 
to de aplicar las tecnicas de compresion desarro- 
lladas para los juegos basados en RAM traera 
como logica consecuencia la produccion de pro- 
gramas de calidad superior. 
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Reconocer un gesto 



En esta ocasion analizaremos un metodo que explora patrones en 
busca de rasgos significativos 
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Los 11am ad OS sistemas de reconocimiento de patro- 
nes de abajo arriba intentan extraer rasgos significa- 
tivos de una imagen dada y reducirla a un patr6n 
mas simple y de un mayor nivel de abstracci6n. Un 
metodo para hallar tales rasgos en un patrdn con sis- 
te en utilizar operadores locales para explora rlo, 
Cada operador local explora una pequena superfi- 
cie cada vez y multi plica las intensidades de gris de 
los puntos bajo el operador por facto res de estima- 
cioD. Estos factores estan disenados para producir 
marcadores elevados cuando se local iza el rasgo 
buscado. Mediante el empleo de numerosos opera- 
dores locales diferenteSj se pueden extraer las posi- 
ciones de rasgos importantes, tales como line as ho- 
rizontales, verticales y oblicuas o parches de luz y 
oscuridad. 

El programa WISARD, de Igor Aleksander, que 
describimos en el capftulo anterior, utiliza el princi- 
pio de generacidn de direccion de memoria desde 
un patron coo e! objeto de record a r el patron y re- 
conocerlo posteriormente. 

La gran ventaja del WISARD reside en que 
todos los bancos de RAM se dire ccio nan en parale- 
lo. Por tantOj puede trabajar a gran velocidad con 
imagenes de televisidn muy nit id as* El programa en 
BASIC que ofrecemos como ejemplo Simula secuen- 



cialmente un sistema de este tipo. Es mucno mas 
lento, pero demuestra claramentc los principios in- 
volucrados. 

Para su labor de diferencjaci6n el sistema utiliza 
sextuplos (son menos potentes que los octuplos 
pero ahorran espacio) y requiere 20 480 bits de 
RAM, o 2 560 bytes. Ello se debe a que hay 40 
sextuplos, cada uno de los cuales puede estar en 64 
estados, y, por tanto, direccionar un banco de 
RAM de 64 posiciones. 

Cada posicion conticne ocho bits, lo que permite 
al sistema diferenciar ocho distintas clases de en- 
trada. 

El programa posee dos fascs: la primera es una 
etapa de entrcnamiento en la cual se proporcionan 
al ordenador ejemplos de cada diferente cfase de 
entrada. La segunda fase implica el reconocimiento 
de un patron a traves de la comparacion con ejem- 
plos aprendidos previamente. Por ejemplo, supon- 
gamos que durante la fase de entrenamiento el sex- 
tuple numero 20 da como respuesta 110010 (50) 
cuando esta presente el patr6n de clase 4. En este 
caso, el cuarto bit de la posicion 50 del banco de 
RAM 20 se establecera en 1 . Si durante la fase de 
reconocimiento el diferenciador vuelve a responder 
con otro 50, encontrara al cuarto bit establecido en 
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la direccion especificada, lo que tiende a cODfirmar 
la presencia del patron numero 4. 

Para retener el patron de datos se utiliza una 
serie de bytes que comienza en D, y toda la matriz 
se bona al principio de cada ejecuci6n. Esto se con- 
sigue mediante la subrutina lOCX). La submtma 
2000 permite al usuario «pintar^> en la pantalia ima- 
geries sencillas de 16 por 16, utiiizando las teclas U, 
D, L y R para mover, y usando el caractei * y la 
barra espaciadora para crear el patr6n. 

El programa se puede modificar de modo que el 
usuario pueda cargar y guardar la matriz D en disco 
o cinta. Tal como esta, la primera vez que ejecute 
el programa, habra de ensenarle una tarea de clasi- 
ficadon a partir de cero, de modo que, en este sen- 
tido, esta en libertad de introducir cualquier mejo- 
ra que considere necesaria, Por supuesto, lo ideal 



seria que el sistema estuviera unido al mundo exte- 
rior a traves de un convertidor de analogico a digi- 
tal jfijado en afgun tipo de camara. 

Observe que la asignacion de pixels a los sextu- 
plos se realiza al azar, peio que se ha de poder re- 
petir. La imagen del patr6n ioidalmente se retiene 
en una matriz bidimensional, , utiiizando on uno 
para representar un asterisco y un cero para repre- 
sentar un espado. Durante la fase de entrenaniien- 
to se generan direcciones desde elementos de 
seleccionados al azar. El bit apropiado (segun la 
clase que se est^ aprendiendo) se establece en la 
Imea 210. Durante la fase de reconodmiento se 
debe generar Ja misma secuencia de direcciones se- 
leccionadas al azar, para poder comparar el patron 
que se esta comprobando con las clasificacjones 
aprendidas previamente. 



Programa de reconocimiento 
de patrones 



BBC Micro: 



10 REM " 

30 REM RECONOGEDOn DE PATRONES 
40 REM * ' TIPO WISARD PARA EL BBC ^ ' 
50 REM " 
55 MODE 7 

57 MEMO%-SX%"RB% 

60 mU l%(16.l6).CS*/.(7} 

e4 DliVI D% MEMO% 

65 <§% ^ 4 : RE M fornnalo o/p 

m R EM D% una'fTiatriz d& b/les {BBC) 

70 REM - - 1% matriz de imagEn, D% es matriz direcciones 

60 REM - - Nota: 1% coiitfefie 0 o 1 

65 PRINT ^Tamafio {m de RAM = ";MEMO%;" bytes." 

68 60SUB 1000: REM Nmpiar malriz D% 

90 REJyi - - Primero la fase de enirenain lento; 

92 IW00OS="£ntrenani3en!lo" 

95 INPJT " De que class e& (0..7) " ,C% 

96 IFC%<0ORC%>7THENGOTO9O 

1 00 FOR 3 % = 1 T0 1 6: FOR J % = 1 T0 1 6: 1% [1% J%} =0 

101 NEXT:NE)fT 

MO R E M - - Aho ra tomar la i magen pi ntada por el usuario: 
120 eOSUB20O0 

130 R-RND(-1):REMvabralazar 
140 F0RI%-1T0SX% 
150 A%=RB%*[t%-1) 

1 55 REM A% es la direccion de base del banco de RA3WI . 

160 FORJ%=0T0(OS%-1} 

170 R1%=lNT(RND(l)M6ri) 

180 fl2%=FNT{RND[iri6}*1) 

190 A%=A%M%(R1%,R2%)'2^J% ' 

200 NE)aJ% 

202 REM R1% y R2% son coordenadas «aleatoriaS'^, 
210 PROCdset(A%,C%) 
220 NEXT 1% 

230 i NPUT " Otra sgsion de entrenam lento {SmjT M;\ff\i= "S " THE H GO TO 
90 

233 IFA^-"S"THENG0T0 90 

235 Wl 000^= "Reconocimiento" 

236 REH/I - - Ahora \A Fase de ReoonocinnienJo: 
240 FOR l%^1 T0 16: FOR J%-1 T0 16 

244 l%|l%,J%)-0 

245 NEXT: NEXT 

250 REJy ^ - Obtener una imagen para clasificacion: 
250 GOSUB 200O 
270 R-R^JDi-l) 

2S0 FOR C% - 0 TO 7: CS%(C%) = 0: NEXT 
290 F0R!%-1T0SX% 
300 A%=RB%*{I%-1) 
310 FORJ%-OTODS%-1 
320 Rl%-INTfRNDn}'16H1 
330 R2%=INT(RND(1)M6)+1 
340 A% - A% ' 1% (R 1 % , R2%} '2^J% 
350 NEXT 

355 FORC%=0 TO7 

360 I F D mqtm% , C%) > 0 TH EN CS%(C%) - GS% (0%) + 1 

370 NEXT 0% 

360 NEXT 1% 

362 CX%-0 

335 FORC%=0TO7 

36S PRINT " La clase " "0% ; " posee un marcado r de 

^CS%(C%>'SX%M00;SPC{6) 
390 IF CS^ [C% ) >CS% [CX%) THEN CX% - C% 
400 NEXTC% 

404 PRINT " Lo mas probable es que id clase sea la numero "iCX^ 
41 0 I N PUT " QuFBjies clasif Icar otra ima§e n {3= Si) " ; AS 
420 IF fkt="3" OR AS^"s" THEN GOTO 240 
440 PRINT: PRim""Adios!" 
444 END 

m : 



1000 REM - - (nicfaiFjacion de memoria: 

1010 FOR l%=0 TOM EMO% 

1020 REM - - usa sobindices de byte (?}: 

1030 ?(D%+l%)=0 

1040 NEXT 

1050 RETURN 

1199 : 

1200 DEFPROCdset[A%,C%) 
1210 REM 

1220 7{D%+A%) = (D%?A%) OR 2'C% 
1230 ENDPROC 

1 240 REM establece m bit de la matriz D*^ 
1244 : 

1250 DEFFNdgatfA%,C%) 

1260 REM 

1270 =[D%?A%)AN0 2X% 
1260 REM extrae bit de la matriz D% 
126B REM A% es direccion; C% es 0.,7 
1290 : 

20DO REM - - Rutina f Drmacion-imagen: 

2010 CLS;PRlNTTAB(0.20):**(Usar: U, D. L, R, X * oespacio^ 

201 2 PRINT "para delinir Fa rmapen.)" 

2013 PRINT MOODS: ' iase " 
2015 PRINTTAB(1,1]; 
2020 T%=0;AS=" 

2030 H%=1:V%^1 
2O40 REPEAT Cg=INKEVg(222} 
2050 IFCS="U"THEWV%-U%"1 
2D60 IF - " D " THE N V% = V% + 1 
2070 IF GS = " L-' THEN H% = H% - 1 
2080 IF CS = " R " THEN H'^ = H % + 1 
3090 IFH%>16THENH%=1 
2095 IF H%<1THEN H% -16 
2100 SFW.>TBTHENV%-1 
2105 IFTO <THEN V%=16 
2110 IF 0^=" ' THENT^^=0:AS=C^ 
2120 IFCS="*'^THEMT%-1:AS-CS 
2130 l%[H%,V%)-T% 
2140 PRINTTAB(H^fl,V%):A^; 
2150 UNTIL Cl="X" 

21 55 GOSUB 2200; REM Volver a viSLtalFzar 
216fl RETURN 
2170 : 

220O REM - - Rutina de visualizaclon: 
2210 F0RH%-1T016 
2220 F0RV%=1 T0 16 

2230 If l%tH%,V%)>OTHEN PRINTTAS(H%,V%):' ELSE PRINT 

TAB(H%,V%]:" 
2240 NEXT: NEXT 
2250 PRINT TAB(0, 17); 
2260 RETURN 
2270 ; 

2300 REM las Enstrucclonespara "pintar " son; 

2301 REM U & D arriba y abajo; 

2302 REM L & R para izquierda yden^cba; 

2303 HEM ' & espacio para Oo y Off; 

2304 REM X para salir(iinapenbecha). 



Commodore 64: 

10 REN'.""RECONOCEDOR*"* 

20 REM " " OE PATRONES CBM 64 

30 FOR 1= 1 TO 25: DWS=DWS+€HRS[17HNEXT f 

56 SX=4D:DS^6:RB=2'DS 

57 ME=SX-RB 

60 DIM in6,16).C^6) 

64 D=12*4096:REM U&AR $CO00 PARA MATR3Z D 
85 PR|iNT"TAMANOTOTALDERAM =^ME;" BYTES'" 
88 GOSUB 1000:REM LIMPIAR MATRIZ D 
90 REM FASE DEENTRENAMIENTO 
02 MS='^ENTRENAMIENT0'' 

95 INPUT^DE QUE CLASE es (1...Br:C 

96 IFC<10RC>8TH£N95 

100 FOR i-1 TO 16:F0R J=1 T016:I[LJ}=0 

101 NEXTJiNEXTI 
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Parte eft 
\os datos 
de la imagen 
(digitalizadas 
en1 0 0} 



Salida 



Uetector 
de margenes 
vertrcal 



Qetector 
de marge ites 
horizontal 



110 REM AHOHAOBTENEfi IMAGEM PINTADAPOR USUARIO 
12a GOSUB20m: REM CONSTRUCTOR DE IMAGENES 
1 30 R= RN D(- 1 ) : REM VALOR ALEATORIO 
140 FORj=1T0SX 

150 A=RE*(!-1):REM CALC DIRECCIDN DE BANCO RAM 
I6d F0RJ=0T0(DS-1) 

170 R1=I^I(RW)ne+!):R3=lMT(RNO(1)*16+1) 
m A=A+HR1.R2)*2^J 
200 NEXT J 

210 P0KE{D+A},PEEK{D+A]0R21C-1)) 
22f} NEXT I 

230 INPUfOTRA SESION DE ENTRENAMIENTO {SmT'M 

£33 IF AS-^'S" THEN 90: REM REPETIR 

23^ REM*'** EASE DE R ECONOCI M I ENTO * " * * 

235 M&=''REC0W0CtMIENTO" 

240 FOR 1=1 TO l6:F0fl J= 1 T0 16 

244 ia,J)=0 

245 NEXTJ:NEXTI 

250 GOSUB 200O: REM TOMAR UNA IMAGEN PARA CLASIFICflClON 

270 R=RNDt-1) 

2S0 F0RC=1T0 8:CtG)=0:N£)CTC 

290 FOR 3=1 TO SX 

300 A-RB' (1-1} 

310 FORJ=OTODS-1 

320 R 1 = I MT[RND(1 ) " 1 S-f 1) :R2= I MT(fiNDa ) " 16-^1) 

340 A-A+I{R1,R2)*2'J 

350 NEXT J 

355 F0RC=lTOa 

360 IF(PEEK(D+A^ANS nC1))>0TREW C[0J-C(C)+1 
370 NEXTC 

380 NE)fTI 

381 PRINT CHRg( 147) 

3S2 CX= 0 :X - 0: Y= 1 7 : GOSU B 3O00 
385 FOR C=1 TO d 

m PR I NT- LA CLASE "C" TIENE UN MARGAOOR DE "iCiCl^SXnOO 
350 JFC{C}>C(C!()THENCX=C 
400 NEXT C 

404 PRINT" LO MAS PROSABLE ES QUE SEA DE lA CLASH NUMERO";CX 
410 I N P UT " CLftS! F1C AR OTRA I MAG EN (S/N) " M 
420 IF AS=-S'' THEN 240; REM REPETIR 
444 END 
099 ■ 

1000 REM INICMEMOfllA"**^ 
1010 FORNOTOMElPOKECD^-D.O^NEXTI 
1030 RETURN 
1040 : 

2000 REM CONSTRUCTOR DE IMAGENES **** 
2005 PRINT CHnS(147J 

2010 X-0;Y=20'GOSLJB 300O:Pfll:NT"USAR U,0,URX* 0 ESPAOO" 

201 2 PRI I^T " PARA DEFI Nl R LA IM AGEN " 

2013 PRINT" FAS E";M^ 
2015 X-1:Y=1:GOSJB3000 
2020 T=0;AS=" ":H^1:V=1 
2040 GETC^ 

2050 !F CS=^'U- THEN V- V-1 :IF V<1 THEN V=16 
206O IF C£= "D^' THEN V-V+l :IF V>16 THEN V= I 
2070 ]F C^= "L" THEN H =H-1 :tF H< 1 THEN H=ia 
2080 IF C£= "R" THEN H= H+ 1 JF H>1 6 THEN H= 1 
2110 IFCS=" THEN T=0:AS-C^ 
2120 IFGS-'''"THENT-1:AS-CS 
2130 KH,V}-T 

21 40 X= H :¥ = V:GOSUB SOOOiPRINT A^; 
2150 IFCS<>-X'THEN2O40 
2155 GOSUB 2200 
2150 RETURN 
2170 : 

2200 REM RUTINAVISUALIZACION 
2210 F0RH=1T016 
2220 F0RV=1TO16 

223OX:^H:Y=V:GOSUB3000:IFI(H,V)=OTHENPRINT'-":GOTO2240 

2235 PRSNT^' ^ 

2240 N EXT V: NEXT H 

2250 X=0:Y=17:GOSUB3000 

2260 RETURN 

2270 : 

3000 REM INSTROCCION TAB **** 
3010 PRINT CHRS(19):TAB(X);LEFr^|DW*,Y); 
3020 RETURN 



Datos de la 
imagen 
digitalizados 
enutios 
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Drreccidn 
genera da -177 



f^ctuplo 



Ojo tictuplo 

Conformando la base del 
sistemaWISARD para 
reconocim lento de patfiones hay 
grupos de ocho pixels 
conectados arbitrariamente a 
ocho registros de bits, Cada 
Octupio oorresponde a un banco 
de 256 posiciones. Durante la 
fasedeentrenamiento, el valor 



del 6ctuplo forma una drreccidn 
dentrodesu banco de RAM, 
segun al patron de pixels, y en 
esta direccicJn se graba L/n 1 . Si 
durante la fase de 
rsconocimiento esta presente el 
mismo patron, se gen era ra la 
mismadireccidn del banco de 
RAM y el 1 presente significari 
el rsconocimiento 



Complementos al basic 

Spectrum: 

El Spectrum no soporta las instrucciones sobre bits 
AND y OB. En consecuencia, hemos de escribir 
cortas rutinas en codigo maquina para flevar a cabo 
estas operaciones. Esfas se ofrecen en forma de un 
cargador de basic. Introduzca estos cambios en la 
version para el Commodore 64: 

30 CLEAR 49999:G0SUB 4000 
64 LETD=50018 
130 RANDOMIZE 1 

210 LETX1=PEEK(DHrA):LETY1=2t (C-1): 
GOSUB 6000 

215 P0KE(D+A),R1 

270 RANDOMIZE 1 

360 LETX1=PEEK(D+A):LETY1=2t (C-1): 

GOSUB 5000 

365 iFR1>0THENC(C)=C(C}+1 
381 CIS 

2005 CLS 

3010 PRINT AT Y,X; 

4000 FOR I -50000 TO 50017 
4010 READA:POKELA:NEXTI 
4020 RETURN 

4030 DATA 62,0, 14 A 161, 6,0, 79, 201 
4040 DATA 62,0,14.0,177,6,0.79,201 

5000 REM"*"* AND**"" 

5010 POKE 50001. XI :POKE 50003. Y1 

5020 LETR1=USR50000:RETURN 

6000 REM ****0R"*** 

6010 POKE50010.X1:POKE50012,Y1 

6020 LETR1=USR50009:RETURN 



Optnctores locales 

En la Slustracion de la izquierda 
vemos un ejemptodel tipode 
proceso de bajo nivel que puede 
em pi ear un sistema de 
reconocimlento de patronesde 
abajo arriba. Las cuadriculasde 
tres portres se denominan 
operadores locBies y exploran 
los datos de la imagen y 
registran marcadores elevados 
en las transiclones de bordes, 
dando, por lo tanto, un boceto 
primario de la imagen basado en 
ii neas rectas, Los operadores se 
mueven a traves de los datos de 
la imagen y cada nOmero se 
multiplica por la intensidad de 
niveies de gris de la seccidn del 
patron sobre la cual este 
colocado. La suma de los 
productos da marcadores altos 
cuando ef rasgo deseado est^ 
presente, y marcadores bajos en 
caso contrario. Cada uno de los 
nueve nQmeros de un operador 
local es un factor de est im acid n; 
el patron de estas esfimaciones 
determina fos rasgosquese 
detectaran 



1883 



Hardware/Superordenadores 




Ventajosa 
comparacion 



Centraremos nuestra atencion en el Cray-1 , superordenador capaz 
de ejecutar aplicaciones de proceso masivo de informacion 



La forma deJ favorito 

Et Cray-1 (arriba) ofreceal 
usuario un enorme poder de 
proceso bajo e! control de un 
ordenador frontaf coino un IBM, 
un DEC u otro sinnNar; la 
arquitectura del Cray-1 (a bajo) 
configura32 Mbyles de 
memoria principal y 4 388 bytes 
de espacio para reglslros, 
contenidos en un srstema de 
3 400 placas de circuito impreso 
separadas y mas de 90 km d& 
cable para conectarlas 



La «potencm» de un ordenador, en terminos llanos, 
es el producto de su tamano de palabra, su veloci- 
dad de transfercncia de datos, el tamano de su me- 
moria principal y la vetocidad de ciclos de maquina 
de su unidad central de proceso. En los microorde- 
nadores, las funcjones principales de la CPU tradi- 
cional estan empaqoetadas en un unico micropro- 
cesador. Entrc estos microproces adores se incluyen 
el difundido Z80, ei Intel 8088 y el 8086 y el Moto- 
rola M68000, Todos utilizan teciiologia MOS 
(metal oxide semiconductor) para los circuitos 16gi- 
cos y la memoria on-chip. Los datos se transfiercn y 
se procesan en paralclo ya sea de ocho en ocho o 
bien de 16 en 16. En los microprocesadores las fre- 
cucncias de reloj van de 1 MHz a 12 MHz, 

Las especificaciones como estas, aun sierido no- 
tables, hacen que los ordenadores basados en mi- 
croprocesador sean incapaces de afrontar la colosal 
cantidad de proceso de datos que requiercn aplica- 
ciones tales como ei proceso de imagenes, la dina- 
mka de fluidos y el pronostico meteorologico. 

Supongamos que iisicd csLl! Iiaciendo una pelfcii- 
la con graficos animados gcnerados por ordenador. 




- (ATQDASLASSECCEONES) 



y que la imagen requicre una resolucion de 6 (X)0 
por 6 000 pixels y 24 fotogramas por segundo. 
Puesto que los graficos son animados. la postcion 
dc cada punto de la iniagen puede moverse cntrc 
los fotogramas, dc modo que se habra de calcular la 
posicion de cada punto para cada fotograma. Eso 
se traduce cn 864 millones de calculos por segundo, 
y es probable que cada calculo sea bastante com- 
plejo, implicando docenas o centenares de instruc- 
ciones en codigo maquina, Esto anade hasta bi Ho- 
nes de instrucciones por segundo. El recuadro 
Pmebas de (iempo muestra una comparacion apro- 
ximada del tiempo que consume producir una sc- 
cuencia dc pelicula de 10 minulos en un superorde- 
nador y cn un micro basado en cl Z80. 

Los superordenadores, tal como tiende a llamar- 
se a los mayores ordenadores centrales, trabajan de 
forma muy parecida a los microordenadorcs; las 
instrucciones y los datos se traen de la memoria, el 
procesador manipula los datos segun sus instruccio- 
nes y los re suit ados se almacenan en la memoria. 
La principal difereocia radica en la escala y la vclo- 
cidad a la cuai se lie van a cabo est as operaciones, y 
en la forma en que se construyen los componentes 
de los ordenadores. 

Ilustraremos un superordenador <^tipico>> refi- 
ridndonos al Cray-1 S/4400, fabricado por Cray Re- 
search. El primer Cray-1 se mstalo en 1976, solo 
cuatro anos despues de la creacion de la compania. 
Desde entonces se ha establccido como cl superor- 
denador mas famoso (y uno de los mas populares). 

La CPU del Cray-1 ocupa una cabin a semicircu- 
lar de 6,5 pies (1,98 m) de altura, de forma similar 
al de un sofa curvo (debajo de los ^^asientos» esta el 
sistcma de refrigeracion y las fuentes de aliraenta- 
cion). Obtiene su velocidad mediante el empieo de 
logica de semiconductores bipolares (los semicon- 
ductorcs bipolares son transistores «normales», al 
contrario que los MOS, CMOS, NMOS, FET 
—field effect transistor — y otros tipos de semicon- 
ductores). La logica bipolar y !a memoria vienen en 
mas de 200 000 circuitos integrados en 3 400 placas 
de circuito impreso separadas, para co nectar las 
cuales se utilizan mas de 90 kilometros de cable. 

El tamano dc palabra que se utiliza para los 
calculos es de 64 bits de ancho (la cantidad de datos 
que se procesan a la vez es ocho veces mas que en 
un Z80 de ocho bits) y la velocidad del reloj del 
sistema es de 80 MHz (80 millones de ciclos por 
segundo). Una suma tipica de 64 bits lleva solo 37,5 
nanosegundos. Una suma de ocho bits cn un Z80 
operando a 4 MHz (p. ej., ADD A,n) Ueva 1,75 mi- 
cro segundos. 

La memoria principal del Cray es una parte mte- 
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gral de la CPU. Contiene 32 megabytes organiza- 
dos en 4 194 304 palabras. La mcmoria puede 
transferir hasta 2 560 millones de bytes por se- 
gundo. 

Como es de suponer, el conjunto de registros de 
la CPU del Cray es impresionante. Hay 72 registros 
de direccion (cada uno de 24 bits de ancho), 72 re- 
gistros escalares (cada uno de 64 bits de ancho) y 
ocho registros de vector (cada uno de 64 palabras 
de ancho). El espacio total de registros de la CPU 
del Cray es, por lo tanto, de 4 888 bytes (el del 
microprocesador Z80 es de apenas 26). 

A diferencia de la mayoria de los otros ordena- 
dores, que son unidades independientes, los orde- 
n adores Cray estan disefiados para us arse como ex- 
tensiones de niiniordenadores u ordenadores cen- 
trales ya existentes- El ordenador frontal (front 
end) actua como una interface, tomando ia en trad a 
de ios terminales o lectores de tarjetas, y alimen- 
tando la salida a perifericos tales como impresoras 
o onidades de almacenamiento en cinta magnetica. 

Entre la CPU del Cray y el ordenador central 
frontal se halla el subsistema de E/S Cray, disenado 
para facilitar las inmensas demandas de uso de la 
CPU, y una interface frontal, disenada para ade- 
cuar el sistema Cray a las caractcnsticas especificas 
del IBM, DEC, Data General u otros ordenadores 
frontalcs. El subsistema de E/S Cray consta de 
entrc dos y cuatro procesadores de E/S, cada uno 
de [os cuales es un potente miniordenador en toda 
la rcgla. 

Esta descripcion de la arquitectura del Cray-1 
apenas si toca la superficie. aunque el diagrama de 
bloques de la CPU tal vez lo ayude a hacerse una 
idea de su niyel de sofisticacion. No hay espacio 
suficiente para hablar del juego de instmcciones, 
las 13 unidades funcionales, como se las llama, que 
puede n operar en par ale lo, ni del proceso de vecto- 
res que permite operar, mediante una unica ins- 
truccion, sobre hasta 64 pares dc ope ran dos. Bast a 
con decir que el Cray es una nnaquina muy potente. 



Aplicaciones especificas 

Prondstico meteoroldgico 

Los pronosticos meteorologicos son ahora el 
resultado de la recogida de datos meteorologicos 
internactonales, comunicacidn porsatelitey 
modelacidn por ordenador, Un «modeIo» por 
ordenador del tiempo en eJ mundo impiica cientos de 
millones de calculos en vastas matrtces de datos, 
necesitandose las predicGiones en cuestion de horas. 
S6lo ordenadores inmensamente potentes como ei 
Cray pueden manipular esta cantidad de datos con 
suficiente rapidez 

Difidmica defluidos 

La dinamica de tluidos juega un importante papel en el 
disefio de coches eficaces desde el punto de vista dei 
combustibie. ios sistemas refrigerantes de las 
centrales de energia nuclear, [a ingenieria aeronautica 
y muchas otras apiicaciones. El anaNsIs y la prediccion 
dei movimiento de los fluidos exige analizar montones 
de datos. Los problemas se agravan si se necesitan 
resultados en tiempo reai. La cuestion estriba en que 
cada particula de un fiuido (y hay incontables triliones 
de eilas) tendra yn efecto sobre todas las otras 
particulas M sistema cuando este se mueva. Por 
consiguiente, caicular el connportamiento de un 
sistema completo de fluidos exige un poder 
informatico masivo 

Prevision economlca 

Construfr modelos de economia es notablenfiente 
Mizil Al igual que en la dinamtca de fluidos, un 
pequeno cambio m cualquier parte del sistema puede 
tener efectos que se extiendan a traves del resto def 
sistema. Intentar crear un modelo economico de todot 
el mundo es apenas viabte, pero aun los modelos 
simplificados poseert una complejidad abrumadora. 
Se necesitan ordenadores rapidos y muy veloces para 
que ios anaiistas no hayan de esperar durante meses 
ios resultados 



Pruebas de tiempo 

Para comparar el poder de proceso de un 
superordenadorCray-1 yun ordenador personaf 
basado en ei Z80, como el Amstrad CPC-464, 
consideremos los problemas que entrana hacer una 
secuencia de pelicula de 1 0 minutos de graflcos 
animadosy en alta resolucidn. Supongamos quese 
requiere una resoiucion de imagen de 6 000 por 6 000 
pixels y 24 fotogramas por segundo. Supongamos, 
asimismo, que es necesario caicular indrviduaimente 
cada pixel de cada nuevo fotograma, y que para fa 
version ZSOse precfsaran 100 instrucciones en cddigo 
m^quina, con un tiempo deejecucion medio de 19 
clclos de reloj (4,75 microsegundos). Para ei Cray-1 , 
con sus poderosas instrucciones de proceso de 
vectores, diremos que se necesitan 25 instrucciones 
en codigo maquina (para pecar de conservadores) con 
un tiempo de ejecucidn promedio de cuatro ciclos de 
reloj (50 nanosegundos). Un Z80 tardaria 
6000^x24x60x10x100x4, 75x10"^=2, 4624x10^ 
segundos, o7,8anos. Un Cray-I tardaria 
6000^x24x60x10x25x50x10-^=6,48x10^ 
segundos, o 7,5 dias 




RevDlucl6n visual 

Desde el Goodbye ysUow brick 
rosd (Adios, camino de lad ri [Jos 
amarilJos), de Elton John, hasta 
Josanuncios deGHlette. los 
graflcos generados por 
ordenador estan revoiucionando 
la produccidn de videos y 
peiicuias. Se pueden crear 
facllnfiente Imagenes como-estas 
apllcando la modematecnologia 
del miniordenador y el micro. A 
una escala mayor, se empSed un 
Cray-1 para generar mas de 20 
minutos de nneiraje para la 
pelfcula Ttfe last st3rpg^tEr(E\ 
Mm guerrero de es^-acio). 
efectuando ca'c. :s :_e 
hubieranten c: a un 
micro de 8 biis ,c- ^de 
15anos! 
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iNo pases de largo! 

Prosiguiendo con nuestro proyecto de programacibn, listaremos 
las rutinas de entrada/salida para el Commodore 64, el Spectrum y 
el Amstrad CPC 464/664 



Estas rutinas de entrada/salida tienen por finalidad 
crear la visualizaci6n del tablero para el juego; pro- 
porcionao, ademas, subrutinas de proposito gene- 
ral para imprimir mensajes y aceptar entradas. 

En la medida de lo posible, los iistados que ofre- 
cemos constituyen el segmento de programa equi- 
valente al que ofreciamos para el BBC Micro, y 
gran parte de la descripcion ofrecida para los Iista- 
dos del capitulo anterior es iguaimente valida para 
las versiones del go para el Commodore 64, el Sin- 
clair Spectrum y el Amstrad CPC 464/664. Para 
mantenernos en un nivel de sencillez, en todas las 



versiones del programa se utilizan los mismos nu- 
nieros de Iinea; los algoritmos originales solo se al- 
ter an alli donde las diferencias en cuanto a arqui- 
tectura de la maquina y version de basic sc vuelven 
cmciales. Las principaies diferencias entre la ver- 
sion para el BBC Micro y las que ofrecemos aquf, 
aparte de la forma en que las cuatro maquinas ma- 
nipulan sus vtsualizadones en pantalia, es que las 
versiones de basic del Amstrad, el Spectrum y el 
Commodore 64 carecen de procedimientos y fun- 
ciones muitilfneas. No obstante, hemos simulado 
estos ultimos mediante el empleo de subrutinas. 



SEKI 



quign? 

El grupo bianco esta 
Gompletamente mdeado por el 
grupo negro, mas numeroso, 
y solo le quedan dos llcencias. 
Sin embargo, este grupo 
tambien tiene fodeado a un 
grupo negro mas pequeno de 
tres flc^ias 



Error fats I 

Si las negrasjuegan m unad& 
las dos licencias restantes de 
las blancas, en un Litento por 
capturarel grupo bianco, 
entonces las blancas pueden 
Jugar an la licenoia restante. 
Puesto que estas dos licencias 
las comparten las blancas y eJ 
grupo negro m^s pequeno, 
enlonces se podr^ suprimir 
del tablero este grupo negro 



Segurldad 

Ahora el grupo bianco se 
puede poner a salvo formando 
dos ojos, jugando en una de 
las (Sos poslctones que se 
■idican. Las negras habran 
lieiado vacantes las dos 
tencias compartidas 
oripotes, situacic^n que en 
josedenomlnaSEKI 
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Mbdulo Uno 

CoitimQdore 64: 

10 POKE 56578, PEEK(56578)0R 3:P0KE 

56576.(PEEK(56576)AND 252)0R 1 
1 5 . POKE 648. 1 32:POKE 52, 1 2e:P0KE 56, 1 28 
20 Um SK%{300) 
30 POKE53230,0:P0KE 

53281 ,0:PRINr [BORR.] [ABAJ] [ABAJ] [ABAJl [ABAJl 

[ABAJ] [ABAJ] lABAJ] [ABAJ] [ABAJ)[ABAJ] [BLANCl 

PGR FAVOR ESPERE":GOSUB 170 
40 &OSUB1270 

50 PRINT [BORR.] ':GOSUB 1730 

60 MOVIMIEWTO% = (VtOVIMIENTO% + 1:REMAQUI 

MOVIMIENTOS BLANCAS 
70 1FFIN%GOT0100 

30 MOVtMIENTO% = M0VIMIEMTO% + 1:FlEMAQUI 
MOVIMIENTOS NEGRAS 

90 IFN0TFIN%GOT0 60 
100 IP%=22:IM%-9:IW%.-1;GOSUB1990 
110 IFAg="S" G0T040 
115 IFAS<>^'N"GOT0100 
120 MP7d-24:MM%=5;0^="":GOSUB 2160 
130 GOT0 130 

170 REM RUTINA INICIALJZAR 

190 NEGRAS% = 1:BLANCAS%-2:C0L0R%=3 

200 IVIARCAD0R%-4:UCENC1A%=3 

220 TABLERO =491 52 

240 DIM CAPTURA%{2) 

250 EM= " [C 3] ABCDEF6HI JKLMNO" 

260 0IMD1R%(4) 

270 FOR L=1 TO 4 

280 READDIR%(L) 

290 NEXT 

300 DATA 16,1,-16,-1 
310 GOSUB390 
350 RETURN 

390 REM RUTINA LEER MENSAJES 
420 DIMMENSSO) 
430 FORM = 0TO9 
440 READMENSS(M) 
450 NEXT 

O.K. ESTOYPENSANDO...'^ 
ENTRADAILEGAL: ' 
FICHAYAEN ESE LUGAR: " 
ILEGAL. KG EN ESE LUGAR: " 
SUICIDIO ILEGAL EN ESE LUGAR: " 
O.K. JUEGO TERMINADO. PULSE 



460 DATA 
470 DATA 
480 DATA 
490 DATA 
500 DATA 
510 DATA 

RUN/STOP 
520 DATA 



1SS6 



Go/Programacidn 




530 DATA XUANTAS FICHAS D£ HANDICAP 

PUEDO TEfJER (2-9)?'^ 

540 DATA ^'OIGITE SU IVfOVIMIENTO (P.EJ. H8). PASO 

0 ABANOONO:" 
550 DATA "QUIERE JUGAR OTRA VEZ (S/N)? ' 
560 RETURN 

1270 REM RUTINADBINTRODUCCION 

1280 GOSUB1340 

1290 GOSUB1450 

1340 REM RUTINA INIC-JUEGO 

1345 PILA% = 1 

1360 A1S-" "':A2^=" 

1370 POSIC%-0:MOVIMIENTO% = 1 

1380 FlN%-0 

1390 CAPTURA%(1) = 0:CAPTURA%{2}-0 
1410 RETURN 

1450 REM RUTINA PANTALLA-TITULOS 
1460 POKE 53280,0:POKE 53281,0 
1470 PRfNT 

1CLEAR] [DOWN] [DOWN] [DOWN! [OOWfJh 
[c3J[RVS0N][cV][clj[c 
[RVSON]IcV][cl][c C]" 

[RVSON] [RVSOFF]fcD)[c 
[RVSOFFJ [RVSON] " 

RVSON] [RVSOFF] [RVSON]- 



[RVSOfF] [RVSON] 
CC] [RVSON] [c !]IRVSOFF][c 
RVSOFF] [RVSOFF] [c F]- 

[CYAN] POR MARCUS 



C] [RVSOFF] 
1480 PRINT" 

I] [RVSONl 
1490 PRINT" 

[RVSOFF] [RVSON' 
1550 PRINT'^ 

V] (cC][RVSON][c!] 
1510 PRINT' [DOWN] [DOWN] 
JEFFERY" 

1520 PRfNr [DOWN][PURPLE]TU JUGARAS CON LAS FICHAS 

[WHITE] BLANCAS[PURPLE],y' 
1530 PR!NT"EL OROENADOR {AL SER MAS DEBILf) 

JUGARA" 

1540 PRfNrCON LAS FICHAS [c 3] RO J AS [PURPLE J CON UN 

HANDICAP" 
1550 PRlNr DEVENTAJA/' 
1560 IP%=20:fM% = 7:JW%=1:GOSUei990 
1565 HND%=VAUAS) 
1570 IFHND%<2 OR HND%>9 GOT0 1560 
1590 RETURN 

1730 REM RUTINA IMPRESION-TABLERO 

1750 PRINT "[HOME] [YELLOW] FICHAS 

CAPTURAOASPOR:"; 
1760 PRINr[WHlTEJ MOVIMIENTO " 
1770 PRINT" [YELLOW] BLANC=[CYAN] 

'\CAPTURA%(2); 
1780 PRINT TAB(1 8);" [YELLOW] NEGRAS= [CYAN! 

":CAPTURA%{1); 



1790 PRINT TAB{31);'" (WHITE ":MOVIM!ENT0% 
1880 PRINT TAB(1 2); " [DOWN] ^EJEg 
1810 F0RY-15T01 STEP-1 
1820 PRINTTAB{9);"[c3]'^;RI6HTgf "+STRg(Y),2); ' 
1830 F0RX=1T015 
1840 PP%-PEEK(TABLER0 + 16*Y+X) 
1850 IFPP% = 1 THEN PRINT"[c3]Es Q]";:GOT0 1880 
1860 IF PP%=2 THEN PRINT'' [WHITE] [s Q]";;G0T0 
1880 

1870 PRfNr[c6][s +]"; 
1880 NEXT 

1890 PRINT "[c3]";RIGHTg(" " + STR^{Y),2) 
1900 NEXT 

1910 PRfNTTAB(12);EJE^ 
1920 PRINT" [DOWN] [YELLOW] ULT. MOV."; 
1930 ]TCP%=P0S1C%:G0SU6 2260; PRINT TAB(24); 
A1^ 

1940 PRINT TAB(18);"[DOWN][CYAN]":A2^ 
1950 RETURN 

1990 REM RUTINA DE ENTRAOA 
2000 IS% = 0 

2010 POLE 780,0:P0KE 781JP% + 1:P0KE 782,39:SYS 
65520 

2015 FOR IJ = 1 TO 79: PRINT CHR^(20);:NEXT 
2020 Ag = '^'' 

2030 PRINT' [WHITE] ";MENSg{IM%):" 

2060 GET ]g:1FlS = "^' GOTO 2060 

2065 IFASC{lg) = 13 GOTO 2120 

2070 IF ASC(lg)<>20 GOTO 2100 

2080 IFIS%>0THENIS%-IS%-1:Ag=LEm(Ag,IS%): 

PRINT ]g:;GOTO 2060 
2085 GOTO 2060 ' - 

2100 IF IS%<JW%THEN IS%=IS% + 1:Ag-Ag+fg:PRINT 

"[CYAN]'':i^; " 
2110 GOTO 2060 
2120 RETURN 

2160 REM RUTINA DE MENSAJES 
2190 POKE 730.0;POK£ 781,MP%:POKE 782,39:SYS 
65520 

2195 FOR ML=1 TO 39:PRJNT CHR^(20);:NEXT 
2200 PRINT-- [RVSON] [c 

3|^MENSS{MM%J;0S:1RVSDFF]"; 
2220 RETURN 

2260 REM RUTINA ENT-TO-CHAR 
2270 IF ITCP%=0 THEN PRINT" [CYAN] HANDICAP";: 
RETURN 

2275 CS-CHRg(ITCP%-16*fNT(JTCP%/16)+64)+MlD^ 

(STR^{INT{ITCP%/16)),2) 
2280 PRJNr[CYAN|";Cg;" '^:RETURN 



AmstradCPC 464/664: 



10 


MEMORY &9FFF 


310 


20 


DtMs(300):REM pila 


320 


30 


GOSUB170;REM inic 


330 


40 


GOSUB 1270: REM introduccion 


340 


50 


CLS:GOSUB 1730:REM imprimir 


350 




tablero 


390 


60 


mov% ^ mo v% + 1 : R EM aq u i movi m ientos 


410 




blancas 


420 


70 


IFmas%THEN60 


430 


80 


mov%=mov%+1 ;REM aqui movimientos 


440 




negras 


450 


90 


IF NOT mas%THEN60 


460 


100 


lp%^23: im%-9: iw%^1:GDSUB 


470 




1990 


480 


110 


IFaS= 'S" THEN 40 


490 


115 


IFa^o'N'^ THEN 100 


500 


120 


mp%^25:mm%=5;o£-" ":GOSUB 


510 




2160:REMmensaje 




130 


END 


520 


170 


REM rutin a inic 


530 


190 


neg ras% = 1 : blan cas% = 2 :co f or% =3 




195 


INK1,26:REM bianco 


540 


197 


INK2,24:REM3m3rillo 




200 


marcado r% -4:1 icen cia% = 8 


550 


220 


tablero=&A00O 


560 


240 


DIMcaptura%(2) 


1270 


250 


eje^^'ABCDEFGHIJKlMNO" 


1280 


260 


GOSUB 390: REM leermensajes 


1290 


290 


DIMdia{4) 


1300 


300 


RESTORE 340 


1340 




"O.K. ESTOY PENSANDO.. 



T legal, Ko en ese lugar:' 



O.K. JUEOO 



TERMINADO'^ 



de handicap (2-9)?'^ 
DATA "DIglta tu movimte 
OABANDONO:" 



1345 pifa%-1 

1360 atarilg=" '^:atarl2S^"" 
1370 posicion%-:nnov%=1 
1380 mas%=0 

1390 captura%{1)-O:captura%(2)=0 
1410 RETURN 

1450 REM rutina pantalla titulos 
1460 CLS 

1462 FORc-1 TO 20 STEP 3 
1465 RESTORE 1474 
1470 MOVE260+c,320+c 
1472 FOR i=1 TO 8:READ x,y:DRAWR xw,3: 
NEHI 

1474 DATA -10,10,-50.0.-10,-10,0,-80,10, 

-10,50,0,10,10,0,20 
1476 MOVER -10,0:DRAWR 20,0 
1478 MOVE 380+ c,320+c 
1480 FOR 1 = 1 TO 8: READ x,y=DRAWR x,y: 

NEXT) 

1482 DATA -10,10,-50,0,-10.-10,0,-80,10, 

-10,50,0,10,10,0,80 
1484 NEXT c " ^ 

1500 LOCATE 12, 13: PEN SPRINT 
1510 LOCATE 1,1 6: PEN 2:PRINT'^Jugarascon las 

fichas'' ' 

1520 PEN 1:PRINT^bfancas";:PEN2 
1530 PRINry el ordenador {al ser mas debll!) 
jugara" 

1540 PRINT'^cofilas";;PEN SiPRINT'Tojas^-PEN 
2: PRINT 'con una ventaja de" 
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Programacion/Go 



1550 PRINTTAB{l3)"handicap" 

1560 ip%=22:ini%-7:iw%-l:G0SUB 1990:REIVI 

entrada 
1565 liand%-ASCtaS)-48 
1570 IF hand%<2 OR harfd%>9 THEW 

1560 
1590 RETURN 

1730 REM rutins impresmn tablero 
1735 INK0,4:BOROER 9;REM magenta/ 
verde 

1750 LOCATE 3J:PEN 2: PRINT" Rchas capturadas 

pori" :TAB(32) " Movimiento' 
1770 PRINT TAB(3) "B]ancas ;:PEN 3;PRINT 

captura%(2); 
1760 PEN 2:PR[NT 'Negras -^:PEN 3: PRINT 

captLira%(1]; 
1790 PRINT TAB(33)nnov7o 
1800 PR]NT:PR]NTTAB(5)eje^ 
1810 F0Ry%-15T01 STEP-1 
1320 LOCATE 2.20, -y%:PRINT 

RIGHTS('"' + STR%%),2); 
1830 F0Rx% = 1T015 
1835 PRiNT ""; 

1840 p%-PEEKftaE)lero + 16*y%+X%) 



1350 lFp%=1 THEN PEN3:PRINr 0 ';.GOTO 
1880 

1860 IFp% = 2THENPEN1:PRINrO ";:GOTO 
1880 

1870 PEN2:PRINr + "; J, 
1880 NEXTx% r 
1890 PEN3:PRINTTAB(34)y% 
1900 NEXTy% 
1910 PRINT TAB(5)ejeg 

1920 PEN 2:PRINTTAB{3)"Mi ultimo movimfento 
fue:"; 

1930 ltcp% = posidon%:QOSUB2260:PEN 
1 : PRINT TAB(30)atari1^ 
1940 LOCATE 16,23:PRINTatan2S 

1950 RETURN 

1990 REM mtina de emrada 

2000 is%-0 

2010 LOCATE 3.ip%:PRINTSPACE^(62) 
2020 aS="" 

LOCATE 3Jp%:PEN 3;PRINT 

mens^(im%); 
2060 iS= '^ AWHILE iS-" ":i^=INKEYg: 

WEND 

2065 IF iS-CHR^{13) THEN 2120 



2070 IF ig<>CHRg(127) THEN 
2090 

2080 IFfsg>OTHEN is% = is%-1:ag- 
LEFT^ (aS,is%):PRlNT CHRg(a):^"; 
CHRg{8); 

2085 GOTO 2O60 

2090 fP tS> = '^a" AND \t< = "r THEN 

i^-CHR^(ASC{lg)-32) 
21 00 IF ls%<lw% THEN ls% = 1 :a^= 

ag+ig:PEN2:PRINTi^; 
2110 GOTO 2050 
2120 RETURN 

2160 REM rutina de mensajes 
2190 LOCATE 3,mp% PRINT SPACES 
(36); 

2200 LOCATE 3,mp%:PEN 3: PRINT mensg(mm%) 

0^ 

2220 RETURN 
2260 REM rutina Int-to-char 
2270 IFitcp%-OTHEN PEN 1:PRINT" Handicap" 
:;RETURN 

2275 c^=CHR^{itcp%-16*lNT(itcp%/16)+64) 

;rg - MIDS{STRg(l NT(itCp%/1 6)). 2) 
2280 PEN1:PRINTcS;r^;;RETURN 



Sinclair Spectrum 

10 CLEAR 53999 
20 DIM s{300) 

30 PRINT AT 10,10;'POR FAVOR ESPERA'^:GO 

sue 170 

40 GO SUB 1270 
50 CLS.GO SUB 1730 

60 LET movim iento^ movimfento + 1 :REM aqui 

movimientos biancas 
70 IFfinTHENGOTOlOO 
80 LET mo vim 1 e nto ^ movi m lento + 1 : R E M aq u i 

movimientos negras 
90 IF NOT fin THEN GO TO 60 
100 LETip-20;LETim = 10:LETiw^1:GOSUB 

1990 

110 IFaS = "S^ THEN GOTO 40 

115 IFaSo'N ' THEN GOT0 100 

120 LETmp=21:LETmm=6:LETog='"';G0 

SUB 2160 
130 STOP 

170 REM rutina inEcialf2ar 
190 LET negras=1: LET blancas=2: LET 
color=3 

200 LET marGadar=4: LET licencia 
=8 

220 LET tablero -64000 
240 DIM c{2) 
260 GO SUB 390 
290 DIM d(4) 
300 RESTORE 340 
310 FOR 1 = 1 TO 4 
320 READd{J) 
330 NEXT I 

340 DATA 16,1,-16.-1 
350 RETURN 

390 REM rutina leer-mensajes 
410 RESTORE 460 
420 OIMmS{10,43) 
430 FORm=1TOlO 
440 REAOmS{m) 
450 NEXTm 

460 DATA "O.K. ESTOY PENSANDO..." 
470 DATA "Entrada ilegar' 
480 DATA "Ficha ya en ese lugar: ' ■ 
490 DATA "I legal. Ko en ese lugar; ' 
500 DATA "llegaL SLiicidto en ese 

lugar:" ■ 
510 DATA " O.K. JUEGO 

TERMINADO/' 
520 DATA^' " 

530 DATA "Cuantas flchas puedo tener de 

tiandicap{2-9)?' 



540 DATA ■ Digitaty movimiento (p eje. H8), 

PASOoABANDONO 
550 DATA '^Qyieres jugarotra vez (S/N)?" 
560 RETURN 
1260 : 

1270 REM rutina de presentacion 

1230 GO SUB 1340 

1290 GO SUB 1450 

1300 RETURN 

1340 REM rutina inic-juego 

1345 LETpfla-1 

1360 LETjc^-" ' ;LETy^=^ 

1 3 70 LET p osi cto n = 0 : L ET mo vimi ento - 1 

1380 LET tin -0 

1390 LET c(1) = 0: LETc[2) = 0 

1410 RETURN 

1450 REM rutina pantallatitulos 
1460 BORDER 0: PAPER 0: CLS 
1470 INK 2: PRINT AT 3,12; "sh23sh1 
sh23sh1 '^ 

1480 PRINT AT 4.12:" 5h84sh3 M sh8" 
1490 PRINT AT 5,12; "st^shS shSshB" 
1500 PRINT AT 6.1 2; "132 132'^ 
1510 PRJNTATB,/; INK 5:"por Marcus 
Jeffery' 

1520 PRINT;PRINT INK3: jugaras con ^as 

ficliasMNK7:'tjlanca&";INK3 
1530 PRINT INK 3;"y e[ ordenador (por ser mas 

debil)'^ 

1540 PRINT INK 3; "jugara con las fichas *;INK 

2;"rojas " ;INK 3;"con " 
1550 PRINT INK 3; ' una ventaja de 

handicap." 

1560 LET ip=15- LET im = B: LET iw-1: GO SUB 
1990 

1565 LEThand=COOE (ag)-48 

1570 IF hand<2 OR riand>9 THEN GO TO 

1560 
1590 RETURN 

1730 REM rutina impresiontablem 
1750 PRINT AT 0,0: INK 6;" Fichascapti;radas 
por:"; 

1760 PRINT INK 7;" ' Mov." 
1770 PRINT INK 6;" Biancas= 

INK 5:c(2); 
17B0 PRINT TAB 10; INK 6;"Negras= 

■ ; INK 5;c{1); 
1790 PRINT TAB 27; INK 7; movimiento 
1810 F0Ry=15T0l STEP-1 
18Z0 PRINT AT 17-y,5; INK 2;("" + STRgy)(LEN 

STRgyTO};" "; 



1830 F0RX-1TO15 

1840 LETpp-PEEK(tablero+16*y+x) 

1850 f F pp = 1 THEN PRINT PAPER 4; fNK 

2;'O";:GOTO1880 
1860 IF pp =2 THEN PRINT PAPER 4; INK 

7;"0";:GOT01880 
1B70 PRINT PAPER 4; INK 0;" + "; 
18B0 NEXTx 
1890 PRINT INK2;' ";y 
1900 NEXTy 

1910 PRINT TAB 8; INK 2;"ABCDEFGHIJKLMN0" 
1920 PRINT INK 6;"Ultimo movimiento: 
1930 LETit^p = posicion: GO SUB 2260: PRINT 

TAB 20: INK5;xg 
1940 PRINT AT 20,20; INK SiyS: 

BEEP 1,0 
1950 RETURN 
1990 REM rutina de entrada 
2000 LETis^O 

2010 PRINT AT ip, 0;: FOR f=1 TO 62: PRINT " 

';:NEXTi 
2020 LETa^- ' " 

2030 PRINT ATip,0;INK7-m^(im); 
2060 LETiS-INKEYS:IFiS = " "THEN GO TO 
2060 

2065 IF CODE jS=13 THEN GOTO 
2120 

2070 IF CODE i^<>12 THEN 60 TO 
2090 

2080 IF is>0 THEN LETis-is-1;LETaB=aS(l TO 

LENaS-l): PRINT CHRg (8):" 

";CHRg{8);:G0 TO 2060 
2085 GO TO 2060 

2090 IF ig> = "a ' AND ig<-' THEN LET 

i^^CHRS {CODEig-32) 
2100 IFis<iwTHENLEti@=is+1:LET 

a^=ag+iS: PRINT JNK5; iS; 
2110 GO TO 2060 
2120 RETURN 

2160 REM rutina de mensajes 
2190 PRINT AT mp,0;:FOR m-1 TO 30: PRINT " 
";: NEXTm 

2200 PRINT AT mp,0; INK 2;mS{mm, TO 26); 
oS; 

2220 RETURN 

2260 REM rutina int-to-char 

2270 IF itcp-0 THEN PRINT INK 

5; '^Handicap "; RETURN 
2275 LETcS=CHRg (itcp-16*tNT (itcp/16)-h64): 

LET rS=STRS(INT(itcp/16)) 
2280 PRINT INK 5;cS;rS;:RCTURN 
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Mapade memoria del Commodore 64/Lenguaje maquina 



Datos basicos (II) 



Proseguiremos nuestro analisis del mapa de memoria del C64, con 
informacion facllitada por Commodore Business Machines 



ETIQUETA 


DIRECCION 


POSICION 


DESCRIPCION 




HEXA 


DECIMAL 




1 AQTPT 
Lf\o 1 r 1 


nni7 nnift 

UU 1 / -UU 1 0 


9^^ 94 


uiTima uireccion ae sene 








1 ^ M 1 iwf 1 U J 




nm 9-nn9i 

UU 1 7-UUZ 1 


z j-oo 


riiu puro ierit?5 itjrTipuruiyb 


1 IN L/C A 


0099 nn9^ 

UUZZ-UUZs? 


'^4 '17 


Mrea punierus UTifiaoaes 


RESHO 


0026-002A 


38-42 


Prndurtn dp muli'inlicnr romo 








1 1 U 1 U F M C 


TXTTAR 

1 A 1 1 M D 


oo9R-nn9r 

UUZD"UUZV, 


4*^ 44 


ruriTeru. iniciu icxtu en dAoIC 


VARTAR 


nn9n-nn9F 

UUZL^'UUZ L 


T-0*'HO 


ruMTeru. imciu vuriuuicb bAbic 


ARYTAR 


oo9F-nmn 

uuz r-uuou 


47-4fi 


runTcru. iniLiu luuiub bAbic 


STRFND 

O 1 [\Ul N U 


no'^i nm9 

UUO 1 -uuoz 


49 SO 


Pi I Tin ■ Tin ]r\\r^c daci/^ I -t- 1 i 

ruriT^ru. Tin tudiu^ oAbic i j , 


FRFTDP 


UUOO-UUOH' 


SI S9 
O 1 -oz 


runisru. ©XTremu inTcriur 








1 ^ s n, rvi. i o n c o n o c 
U 1 ITluLt^riiUrTn Uri lU btJi It?^ 


FRFSPr 


UUO J - UUOu 


ST S4 


P 1 1 n tci rr\ conoc iitilirin/Ho-c 
rUlllCirU bcMcb UllllUUUcb' 




UUO/ -UUJU 


SS 

O J-OO 


runrero* uireccion mQ5 oiru 








clTipit?UuU pur BAblL 


CURLIN 


0039-003A 


57-58 


Numprn MnGn orfun rasic 

1 ^ u 1 1 1 w 1 \J 1 1 1 1 ^ u \A sj u 1 ur^iJi 


Ol Dl IN 

LLy LI 1 N 


UUOD UUOV^ 


S9 AO 
oz-ou 


l\l 1 1 1^ £1 rr\ 1 1 n o ^ n n to r i ^ r d a ci ^ 

inuhi^iu iiriuu uniuriui bAbi^ 


ni DTXT 


UUO UUO L 


^1 A9 
O 1 -oz 


into ' contdn^i^ daci^ r\ 








rnisJT 

V^Vk^'IN 1 


DATI IN 

iJr\ 1 LI 1 N 


UUOI "UUHU 


AT /44 


M 1 1 1^ o^*i^ f^\\ 1^1 Imo^ i i A f A 


DATPTR 


0041 -0049 


65-66 

Uv/ UU 










DATA 


INPPTR 


0043-0044 


67-68 


Vector: rutina INPUT 


VARNAM 


0045-0046 


69-70 


N ombre actual variable basic 


VARPNT 


0047-0048 


71-72 


Puntero: datos variables en curso de 








BASIC 


FORPNT 


0049-004A 


73-74 


Punfero: variable indice de FOR/ 








NEXT 




004B-0060 


75-96 


Puntero temp/Area dates 


FACEXP 


0061 


97 


Acumulador # 1 coma flotante: 








exponente 




Hardware/Magic Mouse 



Raton magico 

El Magic Mouse, de SMC Supplies, es el primer dispositivo de 
raton creado para el Commodore 64 



Eficaz tierramrenta 

El SMC Magic Mouse es mo de 
los primeros sistemas basados 
en ratdn que se desarrofia para 
el Commodore 64. Apesarde 
no estardisenadocomoun 
autentlco paqyete WIMP 
{windows, icons, mice, 
programming: ventanas, 
rco nos , rate n es , p ro g ram acl on), 
se puede emplear eficazmente 
como una herramienta de 
desa rro I lo pa ra p rog ra mad ores. 
El raton se enchufa en la puerta 
para palanca de mando del 
Commodore 64 y los iconos en 
pantalla se seleccionan medianle 
los tres botones existentes en el 
m\6n 



A la vista de la actual popularidad de que gozan los 
sistemas operativos basados en raton, quiza resolte 
dificil creer que imcialmente se produjera tanta 
controversia dentro de la industria del ordenador 
en cuanto a si el sistema basado en raton era o no 
aceptable, por no hablar de deseable. El fracaso 
comparativo del Apple Lisa, el primer micro que 
tuvo un sistema operative basado en raton, paredd 
oonfirmar la idea de que los usuarios no quenan 
estos sistemas. 

El posterior exito de! Macintosh silencio, sin em- 
bargo, las criticas, y justific6 ia fe que tenia deposi- 
tada Apple en su sistema. Las actitudes ban cam- 
biado drasticamente; los fabricantes de ordenado- 
res se estan apresurando a producir maquinas basa- 
das en raton, y muchas empresas independientes 
estan editando paquetes de raton para maquinas 
existentes, 

EI Magic Mouse (raton .nagico) de SMC Sup- 
plies es uno de los primeros de tales productos que 
ha salido para el Commodore 64. Con el raton se 
incluye el software, tanto en cassette como en 
disco, que contiene cuatro paquetes de aplicacio- 
nes. EI raton SMC es mas grande que la mayoria de 
los dispositivos similares, y con sus 125 por 66 por 
50 mm, su tamano es casi el doble que el del raton 
Apple. 

E! Magic Mouse tambien tiene tres botones de 
colores en la parte delantera, frente a ios dos que 
suele haber normalmente. Los botones se emplean 




I 



para seleocionar funciones que, por supuesto, va- 
nan a tenor de la aplicacion que se este utilizando. 
Por dentro hay una bola de plastico duro que bace 
presion contra un par de codificadores de eje. 

Aparentemente, el diseno original llevaba una 
conexion de bola met^lica estandar, pero se descu- 
brio que ia misma no era adecuada y se retraso el 
ianzamiento dei dispositivo para permitir la mcor- 
poracion de los recambios de goma. No obstante, 
el ratdn parece funcionar a la perfeccion. 

Programas de utilidades 

EI paquete Magic Mouse no es un sistema operati- 
vo como el del Apple Macintosh, sino m^s bicn una 
facilidad para el diseno de graficos, Los cuatro pro- 
gramas que se entregan con el raton son Hi-res de- 
signer (disenador en alta resolucion), Sprite desig- 
ner (disenador de sprites), Icon designer (disenador 
de iconos) y Mouse controller (controlador del 
rat6n). 

Para poder ejecutar correctamente el software, 
primero se debe cargar (LOAD) el archivo del siste- 
ma y calibrar el cursor del raton. El sistema basado 
en disco se carga automaticamente con un menu 
principal que permite sclcccionar cualquicra de los 
cuatro programas de utilidades. El sistema basado 
cn cassette es ligeramente distinto. Aqui el archivo 
del sistema forma parte del Hi-res designer y, por 
consiguiente, se ha de cargar este programa antes 
de poder utilizer cualquiera de los otros tres, Asi- 
mismo, el cursor debe posicionarse en la esquina 
inferior derecha de la pantalla antes de comenzar. 

Hi- res designer es un programa de <tcaja de colo- 
res» de aspecto muy similar a! software Koala Pad. 
Al cargarlo, la pantalla pasa a una serie de casille- 
ros, cada uno de los cuales contiene una opcion di- 
ferente, como Recuadro, Dibujar o Rellenar. Despla- 
zando el cursor del raton hasta uno de estos casille- 
ros y pulsando el boton rojo del raton ^ se selecciona 
dicha opcion. De mo do similar, para elegir ya sea 
el color de primer piano o el de fondo, uno simple- 
mcnte debe Uevar el cursor hasta las lineas de los 16 
colores disponibles y seleccionar una. Para mover 
el c<lienzow , se pulsa el boton azui. 

Los paquetes Icon y Sprite designer son muy si- 
milares y en real id ad solo se diferencian en sus apli- 
caciones finales.. Como la mayoria de los progra- 
mas de esta naturaleza, el Sprite designer presenta 
una cuadncola de 24 columnas por 21 filas. Los pi- 
xels se encienden pulsando el boton rojo cuando el 
cursor se halla sobre la posicion adecuada. El sprite 
propiamente dicho aparece en una vent an a situada 
en la esquina superior derecha de la pantalla, y 
cuando el cursor se sale de la cuadricula en la esqui- 
na inferior derecha aparecen varias opciones, Estas 
son para aplicaciones tales como ampliar el sprite, 
cambiar su color o pasar a un sprite diferente. 

El Icon designer aparece casi identico, con una 
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cuadricula en la esquina y el icono, que aparece 
arriba en una ventana. La diferencia existcnte entre 
ambos es que Icon designer se utiliza para conslruir 
gr^ficos definidos por el usuario, como, por ejem- 
plo, paisajes, que se puedeo guardar y volver a uti- 
li^ar. 

El ultimo de los programas que suministra el 
software Magic Mouse es el Mouse controller. Este 
programa no hace nada por si mismo, sino mas blen 
proporciona el software activador que permitc que 
sus programas se ejecuten desde el sistema. Aun- 
que a primera vista este es el menos util de los cua- 
tro programas, en realidad es el que posee el mayor 
potencial, puesto que esiimulara al usuario a escri- 
bir so propio software para el raton, 

Caracten'sticas del cursor 

La gran ventaja que tienen los sistemas basados en 
raton sobre los digitalizadores es la uniformidad del 
cursor, que permite el posicionamiento exacto de 
las Imeas y colores que se desea dibujar. Un digita- 
lizador se basa en una cuadricula de nudos interco- 
nectados; sin embargo, su resolucion es inferior a la 
de la pantalla. Por tanto, cuando el «l^piz» se halla 
entre dos nudos, el ordenador no puede decidir 
cual es la posicion que se pretende y tiende, enton- 
ces, a saltar entre una y otra. For supuesto, con 
frecuencia esto suele tener resuitados desastrosos 
para la imagen que uno intenta construir- Cuando 
se utiliza el raton, sin embargo, su cursor reacciona 
solo a los cambios que se producen en sus potencio- 
metros, provocados por los movimientos de la bola, 
de modo que si no se mueve el raton el cursor per- 
manecera quieto. 

No obstante, el sistema no es perfecto. Algunos 
aspectos del Hi-res designer no son tan amables 
como los de otros paquetes. Por ejemplo, la ins- 
truccion RUB solo permite borrar errores pixel a 
pixel. Ello lleva su tiempo y, si se borran pixels 
equivocados, se corre el riesgo dc generar nuevos 
errores, 

Un procedimiento mucho mas acertado consiste 
en borrar todos los anadidos al lienzo desde la ulti- 
ma vez que uno paso por la pantalla de menu. Por 
supuesto, esto significa que en el proceso se borrara 
una boena canddad de trabajo, pero al menos el 
usuario tendra la posibilidad de empezar con una 
hoja en bianco. 

El manual del Magic Mouse es extraordinaria- 
mente didactico. Cad a uno de los programas posee 
tanto una explicacion completa sobre la forma en 
que trabaja el software de desarrollo, como infor- 
macion de programacion para que usted incorpore 
el producto acabado a su propio software, incluyen- 
do programas de muesfra. Eilo revel a un buen tra- 
bajo de prevision por parte de SMC, a la que hay 
que felicitar por su exhaustivo y iitil manual. 

Si bien el Magic Mouse de SMC Supplies dista 
mucho de ser el Macintosh Emulator, la empresa 
obvianiente ha desarroUado el software inicial 
como una herramienta para el programador, simi- 
lar al raton AMX o al software DR GEM. Sin duda 
alguna, la empresa espera que los program adores 
produzcan software adicional que consiguiente- | 
mente aumente el atractivo del sistema. Puede que % 
este enfoque no produzca ventas rapidas, pero, en J 
cajTibio, es probable que asegure una larga vida al = 
Magic Mouse. 




Desarrollo artfstico 

Estasimigenes se crearon 
medianleel programa de 
apiicaciones Hl-res designer 
para usar con el SMC Magic 
Moyse. El programa ad mite las 
instrucciones us u ales de que 
disponen estaclase de 
paquetes, incluyendo LINE, 
DRAW, FILL y CIRCLE. Se 
puedert utrlizar hasta 1 6 colores 
cfiferentes para componer la 
Imagen, y hay una amplla gama 
dedistintos «^pinceles», que 
producen itneas de di^/erso 
e s peso r y text ura 



^AGIG MOUSE 

Se enchufa en fa puerta para 
palanca de mando del 
Commodore 64 



Se entrega con cuatro 
programas de apiicaciones 
tanto en disco como en 
cassette 



El manual ofrece detailed 
completos sobre c6mo 
instalarel r^t6n, como usar 
el software existente y c6mo 
incorpofar los resuitados en 
iospropios programas del 
usuario 



Parece bien construMo y 
fiable, y los usuarlos tendran 
pocos problem as para 
transfer! r a sus propios 
programas los sprites y 
graf [COS definidos por el 
usuario 



El paquete en con junto 
carece del alcance de 
muchos otros programas 
para raton, yse encontrara 
muy retrasado respecto a los 
paquetes m^s sofrstlcados 
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Alta f idelidad 



Escriblremos un programa que permitira que el ordenador actue 
como un dispositivo digital grabador y reproductor en tiempo real 



La VQZ de m\m 

Nuesifo diagrama ilustra como 
se grabana una sola nota 
utilizando el programa 
Grabacm digital Durante la 
fase degrabacion, el 
sintetizador en via un mensaje de 
notB on cuando se pulsa fa tecfa, 
y un mensaje de nota £?^ctjando 
la mismase libera, Estos 
mansajes se al mace nan en la 
memoria. junto con informaciiSn 
de temporizacion que registra 
cuan{os permdos de 2 
mitisegundos transcurren entre 
un evento y eJ siguiente. La 
informadon de temporizacion 
entre los mensajes de mm on y 
nota off^n el ejemplo se retiene 
en dos bytes, mostrando como 
se maneja e! desbordamiento del 
temporizador. Durante la 
reproduccicn. el programa 
utiiiza la mformacion de 
temporizacion para demorar la 
transmlsion de los mensajes de 
nota. de modo quese 
reproduzca la misma 
"articulacidn» 



Cuando pulsan las teclas de un teclado MIDI, o 
cuando se active un dispositivo controlador como 
un mando de control de altura, estos «eventos» se 
transmiten en forma de bytes de datos al conector 
MIDI OUT de ia parte trasera del sintetizador. 



nador una melodfa tocada en tiempo real. Luego, 
en respuesta a una instruccion, el programa repro- 
ducira la melodfa desde la MIDI ouevamente hacia 
el sintetizador. Esto, por supuesto, es una graba- 
cion digital. 



GRABAR 

MENSAJE DE NOTA ON 
_ ESTADO ALTURA VELOCIDAD 



LiJj.r.iJ.i.UXE 



pi 



^91 


^30 


^51 





MENSAJE DE NOTA OFF 
ESTADO ALTURA VELOCIDAD 



S30 



S40 



IWEMORJA 
BYTE DE TEMPORIZACION 




NOTA ON 
I 



DO OEBAJODE DO CENTRAL 

_ NOTA OFF 

BYTES DE TEM- 
n PORIZACION I 



_L 



^61 



^91 



^30 S51 ^FO 



S37 



S31 



^30 



^40 



^FF 



PRINOPIO 



FIN^ 



Gran parte de nuestro capltulo anterior lo dedica- 
mos a ofrecer detalles acerca del significado de 
estos valores de bytes, para que usted pudiera escri- 
bir programas que aceptaran datos MIDI y los pro- 
cesara. El ordenador tambien se puede utilizar 
como una fuente de datos MIDI^ que se pueden 
transmitir a un sintetizador con el objelo de activar 
sus circuitos de generacion de sonido. Un ejemplo 
obvio de este segundo uso es el de organizar el or- 
denador como un secucnciador, perm i tie ndo eotrar 
y editar en tiempo de pasos (programacion de inter- 
valos individuafes dentro de una barra) f rases musi- 
cales desde el ted ado del ordenador, EUo se hace 
antes de la transmisi6n a traves de la MIDI para 
activar el sintetizador que tocara la melodfa. De 
hecho. es una labor relativamente simple: la MIDI 
es capaz de mucho mas, iPiense en un secuenciador 
que utilice la totalidad de los 16 canales de la MIDI 
para controlar una matriz de dlferentes teclados y 
una caja de ritmos! 

Podemos combinar varies aspectos de la forma 
en que se puede utilizar un ordenador para que in- 
teractue con instrumentos MIDI, asumicndo la 
tarea relativamente directa de disenar un trozo de 
software que pueda grabar en la memoria del orde- 



A pesar de que superficiaimente cs similar a la 
grabacion anal6gica utilizando una grabadora de 
cintas y una cinta magnetica, ia grab acid n digital a 
traves de la MIDI es radicalmente difcrcnte. Cuan- 
do se elect u a una grabacion en un Trozo de cinta j 
los verdaderos sonidos musicalcs se codifican en 
patrones magneticos en la superfide de la cinta, y la 
posicion de estos patrones en la cinta determina el 
orden por el cual se ban de reproducir los sunidos 
durante la reproduccidn, asi como los intervalos de 
tiempo entre un sonido y el siguiente. Imaginemos 
que se estan grabando dos notas de est a forma, su- 
poniendo que entre estas habia un vacio de dos S€^- 
gundos. En este inter\^alo la cinta con tin nana pa- 
sando las cabezas de cinta como si no se hnbiera 
grabado nada. Cuando se reprodujera la cinta, la 
longitud de est a seccion de cinta en bianco determi- 
naria el intcrvalo de tiempo entre que eJ oyente es- 
cuchara la prim era y la segunda nota. 

En un si stem a de grabacidn digital que utilice 
MIDI, las dos notas correspondcrian a dos evento s 
de pulsaciones de teclas, cada uno de elios generan- 
do un mensaje MIDI. El problema de una graba- 
cion en tiempo real es que debemos tener aJguna 
forma de grabar el intervalo de tiempo entre que el 
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ordenador recibe el primero y el segundo mensaje 
MIDI. Utilizando la analogm de ia grabaci6n en 
cinta, la forma m^s obvia de hacerlo seria almace- 
nando los mensajes en una matriz de la memoria, 
almacenando los valores de bytes «en blancov> para 
cada unidad de tienipo en el intervalo. For tanto, 
durante la reproduccion , las dos notas se tocarian 
con el iotervalo de tiempo correcto. No es dificil 
comprender que este metodo de grabar eventos 
MIDI en tiempo real supone potencialmente un 
gran derroche de preciosa memoria. 

Una altemativa para esta analogia simplista de 
una grabadora de cinta anal6g!ca consiste en grabar 
la mformaci6n de tiempo en forma de bytes en 
lugar de en forma de vaiores de bytes <^e^ blanco». 
For ejempio, si hay 50 unidades de tiempo entre la 
primera y la segunda nota, en la matriz de la me- 
moria se entraria un byte de temporizaci6n que 
contuviera el valor 50, en vez de 50 bytes «eu 
blanco». 

Ello supone un considerable ahorro de memoriaj 
pero tambien dificulta la prediccion de ia longitud 
maxima de una melodi'a que se puede grabar en 
una cantidad de memoria dada. Las nielodias que 
implican un rapido trabajo de los dedos. por ejem- 
ploj requeriran mas bytes para grabar ia gran canti- 
dad de mensajes de notas o«/6>^transmitidos por el 
sintetizador que una pieza mas lenta de la misma 
longitud. La utilizacion del mando de altura tam- 
bien tiende a devorar enormes cantidades de me- 
moria, debido a la cantidad de mensajes MIDI que 
genera su operaci6n. 

Grabacidn digital 

En e! programa que ofrecemos necesitaremos, en 
consecuencia, alguna clase de contador para grabar 
los intervalos de tiempo entre los eventos. El conta- 
dor que utilizamos es una variable llamada CLOCKS 
(relojes). La velocidad a la cual se incrementa este 
contador establece la precision con la que sc puede 
determinar la tcmporizaci<3n y, por consiguiente, la 
fideiidad de la grabacion. Al seleccionar el interva- 
lo de tiempo optimo hemos debido hacer un com- 
promise, optando por un inter\'alo de alredcdor de 
dos milisegundos. Este no es tan pcqucno como 
para ser menor que los ticmpos de ejecucidn de las 
nitinas, pero tampoco es tan grande como para in- 
eidir negativamente en la precision de la grabacion. 
Este intervalo de tiempo se denomina la remiucion 
de la grabadora, dado que es el menor intervalo de 
tiempo que se puede grabar. El intervalo lo genera 
un temporizador de uno de los chips CIA o VIA 
del micro. 

El formato del mensaje MIDI se puede ampliar 
ligeramenle para tener en cuenta la tempo rizacibn, 
Esto se haoe colocando antes de cada mensaje 
MIDI un unico byte que representa la cantidad de 
intervalos de tiempo que ban transcurrido desde el 
liltimo mensaje. Este unico byte puede registrar 
hasta 239 unidades de tiempo y, por tanto, puede 
tener vaJores de entre ^0 y ^EF, 

Si pasan 240 intervalos sin que se reciba uo men- 
saje, se graba un mensaje de desbordamiento, Este 
mensaje es el byte ^FO. Por iiltimo, se ha elegido un 
mensaje de un unico byte, ^FF, para senalar el final 
de la secuencia. Los valores de byte de SF1 a $FE 
estan reservados para sus propios punteros de pro- 
srama. 



Laopr:: 
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seiecc :- : 
arabs^i :. 
aMfC 





Programa <<fiiitoi6n digital^ 



Cargador tte fiAsic \ 




10 FORI =49l£2T0it9&dl 

20 REAE?XrPafiEJ,X:S=^+X:N 

30 READX: IFg=XTHEWMr 

• 40 PRIMT"EftRClflEW;$UI^A D£fcOrfTnOL 

50 EWO i ^ ■ ! 

1 1Q DATA 141 .0 j222,1^9,2i ,141 ,|},a2E,ieS 
120 DATA255,l4l.173i193i16?,0,14lL6 1 

130 DATA m.m.zM\.im.mAi M\ 

140 DATA 15.22l32.2aS.2§S.:201:0.£lO = 
■ 1 50 DATA 249.201 . mm, \ 20 1 , &t 240 \ 
160 OATA4.^01.eo. 203. 236, 72, 120.169 - 1 
1 70 DATA mM\, 0.S20, 1 69. 1 73. 1 33 . 2^7 ' 
ISO DATA 163.193.133,248,169,173,141,5 
190 DATA 192.16S.24l,14lje.l92, 160,0 
200 DATA t M, 201, aa, 8, 24(1,06, 169,2, 32 
210 DATA 69, 1 93.3Z,iJ4. 1 9l201 ,255 , 200 , 4 
220 DATA 40.7S.6 . 1 3^ , 1 4 1 .k, 1 ^, apl , 240 
230 DATA 1 73.4. 1 02.S40. 1 132 ,2461 1 92 
240 DATA 240,251, 206.4.1 32, 2f!fl,2i]63 176 
2S0 DATA 223, 32.44 jMja.1 73.0, S2a. 41 
Zm DATA 2,240.249 j04.l4l.T,S2ai 13,3 
270 DATA 32.53.103.202. 20&.233, 174:3 : 
2S0 DATA 192, 16,1 95i 169,132,^9,193,140 
290 DATA 4. 192. 162. 255. 33, 245.102,240 \ 
■30O DATA IS. 23a .4,1 j^. 173. 4. 152,201.24(1 
310 DATA 144. 6.32.21.193,^40.^. 1^2. ^73 = 
^20 DATA 0,222. 41U. 208. 6.22';.K48. 224 
330 DATA 1 0 . 243 . 1?3 . 1 .222 . 4a. 1 1 .224.0 
■340 DATA 48 . 21 3, 2p3,2 7 -1 74 , 3, 1 02 . 1 5, 1 1 
350 DATA 201,243,176.223. 201. 240. 176 
360 DATA 1 9$ ,32,50 . 1 93 172 . 1?73 . 4. 1 92.32 
3?0 DATA 21 . 193,1f10,4. i;O2.1i04.32,21 .103 
380 DATA 202,240, |1 73, 2(ie, 197, iT73,1 .220 
390DATA73,239.2Daj8.^04,104.4(J,203.4 
400 DATA 1 69.255 , 1 45 , 24 7 , 33. 1 B9 , (J,32 , 69 
410 DATA 193.76.3?,192.;173.13i22(?,41i2 
420 0ATA96.145.2^17,23d.5,192|20i.l8i ■ 
430 DATA 239. 6 . 1 9^.208.1 3, 1 04] 1 04. 1 04 [ 
440 DATA 1 69. 3.32: 69 . 1 9S . 76^ 6,11 9X 1 77 = 
4&0 DATA 247. 230. ^47,2di5. 2.230. 249. 96 \ 
460 DATA 162, 2.201, 192. 14 4. 5, 201 ,224 
470 DATA 1 76 , 1 ,20£. 142.3.192. 232.96, 1 0 
460 DATA 1 70 . 1 89 . 1 93, 1 33 . 249, 1 80,97 
430 DAT A 1 93 . 1 33, 250, 1 eifl.g . 1 7 7, 249 , 240 
600 DATA S.32.2l0i265.200^0&.246.160.0 
S10 DATA 56. 1 04.193,134^1^3,146.193.153 
&20 DATA 193.32 .3^ . 61 .32,32 , 69. 67 . 79,60 
530 DATA 63,4 4, 60i32.61 132. SO. 76.65.99 
540 DATA 44. 69. 32 .161.32 169.36. 73.84. 13 
550 DATA 0. M7 . 32 ,169.67 -79, 32 . &3. 1 3,76 
560 DATA 71.13.0,lJi7.e0]76B65.&9.fi6.65 
570 DATA67.75.;^.il3.0.?B.?5.8^.3a,7& 
580 DATA 70.32. 77 ,^e9.77i79;62. 89. 13.0 . 
590 DATA 240 ! t \ \ \ \ 
6000 ATA 52173:REM"SUJjlADE CON^flOl ' I 



Listado assemlily 

' = ICOOO [ t 

GETIM =SFFE4 \ 
; CHROUT i gFfDG ; 

JMP START: \ i 
NOBVTS ' = H1 \ 
CLOCKS *-*"-hl " ■ 



;xT I 

0KSYS49152T0 R^J^J":£ND 



FREMEW 
DATREG 
STREG 
STROPKV 

PTR 
- STAjRT 
^+ + + + RUTIWAS PREPAHA]d[ON 
LDA § ^03 " ' 
STA STREG \ 
LOA #816 I 
STA STPEG \ 
GIO LOA#*FF 



'42 
-- iDEOI 

- ^dSoo 

= m 

3 



;£NTflAR UN^ARACTER 
:SACAR UNQARACTER 

M\M. DE BWES EN MENSAJE ACTUAL 

;NUM. PERjOQCS 2M3E(3 DESDE ULTIMO 

MEWSAJE : 

iNUM.DEBVTfSLIBRES 

:REG TRAMSVEiSI0M..'RECEPC10M DEL ACJA 

:REG ESTADGfOWTROL PAFtA EL ACJA 

:PUNTERO IWElwiORlADATOS 
;PUNTEROLE?^TURA SERIES 



;1NICIAUZAR 69p0 
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r 



G22 



STA 






LDA 


# SflO ' 


STA 


#DC06 


LDA 




STA 




LDA. 




STA 


Sdcof 


m 


JSR 


CMP 


#S00 


m 




CMP 


#69 


BNE 


G22 


RTS 




CMP 


#&2 


m 




CMP 


#90 


BNE 


G20 



630 

SEi , 

LDA ■ # ^7F ■ 

STA g[K;M> 

LDA #^LOWMEM 

STA MEM 

LDA #>LOWMEM 

STA MEM + 1 

LOA # < f pens 

•STA FREMEM 

LDA #>FflBnS 
FftEMEM + 1 

LDY #aM I 
PLA : 

CAflP # 82 
PHP 

BED ROO 

POO =' 

LDA #fi02 

JSR STROUT 

P0& JSR READ 

CMP #fiFF 

Em 

PtP 

JMP C20 ; 

P07 STA CLOCKS 

CMP #SfO 

LDA CLOCKS 

0EQ P3d 

P10 JSRCHECH 

BED P10 

DEC CLOCKS 

BNE P10 

BCS P05 

P30 



tltCVACIA 



;EMP£ZARTEMPORIZADOflB 

m ■ 

;PULSAR "E^ PARASALIR 

m SALIR 

:AQUf COMrENZA PROG EN TIEMPO REAL 
;IMSTRUCCiONSALVAR GRABAR'PB 

;EXPLORAR ULTIMA RU DE TECLftS 



JSR 


READ 


PHA 




P35 




LDA 


StREG 


AND 




6EQ 


pas 


PLA 




STA 


OATREG 


BPL 


P50 


JSR 


GETNO 


P50 


DEX 


BNE 


P30 


LDX 


MOBYTS 


BPL 




ROO 




Ida 




JSR 


STROUT 


STY 


CLOCKS 


R0& 


LDX f SFF 


R10 


JSR CHECK 


BEQ 


R20 


\m 


CLOCKS 


LDA 


CLOCKS 


CMP 


#«F0 


Bcc : 


Rao 


JSR ■ 


STORE 


STY ^ 


CLOCKS 


Rao 




LDA 


STREG 


AND 


#sot 


BME 


R^Q 


CPX 




BMi : 


R10 


BPL . 


m 


R40 




LDA 


OATREG 


BMI 


RSO 


CPX 


#S00 


BMI 


RIO 


BNE 


R30 


LDX 


NOBYTS 


BPL 


R&O 


R5C 




CMP 




BCS 


ma 


CMP 


#SFO 


BCS 


ROS 


JSR 


GETNC 



^GUARDAR FlASZ=<iRABAR 

Irutinareproouccion 



;SAHR SI SE HA LLEGAOO AL f B^AL 
lAJUSTAR PI LA 
;PROCESO DE SALJDA 

;ARRASTRE= LECTURASFO 

;JMP SI NO HAY TfEMPO PARA ESPERAR 

;JMPSITOOAVI A HAY TIEMPO 
ILEERSIGUIENTE RELDJSI SFO 

;LEER BYTE SIGUIENTE WENSAJE 

;GtlARDAR BYTES OATOS 

;£SPERARREGISTROTX 



iJMPSI AUNLLENO 

;TOMAR DATOS 

;ENVIARAMIOI 

:JMP$I NO BYTEESTAOO 

;TOMA R MUM DE BYTES DE OATOS' 

;DEC. COHTADOR BYTES 

:TOMAR SIGUIEMTE BYTES DATDS 

;TOMAR BYTE RE.LOJ 

:RUTINAGRABACION 



^CLOCKS ^ 0 
JNICAWODATOS 



;COMPROBAR DATOS MIDI 



;JMPSlESP£RANDO 
JMPSIMENSAJE MID 

;TOMAR LOS DATOS ; 

;JMPSIBYTEESTADO 

;JMP SI NINGUN OATO CANAL 
;JMP SI MEMSAJE-MIO 
;R£STABLECER CONTADOR BYTES 



iPfiOCESO BYTE ESTADO 

liGNORARSISYSREALTIMI 

;JMPSI MOEST.CAMAL 
;TOMAR NUM. BYTES DATOS 




PHA 
LDA 

JSR 
STY 
PLA 



JSR 
DEK 
BEQ 
BN£ 



LDA 
EOR 
BNE 
PU 
PLA 
PLP 
BNE 
LDA 
STA 
C20 
CLI 
LDA 
JSR 
JMP 

C40 
LDA 
AND 
RTS 



STA 
INC 
BNE 
INC 
BNE 
PU 
PLA 
PLA 
LDA 
JSR 
JMP 

READ 

Ida 

POINT 

Inc 

BNE 
INC 

P20 




CLOCKS 
STORE 
CLOCKS 



STORE 



R10 

Rao 



SDOOl: 
# STQ^KY 
C40 i 



C20 

#SFF 

<MEM),Y 



#S00 

STIOLJT 

02)8 



SDCCO 
#S02 



(MEMhY 
I FREMEM * 
■ POINT 

FREMEM + 1 

POINT 



W SCO 

iSTftOOT 

.020 



(MeM),Y 



MEM * 

P20 

MEM+ 1 
RTS 



IRABARLQS DATOS 



■ :RE?TABLECER CONTADOR 
jSRABARCWtTQSMlOl:' 



;N0AFECTA4LARRASTRE 



AlUSTAR.PILA 
;COMPROlAR RIC/PB 
^yWPSf PLAYBACK 



; ESPERAR SiGUltNTE INSTRUCClON 
, :COMPBO&AR TEMPORIZADOR S 
;ELAGZ = TIEMPD NOACOTADO 

' ;ALMACEMAR DATOS EN MEMORIA 

= :CdMPR0BAR MEMORIA LIBRE 



;MENSAJEDEER|tOR 
■:RESTAURAR PROG^ftMA 
iLEERDATOSpELAMEli^ORSA 

lACTUALIZAR PUNTERO MEMORIA 



TOMARNDM.BVTESOE DATOS 
PARAESTAOOENACC^ - . 



LOX 
CMP 
BCC 
CMP 
BCS 
DEX 
N10 
INX 
RTS 

STROUT 
ASL 

TAX . 
LOA 
STA 
LDA 
STA 
LDY 
hAlO 
BED 
JSR 
INY 
BNE 

RTS 



#£02 

#sco 

N10 

#SEO 

N10 



STX NqSYTS 



^STAB.X 

PTR 

MESTAB+1,X 

PTR+1 

#S00 

LDA (PTR).Y 
MfC 

LOy #SC€ 



:;fMICA2 BYTES DATOS-: 



BYTE DATOS SI C0<^A<E0 
iSUMARIPAftAESTAOO ' 

;IMPRIM1R SERIE 



f 



MESTAB ; 

WORD 
WORD 
WORD 
WORD 

MESSO 



JABLAMENSAJES 



M^SSO 
MESS1 
MESS2 
MESSO 



,SYTE'R ^ GRABAR, P = tOCAR, E = SAUR'iOD.O 



MESS1 . B YTE i 47, ' GflABAND 0' ,SOD,(? 
MESSa BYTE 1^7,' PUYBACK', Sod- 0 
MESSO .BYTE TUERA DE MEMO RIA". SOD .0 



LOWMEM 

FRBYTS 



: LOWMEM ■ SDOOO 



ICOMIENZO DE MEMORIA OATOS 
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Lista activa 



Concluiremos nuestra serie 
dedicada a) lisp estudiando 
otras f unciones de las que sueie 
disponer el lenguaje 



Para disponer de una notacion uniforme que pueda 
tratar facilmente con identificadores, caracteres, 
numeros y listas de la misma manera, el lisp se re- 
fiere a todo mediante punteros. Estos se pueden 
simular facilmente en cualquier lenguaje, incluyen- 
do al BASIC, por ejemplo, si usted imparte la ins- 
truccion: 

POKE 100,55 : POKE 99 J 00 {ia mayoria de !os 
micros) 

?100 = 55 : ?99 - 100 (BBC Micro/Electron) 

las posiciones 100 y 99 contendran los valores 
dados. Se puede considerar que el %'alor de ia posi- 
d6n 99 es un puntero a la posicion 100. De modo, 
pues, que si dieramos la insfmcdon: 

PRINT PEEK (PEEK(99)) 

o: 

PRINT ?{?99) 

obtendriamos 55 como respuesta. Observe que en 
algunos micros las posiciones 99 y 1 00 podrian estar 
en ROM, de modo que no cambiarian. 

Por supuesto, es posible crear punteros hacia 
cuaiquier lugar de la memoria, pero si la pQsici6n se 
halla por encima de 255 sera necesario combinar 
dos bytes para obtener la escala entre 0 y 65535. 
Ahora, si suponemos que^ a su vez, el valor 55 es 
un puntero que sefiala a otra posicion, y asi sucesi- 
vamente, obtendriamos la estructura de lista indi- 
cada. 

[ — ( REFEFtENCfA AL PRINClPfO DE LA LISTA 
^ PUNTEROS 

^ENCABEZAMIENTO" DE LA LISTA «COLA» DE LA LISTA 

Lamentablemente, esta aun sirve de muy poco, 
puesto que to da via no retiene ninguna informa- 
ci6n. Eilo se consigue combinando posiciones para 
otorgarle dos punteros a cada nudo. 















r 










Ahora utilicemos esto para representar la lista; 
(A B C D E...) 

fl e C D E — 

Esto est^ muy bien para listas infinitas, pero debe- 
mos ser capaces de detenerlas. EIlo se consigue fa- 
cilmente haciendo que el puntero final aluda a la 
lista vacia (o construccion MIL), que ya hemos visto 
antes. For tanto, obtenemos la lista finita: 

(A B C D) 



O 8 C D 

Una lista que contiene una lista significa, simple- 
men te, que uno de los punteros de la izquierda se- 
nala hacia una nueva lista ^ en lugar de a un atomo, 
como en el caso anterior, De modo que la lista: 

((A B C)D E F) 
se representaria de la siguiente manera: 



fl B C 



A estas alturas ya habr^ de estar clara la forma en 
que trabajan las jfunciones CAR y CDR. CAR (el enca- 
bezamiento de su argumento) no es mas que el 
puntero de la izquierda del primer nodo de su argu- 
mento, Por el contrario, CDR (todos a excepcion del 
encabezamiento de su argumento) es simple m ante 
el puntero de la derecha del primer nudo. Asi, si 
Uamaramos a la lista completa L, obtendriamos: 

CONS((CAR L)(CDR L)) 

que da como resultado la lista original 

Podemos, entonces, ver que CONS es un metodo 
para construir listas. Convierte a sus dos argumen- 
tos en una nueva lista y devuelve como resultado 
un puntero al primer elemento de ia nueva lista. 
Mediante CONS se puede crear cuaiquier estruaura 
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de lista, si bien la cantidad de llamadas CONS puede 
resultar tediosa, de alH la funcion abrcviada LIST- 

Hemos de destacar que siempre es prefenbie 
anadir nueva informaciofi a la cabeza de la lista u£i- 
lizando CONS. Al anadida a la cola de una lista, es 
necesario crear una copia de la lista original, pero 
con el puntero final original senalando hacia el 
nuevo eiemento, 

Algunas versiones de lisp poseen una instruocion 
para esto de forma automatica (APPEND), pero esta 
no es tan eficaz como CONS, Si la veJocidad es esen- 
cial, entonces aigunas veces es posible utilizar una 
instruccion para cambiar el puntero requerido en la 
lista original, en lugar de generar una copia; pero 
con frecuencia los puristas con den an el empleo de 
esta c\ase de <^dispaTates». 

Para concluir esta serie. veamos un ejemplo 
compietamente trabajado de un problema muy co- 
nocido. El problema consiste en colocar ocho rei- 
nas en un tablero de ajedrez normal, de mode tal 
que ninguna de las remas se amenace entre si. Ob- 
viamente, ha de haber exactamente una le'ma en 
cada columna y una en cada fila. Ei problema con- 
siste en ordenar tanto las filas como las columnas 
de mode que ninguna de las reinas se intersecte a lo 
largo de alguna diagonal 

Problema de las 8 reinas 

Imagine que cada columna del tablero de ajedrez 
contiene una reina. Estas se ordenaran (del 1 al 8) 
segun sus lugares en una lista Uamada REJMAS. La 
fila de la reina (especificada por el valor de REIMAS) 
sera variable, y lo calculara el lisp. 




REINAS (01 D2 D3 D4 D5 D6 D7 DB} 



El programa comtenza con la lista REINAS vacia. En 
cada etapa se colocar a una nueva reina en la fila 1 
al comienzo de la lista. La posicion de esta reina, y 
posiblemente de otras, se corregira (funcion ALTER) 
hasta que todas las reinas se encuentren en postcio- 
nes seguras. Esta nueva lista se convertira en REI- 
NAS, y se anadiran nuevas reinas al comienzo, y asi 
sucesivamente. Esto continua hasta que la iista con- 
tenga ocho reinas ^ en cuyo momento se ias impri- 

mira mediante IMP TABLERO. La funcidn inicial, a 

la que Uamaremos RESOLVER, se puede escribir asi: 

(DEFUN RESOLVER () 
{SETQ REINAS ()) 

(LOOP(UNT1L EQ (LONGITUD (REINAS)8)) 
(SETQ REINAS (ALTER (CONS 1 REINAS)))) 
(IMP_TABLERO^ (DT DC DA D R RA RC 

RT)REINAS)) 

Aqui se puede ver que RESOLVER, sin ningun argu- 
mento, establece originalmente la lista vacia REI- 



NAS. Luego la ftmcion LOOP establece REINAS en el 
nuevo valor de una lista ALTERada de una reina eo 
la fila 1 , seguida por la lista anterior. Este bucle 
(LOOP) se ejecuta hasta (UNTIL) que la LONGITUD de 
REINAS sea equivalente a 8, Entonces se imprimira 
la lista finaL 

Aqui hemos utilizado tres nuevas funciones. 
LONGiTUD simplemente devuelve el numero de ele- 
mentos de su argumento, y se define asi: 

(DEFUN LONGITUD (L (N)) 
(SETQ N 0) 
(LOOP (WHILE L N) 

(SETQ N (ADDI N)) 

(SETQ L (CDR L)) )) 

E\ aTgumento M, dado entTC parentesls, es la foima 
que tiene el lisp Acornsofl de mostrar argumentos 
opcionaies. En este caso, N no se le pasa nunca a la 
funcidn y, por tanto, actoa simplemente como una 

variable local. La otra funcion, IMP TABLERO, 

combina los elementos de sus dos listas de argu- 
mentos para producir una salida comprensible. La 
funcion es: 

(DEFUN IMP_TABLERO (FlUS COLS) 
(COND ((NULL FILAS)T) 
(T (PRINTC (CAR FILAS)(CAR COLS)) 
(IMP— TABLERO (CDR FILAS)(CDR COLS)} ))} 

Se da por sentado que ambas listas son del raismo 
tamano, de modo que la funcion termina si la pri- 
mera condicion es verdadera (una lista vacia). De 
lo contrario, se imprime el primer elemento de 
cada lista (con un retorno del carro) y la funcion se 
Uamara a si misma para el resto de cada lista. 

La tercera funcion, ALTER, es la que hace todo el 
trabajo. Se define del siguiente modo: 

(DEFUN ALTER (REINAS) 
(COND ((EQ (CAR RE1NAS)9) 
(ALTER (CONS {ADDI (CADR REINAS)) 

(CDDR REINAS) ))) 
((SEGURAS REINAS) REtNAS) 
(T (ALTER (CONS {ADD1 (CAR REINAS)) 

(CDR REtNAS) ))))) 

ALTER funcTona comprobando en primer lugar si la 
reina colocada mas recientemente se ha salido por 
arriba del tablero (fila 9), De ser asi, se habran de 
mover una o mas de las reinas colocadas previa- 
mente. 

Recuerde que esta reina comenzaba en la fila 1 y 
que se habra comprobado en todas las otras filas 
(mediante la tercera condicidn de ALTER), de modo 
que sera im posible colocarla con el tablero en la 
situacidn actual For consiguiente, ALTER se llama a 
SI misma con el resto de la lista REINAS {todo menos 
la reina actual), 

Al hacer esto, tambien incrementa la fila de la 
ijltima reina, Esto se denomina retroceso (back- 
tracking), y es bast ante comun en los algoritmos 
para ordenador de este tipo. Si la segunda condi- 
ci6n resulta TRUE (verdadera), entonces todas las 
reinas situadas en el tablero actual estaran SEGU- 
RAS y se devolver^ la lista. De lo contra no, se in- 
crement ar a la posicion de la reina colocada en ulti- 
ma instancia y se volvera a hacer otro mtento. 

La unica funcion aun sin definii es SEGURAS, que 
ha de comprobar que todas las reinas del tablero 
actual esten seguras. Dado que la posicion en la 
lista REINAS define la columna y que no hay dos 
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reinas que tengan la misma posicion en la lista, no 
existe necesidad alguna de comprobar columnas 
que se intersecten. Esto nos deja con la tarea de 
comprobar s61o las filas y las diagonales. Si supone- 
mos que tenemos una funcion NOJAQUE que de- 
vuelve TRUE (verdadero) si ninguna reina tienc en 
«jaque» a ninguna de las reinas precedentes, enton- 
ces SEGURAS se puede definir asi: 

{DEFUN SEGURAS (REINAS) 
(COND ((NULL RE1NAS}T) 
(T {AND (NOJAQUE (CAR REINAS) 

(CDR REINAS) 1) 
(SEGURAS (CDR REINAS)) )))) 

Tal vez resulte mas facil comprenderlo definiendo 
la palabra SEGURAS en terminos de si misma: «La 
primera reina de la iista REINAS NO ticne en JAQUE 
a ninguna de las reinas del resto de la lista, AND (y) 
todas las reinas del resto de !a iista estan SE- 
GURAS... 

Ahora solo nos resta definir la funci6n NOJAQUE, 
que habra de devolver TRUE si a lo largo de las filas 
y de las diagonales no se produce ninguna intersec- 
d6n. Esta sera asi: 

{DEFUN NOJAQUE (NUEVA RESTO COL) 
(COND ((NULL RESTO) T) 
(T {AND (NOT (EQ NUEVA (CAR RESTO))) 
(NOT (EQ COL 

(ABS (DIFFERENCE NUEVA (CAR RESTO))))) 
(NOJAQUE NUEVA (CDR REST0){ADD1 COL)) )))) 

Aqm, NUEVA es la reina colocada en ultimo lugar, y 
RESTO es la Iista de las otras reinas del table ro. Su- 
poniendo que en este haya otras reinas (NULL 
RESTO es FALSE), la funcion AND devuelve verdade- 
ro si: 



1. La fila de la reina actual no es la misma que la 
fila de ia primera reina del resto de la Iista. 

2. Las reinas no se hallan en la misma diagonal. 
Esto se comprueba asegurando que la diferencia de 
fila ABSoluta no sea la misma que la diferencia de 
COLumna, donde COL retiene la cantidad de colum- 
nas que separan a ia reina actual de la reina siguien- 
te de la Iista (inicialmente 1). En el capitulo ante- 
rior ya habiamos definido a ABS como: 

(DEFUN ABS (NUMERO) 
(COND {{MINUSP NUMERO)(M]NUS NUMERO)) 
{T NUMERO) )) 

3. 1 y 2 son verdaderos para la reina actual y la 
sigoiente reina de la Iista. Esto lo comprueba la 
funci6n Ilamandosc a si misma con todos los ele- 
mentos de RESTO menos el primcro c incrementan- 
do la diferencia de COLumna. 

Ahora ya hemos completado las definiciones nece- 
sarias y en la iiuslracion vemos como se ejecutan. 

Si usted poscc una implementacion de lisp, quiza 
le agradc probar cstas rutinas. Recuerde que se ban 
escrito utilizando lisp Acoinsoft, si bien no sera ne- 
cesario modificarias demasiado para que se ejccu- 
ten en otros sistemas. E! retroceso se puede volver 
complicado, pero usted puede seguirlo faciimente 
imprimiendo la Iista REINAS dentro de la funcion 
RESOLVER, justo antes de cada llamada a ALTER. 

El enfoque de program acid n de arriba aba jo 
para el «problema de las 8 rein as » i lustra lo facii 
que es definir programas en lisp sobre una base de 
funcion por funcion. Por ejempio, hemos utilizado 
SEGURAS en ALTER antes de escribirla. Este ejem- 
pio final tambien debe scrvir para demostrar la 
gran versatilidad que posee el lisp. 



Un problema real 
£1 problema de las 8 reinas es 
un ejempio perfecto de un 
puzzle que puede resolver 
r^pidamentemercedalas 
facllldades del lisp para 
manipulaciC^n de FIstas y 
funciones recursivas. Antes 
de examinar atentamente la 
solucion que le ofrecemos en 
estas p^ginas, tal vez qui era 
colocar 8 reinas en un tablero 
de ajedrez de mode tal que 
cada reina est^ a salve de ser 
capturada por alguna de las 
otras, Noserequiere 
conocimiento alguno de 
ajedrez, a excepcion de que 
una reina (0) puede moverse 
en linea recta (d (agonal, 
vertical u honzontalmente) a 
trav^s de cualquier nunnero de 
cuadrados, capturando 
cualquier pieza que encuentre 
en su camino 




^ji^M i^^^^-^i 

DT DC DA D R RA RC RT 
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Ojo al microdrive 



Las rutinas que controlan el f uncionamiento de los microdrives del 
Spectrum son de gran utilldad para el programador en lenguaje 
maquina 



Los accesos al microdrive se llevan a cabo bien por 
medio de los c6digos de enganche ya vistos, o bien 
llamando directamente a las rutinas ROM de la In- 
terface 1. Pero esto ultimo no es muy recomenda- 
ble, toda vez que pueden existir varias ROM de la 
Interface 1. Examinaremos, pues, los trece codigos 
de enganche dispuestos para que podamos usar el 
microdrive. 

Antes de hacer este examen vamos a revisar al- 
gunos principios del manejo de un microdrive. Una 
vez formateado un cartuchOj queda dividido en 255 
sector eSf que pueden ser consider ados como ias uni- 
dades fisicas de almacenamiento de informacion. 
Cada sector se compone de un encabezamiento 
(datos que, entre otras a^sas, incluyen el nombre 
del cartucho), un bloque de dates, que contiene el 
nombre del fichero que esta usando ese sector, al- 
gunos otros datos y un registro de 512 bytes. El 
formateo pone marcas a todos los sectores de la 
cinta que no se pueden utilizar. 

Al igual que todas las demas comunicaciorjes con 
los dispositivos de E/S del sistema del Spectrum, la 
comunicacion microdrive-Spectrum se lleva a cabo 
por medio de un canal. Para los microdrives, este 
toma la forma de un ^rea de memoria de 295 bytes. 
Asociado a un canal de microdrive existe un mapa 
de 32 bytes para microdrives, establecido por 
medio del sistema operativo para indicar a las dife- 
rentes rutinas cual de los sectores queda libre para 
su use, Este contiene una indicacion sobre los sec- 
tores no utilizables y los que ya han sido utilizados 
para el almaceoamieoto de mas informacion. 

El canai se almacena en el area de memoria Ha- 
mad a microdrive channel area (area del canal de 
microdrive). Siempre que se establece un canal, la 
memoria que esta entre el final del area del canal 
de microdrive y STKEND se desplaza hacia arriba 
dentro de la memoria para dejarle espacio. Igual* 
mente, cuando ya no se necesita el canal, se cierra y 
baja de nuevo dicha memoria. 

Los canales del microdrive son estabiecidos por 
el sistema de dos maneras: la expUcita, cuando se 
requiere un fichero por la instruccioo OPEN, y la 
impUcita, cuando ei sistema tiene que abrir un canal 
para realizar una operaci6n. Es esto lo que hace la 
instruccion SAVE del microdrive: la apertura del 
canal se dice «impKcita» dado que se sobreentiende 
que el canal debe estar abierto para ejecutar la ins- 
truccion, aun cuando oo lo empleemos directamen- 
te. Un canal abierto explicitamente ha de ser cerra- 
do manuaimente, mientras que el cierre es automa- 
tico en un canal abierto de forma implicita, 

Ofrecemos en este capitulo un grafico que mues- 
tra la estructura del canal del microdrive. Notara 
sin duda la semejanza entre los primeros bytes de 
este canal y los canales que establecemos para en- 



viar informaci6ii a la pantalla o leer datos dcsde el 
teclado. Buena parte de esta informacion no es es- 
trictamente necesaria para el programador, ya que 
generalmentc no hay que preocuparse de como sc 
accede directamente a la informacion del canal del 
microdrive. 

La direccion del mapa del microdrive esta conte- 
nida en el canal, y podemos averiguar el espacio 
disponible en un cartucho por medio del examen 
del mapa de este cartucho. De hecho es asi c6mo la 
funcion dci basic CAT proporciona informaci6n 
sobre la cantidad de espacio que queda en el cartu- 
cho. Si desea explorar ei mapa del microdrive, 
pruebe la siguiente rutina (pulse previamente 
NEW). 

10 OPEN #5;"M";1;"testprog" 

20 start=PEEK(23870)+256*PEEK{23871) 

30 FOR 1 -start TO start+31 

40 LET seclor=PEEK(l) 

50 FOR J=1 TO 8 

60 IFsector/2-INT{sector/2) THEN PRINT "0"; 

70 IF sector/2<>INT{sector/2) THEN PRINT "1"; 

80 LET sector=sector/2:LET sector- 1 NT(sector) 

90 NEXT J 
too PRINT 
110 NEXT I 
120 CLOSE #5 

Al ejecutar este program a, el 1 significa sector 
usado 0 no utiiizable y el 0 sector libre. Puede que 
le interese alterar este programa para visualizar la 
cantidad de espacio iibre en cl cartucho. 

Respecto a la seccion enorme, de 512 bytes, para 
datos dentro del dibujo sobre la estructura de los 
canales, el OS lo llena con los datos a grabar. Los 
datos se escribe n en el cartucho bien cuando el buf- 
fer esta lleno, bien cuando se ejecuta una instruc- 
ci6n CLOSE# (o su codigo de enganche equivalen- 
te). En el tiltimo caso, el buffer es escrito en el car- 
tucho quedando ese registro marcado como un 
EOF {end of file: fin de archivo). Una tercera posi- 
bilidad de escritura ia da el empleo de un codigo de 
enganche, como veremos. Bajo condiciones nor- 
males, se escribir^ en el cartucho a intervalos dc 
512 bytes. 

Analicemos ahora los codigos de enganche em- 
pleados para controlar el microdrive* 

Codigos de enganche 
del microdrive 

# Cddigo de enganche 33: enciende cl motor en 
una unidad determinada del microdrive («selecci6n 
del drive», suele decirse). Los microdrives estan 
numerados de uno a ocho. La rutina puede servir 
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tambien para desconectar los motores de todos los 
microdrives, Y aqm es importante notar que la ruti- 
na puede ejecutar un Return con las interrupciones 
desactivadas. Asi que, si usted emplea esta rutina, 
a su vuelta lo primero que habra de hacer es gene- 
rar la instruccion El. 

El empieo de la rutina es senciiio. Primero hay 
que dispaner el registro A para que retenga el nu- 
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Contiene&OOOB 
Contiene ^0008 

"M"=explicito, ^'IVf"+128=innpl!cito 

Direccibn rutina salidaROM 
Sombra 

Direccidn rutina entrada ROiVl 

Sombra 

GHLENG 

Contiene 595 decimal 
CHBYTE 

Puntero de pos. actual en el buffer 
CHREC Num, de reg. dentroarch. 
CHNAWIE 

Nombre archivo {10 caract.) 



Bit 0 encend . =escr. , apag . = lect. 
Bits del 1 aj7activosysinusar 

CHORiVE Num. drive (del 1al 8) 
CHMAP Direccion del mapa del 
micro drive asociado al canal 

Zona de trabajo, en cabezam lento 



HDFLAG Bit 0 encend. =encab. 
Numtro sector (del 0 al 255) 

No utlEizado (contiene &0E31) 



Nombre cartaclio (10 
caracteres) 

Suma de control del 
en cabezam lento 

Espaciodetrabajodedatos 

eitl encendldo^ E0F.Bit2 
encendido = no es arcli. PRINT 
Numero registro (de 0 a 255) 

NQmero de bytes en el archivo 
(maxinno - 512) 



Nombre archivo (10 caracteres) 

Suma de controf (bytes 67 a 30) 
lnicioi:ufferdedatos 



mero del drive que desea poner en marcha. Des- 
pues empleara RST#8 para Ilamar al codigo de en ■ 
ganche. Poniendo el valor 0 en el registro A se des- 
conectaran los drives. De otra forma tambien pue- 
den desconectarse: generando un error en basic. 
Los errores pueden gencrarse por medio de este 
codigo de enganche de dos man eras: tratando de 
poner en marcha un drive no conectado, o bien si 
se enciende un drive que no contenga un cartucho 
formateado. 

• Codigo de enganche 34: Esta utihsima llamada 
nos permite abrir un fichero en un cartucho. Pronto 
cstutiiaremos como estabiecerla. Pero una vez lia- 
mada, la rutina examinara en ei drive si existe un 
fichero con e! nombre que usted le ha dado. Si en- 
cuentra uno, el fichero sera abierto para lectitra. Si 
no lo cncuentra, sera abierto para escritura. Esto se 
indica con el estado del flag de Escritura/Lectura 
del canal que establece esta llamada: el bit 0 valdra 
0 para leer un fichero y 1 para escribirlo. 

Un fichero puede abrirse varias veces para lectu- 
ra, y cada vez que se abra se establecera un canal, 
incluso cuando todavia este activo el canal previa- 
mente establecido. 

Veamos lo que ocurre cuando se emplea esta lla- 
mada. Las variables de sistema que la Interface 1 
estabiece son necesarias, de modo que si usted 
duda si estan o no presentes habra de emplear el 
codigo de enganche 49 para establecerlas. El nume- 
ro del drive se almacena entonces en las direcciones 
23766 y 23767, con el b>le lo primero. Se estable- 
cen entonces las direcciones 23770 y 23771 para 
contener la longitud del nombre que usted le ponga 
al fichero, y las direcciones 23772 y 23773 contienen 
la direccion del nombre del archivo en la memoria. 
En ambos casos los valores se almacenan con el 
byte lo primero. Un iugar util para almaccnar el 
nombre del fichero tcmporalmente es el buffer de 
ia impresora. 

Antes dc emplear se esta rutina debe ejecutarse 
una instruccion EXX y guardarse en la pi I a el conte- 
nido del par de registros HL, y antes de volver ai 
BASIC estos deben ser restablecidos. Se llama enton- 
ces al codigo de enganche con RST#8 del modo 
acostumbrado, Al retorno, debe haber sido esta- 
blecido un canal en el area de canal del microdrive 
y el registro IX debe contener la direccion de inicio 
de este canal. Los posibles errores que pueden co- 
me terse en esta llamada son: 

1 . El archivo que usted desea abrir no es un archivo 
de datos. 

2. El primer sector de un archivo que se abre para 
lectura no puede ser hallado. 

3* Se ha tratado de abrir dos veces un archivo write 
(de solo escritura). 

• Codigo de enganche 35: Nos permite cerrar un 
fichero de microdrive que fue abierto con el codigo 
de enganche 34. Si ei fichero se abrio para escritu- 
ra, cualquier dato que se halle en el area de datos 
del canal todavia no enviado es cscrito en el cartu- 
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Entre los postulados de la 
robbtica y la realidad actual 
existe aun un prof undo 
abismo... Analicemos el tema 



En ningun otro campo de la inform^tica existe un 
vacio tan grande entre la realidad y la fantasia 
como el que existe en el campo de la rob6t!ca. Los 
robots que vemos en las peliculas de ciencia-ficcion 
rodadas en Hollywood caminan, hablan y traman la 
destmccion de la humanidad. Sin embargo, a esca- 
sos kilometros de «la capital del cine», en la Stan- 
ford University, los ultimos robots de investigacion 
apenas si pueden deambolar a trav6s de una habita- 
cion sin darse de bruces contra los mueblcs. 

Por supuesto, los robots desempenan un papel 
product ivo en las fabricas de autom6viles y en la 
industria en general. Pero tales sistemas^ general- 
mente para aplicar pintura o soldadura per arco, se 
limitan a repetir secuencias de operaciones prepro- 
giamadas sin ningun a vanad6n. Son tan <4ontos>> 



«Starlet» cibernetica 

Los robots practices se consideran un desarrollo 
moderno, pero Rosa Bosom [Radio-Operated 
Simulated Actress battery 0 r Stand-by Operated 
Mains), a quien vemos aqui fotografiada junto a su 
inventor, Bruce Lacey, fue construidaen 1966 para 
hacerei papel de reinade Francia en una produccion 
de Los tres mosqueteros en el Royal Court Theatre 
de Londres. Construida con reles y motores 
excedentes del gobierno, Bosa acepta instrucciones 
en forma de tonos musicales, que se convierten en 
movimiento, y tambien esta equipada con sensores 
ultrasonicos para detectar obstaculos y evitarlos. En 
su carrera de actriz, Rosa remedaba sus palabras 
con voz grabada en cinta, mientras sus labios se 
movian por control remoto. Lo m^s interesante, 
desde el punto de vista dbernetico, es que Rosa 
puede interactuar con un segundo robot llamado 
Mate. Rosa ha aparecido en varias exhibiciones, 
incluyendo la Cybernetics Serendipity en el ICA, y 
m^s recientemente gano en Londres el concurso 
Alternative Miss World (Miss Mundo altemativa) 
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que, de producirse un vacio en la cinta transporta- 
dora que les alcanza el trabajo, arrojadan pintura a 
ciegas o soldamo en el aire. 

Las razones de esta abismal disparidad entre PR 
y rendimiento son complejaSj pero pueden resu- 
mir en dos palabras: percepcion y planifkacidn. En 
primer lugar, los robots de hoy en dia no sacan nin- 
gun «sentido>> de sus sensores. En segundo lugar, 
aunque lo hicieran, no sabrian qu^ hacer. Esta es la 
razon por la cual la robotica es un campo de prue- 
bas tan idoneo para aplicar las teorias de inteligen- 
cia artificial (AI). 

La rob6tica toca todas las facetas de la AI por- 
que su objetivo es producir un artefacto que pueda 
enfrentarse con el muodo real. Por consiguiente. 



phy. A ello se debe la enorme popularidad de las 
competiciones de Micromouse. En estas competi- 
ciones, un «rat6n» t:ontrolado por ordenador ha de 
navegar hasta el centro de un complejo laberinto 
dc mesa. Desde hace ya muchos anos se conocen 
metodos para hacerlo, al menos en teoria. En [a 
practica, sin embargo, las paredes nunca son total- 
menie rectas, quedan manchas resbaladizas alK 
donde derramaron aceite los contendientes anterio- 
res, etc. En tales circunstancias, la robustez y la 
adaptabilidad importan mas que la elegancia algo- 
ritmica. 

En la mayoria de los otros campos dc la AI, los 
programadores pueden refugiarse en «microcos- 
mos» creados por ellos mismos, como sucede en el 
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un robot ha dc extraer algun significado de su en- 

torao. 

No es demasiado dificit dotar a un ordenador de 
toda una variedad de dispositivos de entrada (ca- 
maras de television, sensores de calor, explorado- 
res ultrasonicos, teclados de presion, etc.) que pue- 
dan darle acceso a una informacion que ios seres 
humanos no podemos obtencr directamente, como 
la luz infrarroja o la uitravioleta, Pero a menos que 
e! robot habite en un entomo severamente contro- 
lado, no comprendera el significado de sus senso- 
res. La percepcion humana, como hemos visto en 
el capitulo sobre la vision por ordenadoij es un pro- 
ceso permanente de modelacidn psicologica que se 
basa en lo que esta succdiendo en el mundo real- 

Una cosa es idear un algoritmo eficaz para hallar 
una ruta a traves de un laberinto retenido en la me- 
moria de un ordenador y visualizado en una panta- 
lla, y otra cosa muy distinta utilizar ese algoritmo 
para conducir un robot a traves de un entorno ur- 
bano. trozos de setos demasiado crecidos u otros 
obstaculos insospechados a lo largo del camino. 

En el mundo real, la ley suprema es la de Mur- 



caso de un programa para jugar al ajedrez, que 
opera en un entorno abstracto. Un sistema experto 
se ocupa de hechos, no de cosas. Esto explica por 
que a quienes investigan en el campo dc la AI les 
atrae tanto el llamado mundo de bloques. 

El mundo de bloques es un entorno esquematico 
simplificado que contiene bloques de const rucci6n 
de colores de caracter infantil. No son autenticos 
bloques de const ruccion, por supuesto, sino repre- 
sentaciones formal izadas de esos bloques. Es el 
lugar predilecto de los cientificos dedicados al desa- 
rroUo de la AI, cuyos programas pueden resolver 
problemas y manipular objelos dentro de ese 
mundo sin renunciar a la comodidad de sus CPU, 

Los investigadores en robotica no cuentan con 
ningun refugio de este tipo. Los robots deben en- 
frentarse a las vicisitudes de la realidad lo mejor 
que puedan. Un robot inteligente (uno que se 
pueda desplazar por su propia iniciativa) debe ser 
capaz de construir un modelo cognoscitivo de su 
entorno. Ademas (para satisfacer decadas de litera- 
tura y cine de anticipacion) ha de responder a ins- 
trucciones habiadas. Y puesto que sus respuestas 
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iio se pueden prever, sena muy deseable que tuvie- 
ra cierto grado de capacidad de aprendizaje. Este 
es el motivo por el cual realmente no son robots 
inteligentes. Antes de que se pueda construir uno, 
se deben resolver estos problemas de AI: 

Vision por ordenador. 
o Comprcnsion del habla. 

® Resolucion de problemas en un entomo dina- 
mico. 

• Aprendizaje de la maquina. 

y esta cs la lista mmima. 

Los robots industriales modernos tienden a dise- 
narse para entornos sumamente estructurados. For 
lo general, un robot no es mas que un dispositivo 



ordenador de control (este puede ser un ordenador 
separado del que controla el brazo del robot). El 
ordenador procesa la infonnacion visual proporcio- 
nada (median te el empleo de metodos de arriba 
abajo o de abajo arriba, o tal vez de una combina- 
cion de am bos) y detect a ciertos patron es que son 
importantes en el contexto de la tarea del automata 
informatizado. Esta informacion se envia al orde- 
nador que controla el brazo, donde actual iza una 
descripcEon simbolica de su entorno ya almacenada 
alli. El robot posee ahora una imagen de los obje- 
tos y las herramientas con las que esta trabajando, 
c instrucciones sobre lo que ha de hacer. 

La gran ventaja de un robot dotado de vision, 
por limitada que esta sea, es que al automata Infor- 
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similar a un brazo bajo el control de un ordenador. 
integrado en una factoria automatizada o en un 
banco de taller. Su «mano>> puede tener atomilla- 
das herramientas y un operador humano puede 
<<ensenarle» una serie de movimientos que el robot 
puede repedr cuantas veces se precise, Puede me- 
morizar tales secuencias de acciones, pero no modi- 
ficarlas. Con frecuencia opera en un ambiente re- 
gulado tan estrechamente que no necesita en abso- 
luto capacidades perceptuales. 

Algunos robots, sin embargo, han dado un pe- 
queno paso hacia el mundo real. Son un poco 
menos dependientcs de las personas u otras maqui- 
nas que les proporcionen su trabajo. Pueden, hasta 
cierto punto, ir a buscarlo ellos mismos. 

La forma mas comun de dotar a un robot dc un 
sentido es a traves de la vista. Una camara de video 
toma imagenes (de un objeto que el robot haya de 
recoger, p. ej.) y pasa la informacion de imagen al 



matizado se le pueden proporciunar componentes 
en diversas orientaciones, y posiblemente tambicn 
componenies de formas diferentes. Esta en condi- 
ciones de reconocer el tipo de component e del que 
se este ocupando y el angulo en el cual ha Uegado, 
de modo que podra manipularlo de modo correcto. 
Un robot «ciego» por complete mtentaria coger 
cada elemento de la misma manera, probablemen- 
te con resultados desastrosos. 

Otra forma de hacer que los robots sean mas 
«sensibles» es a traves del tacto. Los ingenieros 
pueden instalar sensores de fuerza o de presion en 
el extremo de la mano del robot. Cuando estos en- 
tran en contacto con aigun objeto, la informacion 
se retransmite al ordenador controlador. Si el robot 
se topa con una pared, el sensor de fuerza volvera a 
enviarle informacion de modo que pueda modificar 
la trayectoria de su brazo para evitar que se repita 
el accidente. 



Transportando la Idea 

Un robot con capacidad de 
vision puede utiiizarse para 
reconocer y recoger cieil05 
elementos de una cinta 
transportadora. En este caso 
el automata informatizado 
necesitar^ doa ordenadores: uno 
para Interpretar ios datos 
provenientes de la camara de 
teievisidn, y otro para controiar 
el mecanismo de prension 
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Oedas dgiles 

Para manipular objetos con precision se necesita el santido del 
tacto. Si em pre que recogemos objetos, estimamos el peso 
del objeto con el fin de determinar la fuerza de agarre que se 
requiere para poder levantarlo con exito. El proceso, que se ha 
reproducido con niveles de exito variables en las aplicaciones de 
robots, esencialmente es un cicio de realimentacion en el cual 
sertsores tactlles vuelven a allmentar los datos al ordenador, que 
a su vez aprleta o afloja el agarre sobre el objeto 

La exhibicion que sc rcaliza cornunmente para 
promocionar los robots sensibles al tacto consist e 
en haccr que prime ro perforen un agujero en un 
irozo de acero f res ado y despues hacerie realizar lo 
misTTio pero con un huevo, sin romper su cascara. 

Tanto ia vision como el tacto, aunque cn cstadios 
de desarrollo primitivos en los robots actuates, dc- 
muestran la importancia de la realimentacion. Para 
que los robots sean utiles en situaciones diversas es 
esenciai proporcionarles capacidades de realimen- 
tacion. For supuesto, es muy dificil transformar in- 
form aci 6 n sobre el mundo exterior a una forma que 
el ordenador del robot pueda utilizar para guiar sus 
acciones. Uno de los muchos problemas es el de 
transformar los datos a «tiempo real» (con suficien- 
te rapidez para que el robot responda a lo que esta 
sucediendo antes de que el evento percibido haya 
terminado) , Se dice que el escaso numero de robots 
que estan equipados con dispositivos sensoriales y 
alguna capacidad para interpret ar la realimentacion 
son robots de la segunda gemracion^ 

Ya hemos visto que la comprension del habla 
continua era el mas arduo de los cuatro tipos de 
problemas del proceso del lenguaje. La principal 
dificultad estriba en que el ordenador no posee 
control alguno sobre io que se le esta diciendo. 

No obstante, se puede otorgar al robot an grado 
util de reconocimiento de voz (en con trapes icion a 
la comprension del habla). Esto significa tan solo 
que se puede entrenar al robot para que responda 
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de la forma adecuada a una pequena cantidad de 
palabras y frases. Su comprension de lo que se le 
dice es menor que la de un perro que sepa sentarse, 
tumbarse o ir a buscar algun objeto, pero en una 
factona en la cual los obreros humanos pueden 
tener sus manos ocupadas, incluso estas capacida- 
des linguisticas tan simples pueden ser de utilidad, 
Algunos de los desarrollos mas interesantes que 
se han produddo en ei campo de la robotica ban 
sido consecuencia de la exploracion espacial. Inge- 
nieros de la NASA han disenado un Mars Rover, 
un vehiculo robotico que puede rodar sobre la su- 
perficie del planeta Marte. El vehiculo dispone de 
sensores, como c^maras de television, para recoger 
informacion sobre sus inmediaciones, y la inteligen- 
cia suficicnte para hacer uso de la misma. No le es 
dable esperar senates provenientes de la Tierra 
antes de decidir lo que tiene que hacer a continua- 
cion, pues los mensajes enviados por radio pueden 
tardar hasta media bora en hacer el recorrido com- 
plcto. El Mars Rover esta planeado para el futuro, 
pero en 1976 los norteamericanos hicieron aterrizar 
en Marte dos son das Viking, Estas pudieroo anali- 
zar muestras del suelo y de la atmosfera marciana 
sin la supervision paso a paso por parte del «control 
de misionw, 

Colocar robots en el espacio para que trabajen 
en lugar de seres humanos supone un considerable 
ahorro de dinero. Segun las ultimas estimaciones 
norteamericanas, mantener a una persona en el es- 
pacio y traerla de vuelta sana y salva jcuesta alrede- 
dor de 10 000 dolares la hora! Quiza resulte onero- 
so desarrollar robots espaciales, pero a la larga 
seran m^s baratos que sus equivalentes humanos. 

Una posibilidad exotica para el futuro es la idea 
que presento por primera vez John von Neumann a 
finales de los anos cuarenta. Von Neumann, el ma- 
tematico que sento los cimientos teoricos para el 
ordenador digital electronico, hizo ademas otros 
muchos trabajos, incluyendo el desarrollo de una 
teoria de automat as capaces de reproducirse a si 
mismos. El propuso que las maquinas podian re- 
producirse siguiendo un sencillo conjunto de re- 
glas. Segdn el esquema de Von Neumann, un siste- 
ma robotico autorreproductivo necesita cuatro 
componentes. El primero es una factoria automati- 
zada que reuna la materia prima y la convierta en 
productos segun las instrucciones dadas. El segun - 
do componente es un duplicador que copie estas 
instrucciones. El tercero es un controlador que 
pase las instrucciones al duplicador para que las 
copie. El cuarto y ultimo componente es el conjun- 
to de las propias instrucciones, que le dice al siste- 
ma como construir una nueva factoria automatica 
completa a partir de los productos que haya fabri- 
cado. 

Durante casi 40 anos estos fueron apenas con- 
ceptos teoricos, hasta que los investigadores de la 
NASA propusieron un anteproyecto de ingenieria 
para un sistema que se duplicara a si mis mo en la 
Luna. Tal factoria espacial contendria un «cons- 
tructor uni versa 1» que tomaria los componentes fa- 
bricados por la unidad de produccion y construiria 
con ellos una nueva factorfa, incluyendo, por su- 
puesto, otro constructor universal Se valdria de las 
materias primas de la Luna y no requeriria servicios 
de mantenimiento desde la Tierra. Asimismo, po- 
dria proveerse a si mismo de un buen contingente 
de nuevos obreros robot. 
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Puesta a punto 

Anadiremos algunas rutinas para manipular la pila, edemas de las 
utiles Implementaciones de la recursion 



Cuando se escribe un programa de este tipo, par lo 
general se necesitan algunas mtinas de utilidad ge- 
neral. 

Entre estas se incluyen procedimientos para ac- 
tualizar d tabiero, comprobar la legalidad de los 
movimientos, elc> For ejemplOj en un programa 
para jugar al ajedrez seria muy util una rutina para 
comprobar si el rey esta o no en jaque. 

For supuesto. podriamos escribir una rutina para 
hallar movimientos que pongan en jaque al rey del 
adversario y, durante la defensa, posiciones que 
mantengan a nuestro rey a salvo de tal eventuaJi- 
dad. Sin embargo, tiene mucho mas sentido con tar 
con una rutina general que asigne un vaior TRUE o 
FALSE a "^esta el rey de COLor en jaque?". Luego 
podemos Uamar a la rutina con diferentes valores 
de COLor y dccidir despues que hacer con el resul- 
tado. 

Para nuestro programa de go vamos a adoptar un 
enfoquc similar. En lugar de tener nitioas especffi- 
cas que decidan que hacer con diversos tipos de 
grupos, implementaremos una rutina general para 
con tar los miembros de cualquier grupo determina- 
do. Entonces podremos decidir, en las rutinas de 
Uamada separadas, que sign ific ado tienen los resul- 
tados. 

El procedimiento principal para hacer esto se de- 
nomina PROCbuscar en la version para el BBC 
Micro. Se le pasan dos parametros: la posicion de 
tod as las fichas del grupo que deseemos con tar 
(P%) y el color del grupo de fichas (C%). Luego el 
procedimiento le suma 1 a CSTN%, que sc utiliza 
para totalizar la cantidad de fichas del grupo, y ob- 
serva las cuatro fichas adyacentes. Para cada una de 
estas fichas adyacentes, Ikva a cabo el mismo pro- 
cedimiento , pero solo si la ficha no se ha contado 
todavia. Por supuesto, ya dispvonemos de un proce- 
dimiento para llevar a cabo esta busqueda en cua- 
tro direccioiies desde una ficha dada. ;de mo do que 
la forma obvia de contar las fichas adyacentes con- 
siste en que el procedimiento se llame a si mismo! 
Este es un ejemplo de recursion y puede que a pri- 
me ra vista parezca complicado. Para esclarecer un 
poco las cosas, he aqui un analisis estructurado de 
la rutina de busqueda: 

BUSCAR (desde-posicidn, para-color) 
IFdesde-posicion se halla en el tablero 
AND cfesde-posicion contiene una ficha de para-color 
AND todavia no hemos contado desde-posicion 
THEN 

marcar desde-posicion, para que no volvamos a 
contaria 

sumar uno a CSTN% (nuestra variable del contador) 
BUSCAR {norte de desde-posicion, para-color} 
BUSCAR (este de desde-posicion, para-color) 
BUSCAR (sur de descfe-posicidn, para-coJor) 
BUSCAR (oeste de desde-posicion, para-color) 



ENDIF 

END BUSCAR 

Observe que las llamadas recursivas se tratan como 
cuatro sentencias separadas, y no en un bucle. para 
evitar problemas cuando la recursion es profunda. 

La estructura de pila 

Cuando la rutina se llama a sf misma, el parametro 
desde-posiddn se reemplaza por la nueva desde- 
posicion (en una de las cuatro direcciones) y la ruti- 
na prosigue. La nueva desde-posicion tambien 
puede llamar de forma rccursiva a la rutina de bus- 
queda, creando otra variable desde-posicion, y asi 
sucesivamente. En algun punto, una de las condi- 
dones IF sera falsa, de modo que la llamada en 
cuestion terminara sin que las sentencias THEN rea- 
licen una llamada recursiva. Siempre que la recur- 
sion retoma de un nivei como este, se restablece el 
valor anterior de desde-posicion. 

Se puede pensar en esta estructura de datos de 
■Kpiia» como en una pila de platos. Cuando la rutina 
es Oamada recursivamente, por arriba de la pila se 
aiiade un nuevo plato. Sin embargo, cuando acabe 
este nivel particular de la recursion, este mismo 
plato se debe quitar de la pila (restableciendose el 
mismo valor de variable). Esta estructura se deno- 
mina LIFO (Last In, First Out: ultimo en entrar, 
primero en saiir), 

Lamentablemente, aunque el basic BBC admite 
la recursion en e! pase de parametros de PROCedi- 
mientos y variables localizadas, el Commodore 64, 
Sinclair Spectrum y Amstrad CPC 464/664 carecen 
de esta facilidad. Por consiguiente, en estas rutinas 
usted encontrara las matrices llamadas SK%() o s(), 
que ''apilan" los valores necesarios. 

EUo se realiza reteniendo un puntero (PILA% o 
su equivalente) que llevan un registro de la posicion 




Contando 
cabezas 

La rutina de busqyedan que se 
Lftiliza paraevaluerel estado 
de los grupos del tatji&ro, 
Incorpora (o Simula) 
procedimientos recurs I vos 
para tmscaren las cuatro 
direcciones desde cada una de 
las fichas del grupo. La rutina 
termlna cuando seflega a una 
llcenclaoa una ficha del 
enemigo 
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superior ^ 1^ Cada vez que se coloque algo en 
la pila, se — cr^enta este punterOj y se lo reduce 
cada vez zzj^ 5c sara algo. De esta maiieraj la varia- 
ble ackciiazji ?c r^tablece al valor de la parte supe- 
rior de ^ 

L n c^ci: ^eciindario de esta rutina de busqueda 
es cue I2 rcc^fidn siempre termina en los m^rge- 
nes ici £r^r qje este examinando. Cuando busca- 
mos esc^ ziirgenes, podemos comprobar si se ha- 
llai- ez =^^gen del tablero o si contienen una 
fi<±^ ieL rcvrr contrario. Si ninguna de estas condi- 
do^ies verdadera, necesariamente ha de ser una 
Ikeaca dd grapo. For consiguiente, la segunda 
paits dc mtina cueota ia cantidad de licencias 
T^adomadas a>n el grupo, utilizando la variable 
CUBV Jfevamente, estas posiciones se han de 
maBexms haberlas contado, ya que de lo contra- 
rio se GOn^na el riesgo de contarlas dos veces. 

Al oamsi un grupo de fichas, siempre Uamare- 
QMK 2 U mtina PROCcontar, que a su vez llama a 
PROQascar. Esta inicializari las variables del con- 
mior f Impiara los marcadores tras utilizar la ruti- 
oa de liiscpieda. 

AlflMrar posiciones, observara que empleamos 
d pHipiD tablero real, para evitar las cuentas do- 
bies- No obstante, tras haber marcado el tablero, 
► de poder suprimir los marcadores antes de 
r, Nuevamente hemos utilizado una rutina 
[ (PROCIimpiar), que opera mediante AND los 
bftes dd tablero apropiados con 3, que suprime el 
■ del bit 2. Puesto que los dos bits menos 
de cada byte del tabiero contienen los 
cotajes, y que los marcadores de ficha y licencia 
I mi^dos en el tercero y el cuarto bit, la 11 a- 
I PH0Cimpiar(3) es ideal. 

^ A B C D E F G H 
0 0 0 0 0 0 1 1 
OOOOOOGH 

{ para el Spectrum tiene un aspecto dife- 
. pcxiitie en el Spectrum la instruccion AND no 
L los bits en los que no estamos intere- 
Soio se puede utilizar para dar resultados 
imfadBO ifeiso en expresiones tales como: IF X<3 
AH) Y^HSil... En consecuenciaj hemos de recu- 
inaBftcpeiacidn de resta aritmetica normal para 
Sopiar d btt 2 en la versi6n de esta rutina para el 

De&aieiida esta rutina de limpieza general, tam- 
bieo podeiDOS udlizarla para limpiar el tablero 
tr t - iz 'iT.R partida, Uamando a la rutina con para- 
r.; :: :ero. Esto se ha anadido en la linea 1400. 

Solo nos resta un procedimiento del juego antes 
de que podamos comenzar a escribir las verdaderas 
ni mi as para procesar los movimientos, Se trata del 
aSdigo que organiza el tablero al comienzo 
del juego con las adecuadas fichas de handicap. Tal 
como explicaramos en el primer capitulo de esta 
serie. ei go posee un metodo exclusivo para equili- 
hrar niveles de destreza, al permitir que el juga- 
dor mas debil (quien juega siempre con las negras) 
coloque entre dos y nueve fichas en el tablero como 
su pdmer movimiento. Estas fichas se han de colo- 
car en posiciones especificas, que se establecen en 
la mtina leer handicaps (lineas 600-750). Si usted 
ejecuto la primer a parte del programa que ofreci- 
mos anteriomientej habra observado que se le indi- 
c6 que entrara un numero de handicap al final de la 
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rutina pantalla titulos (pero entonces ese numero 

era ignorado). Anadiendo la Iinea 1580 y la rudna 
desde la linea 1630 a la 1690, ahora las fichas de 
handicap se colocaran correctamente; las senten- 
cias DATA entre las imeas 670 y 740 dan las posicio- 




Modulo dos 





BBC Micro 

270 PROCIeer_handicaps 

590 : 

6O0 DEFPROCJeerJandicaps 

610 LOCALL% 

620 DIMhncp%43 

630 RESTORE 670 

640 FORL% = OTO>t^ 
650 READ hnCftT^?L%^ 
660 MEXT 

670 DATA&44>&CC 

680 DATA:&44,^CC',&4C 

690 UkJAmM0,mM4 
700^ATA&44,^CC,^4C,&C^:&88 . 

'20 DATA Ua, ^OQMOMQA^iBh 

■EM r -s - , y\ 
DATA MAM§Mi' 

'40^-DATA &44,&CC- 

750;fNDPR0C 

...... R^Ef^t^^**^ 

140[3 PT^OCIfmpia 
1580 PROChandicap(i 

■^1630 DEF PROChanclLcap(ha^c 
;640 LOCAL L%,P%-;Q% '■' v. x. / 
' .0 Q% - 1 NT{(liand% - 2)/2Mmrj d% -iW-C 
1 66b-; FOR L%.= Q%-TOQ% +.tiand% ' 
670 P%^hncp%?li% ; tablero% 
..JO NEXT 
1690 ENDPROCf 
1700 > y"\ 
.#10 REM ■ 
\-'^4030 : 
'\4040 D£FPROCconttr{P% 
4050 c!ib7Q = 0 : cstn% = 0' 
407G PROC&uscar(P%,C%), 
4080 PR0.C!impiar{cd1qr%' 
4090 EP4DPR0C- 
4100 : \y 
4110 REM \** 
4120 : V 

4130 DEF PROCbuscar(P%,C%) \ 
4140 IF [P% AND 240) = OjOR (P% AND 15)^^1 

ENOPROC \ 
4150 IF (tablero%?P% AND color^^O tl 

4250 \ A 

41 60 [p (tablero%?P% AND C^^^^^^ t 

ENDPROC 
41 70 IF (tablero%?P% AND marcai 

ENDPROC 
4180 tablero%?P%=C%-fmarcaclof% 
4190 cstn%-cstn%+1 
4200 PR0Cbuscar(P%+dir%(1),G%) 
4210 PR0CbuBcar(P%i-dir%(2),C%) 
4220 PR0Cbuscar(P%+dir%(3),C%) 
4230 PR0Cbuscar(P%+dir%(4),C%) 
4240 ENDPROC 

4250 IF (tablero%?P% AND lfcencEa%)>0 THEN 

ENDPROC 
4260 tablero%?P%=lioencia% 
4270 clW-clibyo-fl 
4290 ENDPROC 
4300 ; 
4310 REM 
4320 : 

4330 DEF PROCIimp!ar(IVl%) 
4340 LOCAL L% 
4350 FORL%=0TO255 
4360 tablero%?L% =tabiero%?L% AND M% 
4370 NEXT 
4380 ENDPROC 
4390 ; 
4400 REM 



■k-k-k****** 



Go/Programacion 



nes correctas del tablero, conespondiendo cada 
sentencia a tin nomero de fichas de handicap entre 
dos y siete. 

En el proximo capitulo anadiremos las rutinas 
que se requieren para jugar de la manera apropia- 



da. Debido a la forma estmcturada en que se ha 
desarroliado el programa, tambien podremos mo- 
dificarlo facilmente para permitir partidas entre dos 
jugadores, con el ordenador vigilando que nadie 
haga trampa. 



CommodDre 64 



320 
590 
600 
620 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
00 
iD 

i20^ 
1630 
1650 
1660 
4670 



GOSUB 600 

REM RUTINA LEER-HANDICAPS 

HNCP=TABLER0+512 

FOR L-OT043 

READ H%:POKE HMCP+L,H% 

NEXT 

DATA 68,204 

DATA 68,204, 76 

DATA 68.204,76,196 

DATA68.204,76.196,136 

DATA 68,204,76.196.132,140 

DATA 68,204,76,196, 132, 140. 136 

DATA 68, 204 ,76 , 1 96, 1 32 , 1 40, 72,200 

DATA 68,204,76,196.132,140,72,200,136 

RETURN 

REM 

MSK% = 0:GOSUB4330 
GOSUB 1630 

REM RUTiMA HANDICAP 
Q%-JWT((HND%-2)/2*(HND%+1) + 0.5) 
FORL-Q%TO Q% + HN0%-1 
% = PEEK(HNCP+L):POKE TABLERO + P%, 
E^£GRAS% 



********* 




EN 



p%anO 



Jo^t) REEVl-rfUTINA CONTADOR 
X05B.. CkjB%=0:CSTN%^0 
\4070/^P%-CP%:SC%=CC%:GOSUB4130 
4fi86 IV1SK%=COLOR%:GOSUB4330 
..-4690 RETURN 0 THEN RETURN 

4095 IF(PEEK(TABLERO + SP%) AND COLO 

4250 

4096 JF {PEEK{TABLERO + SP%) AND 

RETURN 

4097 (F{PEEK(TABLERO + SP%' 

THEN RETURN 

4100 : 

4110 REIVf ********* 
4120 : \ y 

4130 REM RUTINA ^USQUE-DA 
4140 IF (SP% AND 24bK0 OR (SI 
4180 POKE TABLERO - SP^^^.SC'vb - MARCADOR% 
4190 CSTN = CSTN% 

4195 SK%(PILA%) = SP% : PI LA% = RLA% Vv 
4200 SP%-SK%(PfLA%'1)+DJR=M1):G0SI 

4130 ' ' ^ 

4210 SP%=SK%{PILA%-1)+0IR%{2 

4130 

4220 SP% = SK%(PILA%-1)+DIR%{3):80SUbX 
4130 

4230 SP%=SK%(PILA%-1)-hDIR%{4):G0: 
4130 

4235 PI LA%- PI LA% - 1 :SP% = SK%(PILA7o) \ 
4240 RETURN ^ 
4250 JF (PEEK(TABLERO+SP%) AND LICENCIA%)>0'1 
RETURN 

4260 POKE TABLERO + SP%,LICENCIA% 
4270 CLIB% = CLIB% + 1 
4290 RETURN 
4300 : 

4310 REM **'****""**********************^ 
4320 : 

4330 REIVl RUTINA LIMPIEZA 
4350 F0RL=0T0255 

4360 POKE TABLERO + UP£EK(TAeLERO + L)AND 

MSK% 
4370 NEXT 
4330 RETURN 
4390 : 
4400 REM 



Amstrad CFC 464/664 

270 GOSUB 600:REM leer handicaps 

590 ; 

600 REM futina leer handicaps 

620 hncp=tablero + &200 

630 RESTORE 670 

640 FORI%=0 TO43' 

650 READh%:POKE(hncp + [%),h% 

660 NEXT 1% 

670 DATA&44,to 

680 DATAM4,to.&4c 

690 DATA&44,&cc,&4c,&c4 

700 DATA&44,&CC,&4c,&c4,&88 

710 DATA&44,&cc,&4c,&c4,&84,&Sc 

720 DATA Si44,^cc,SE4c,&c4,&84.&8c,&88 

730 DATA mMcMcM4,mMcM^.m 

740 DATA &44,&cc,Mc,&c4,&84,&8c,&48,&c8,&88 

750 RETURN 

760 : 

770 Rem ***" **********" r. jtwMit^ ft****±** 

1400 mascara%=0:GOSUB4330:REM mtfna Ifmpieza 

1580 GOSUB 1630:REM futma handicap 

1620 : . . 

1630 REM rutinahandicap 

1 650 q% - 1 N J{(hand%^ 2)/2 '(iiar\d% ^ 1 ) +0.5) 

1660 F0RJ.% = Q%Taq%-J>ahd%-1 



-pE£K(njTC 



J%J:PME(ta5lero^p%), 



1670 L^rp% 

xNE:"^" 

<69o aeruR 

17Qp^ \ 
\ 17tB^R£M^\ ^> 

>^o3oy V ^ 
40^ RHH ctijffecomsaor 
dib^^O:esJq%=0 
C40eO;^c%[T)^0:cloc%(2)^0 

spei7<ip%:sc'^.> -^CC%:..G^SUB 
^t&squeda 
[J :::: mascara%' = cq[0}% : &0S UB^-^30 
•limpjar 

etOrn 

11t 

30 REfii TQtina de busqueda 
41#i IF {sp%AND 240) -0 OR.(Sp%APiPl^)=a;i 

^\ REtURN . X 
150 IF (PEEKttablero Wp%)AW0'cokr%f=\THE 

\/' 4250- \ > \ y\ ?\ X 

,41 to IF [P^EK(ta!)^4ro + sp^)AN[|^q) ==5J4EN 

If reEI®bieF€r+^p°^)AND 
RETURN/ 

"4180 .p£)KE(tatffero +'>cfte},ksij^+ mar& 
4T9{5 csm%=cstn%4 T. ^ 
: 4195 s(p]la%)-3p%:pi]a^-pilat'^ 1 
■ -4200... sp%=s(pila% -1)+dir%.(l):GGSU^4^0 . 
sp^.-s{pila%-^ 1).?-dM?):GP§l 
sp^o^,s{pU^B-1)M%[3y0SW 

.423a'tp% =siifa%Vf+d>e^W 
4235 pi]a%=pila%^1:spV^ila^^ 
^424^ REtURN . 
^\ 42#<U= {PEMtableV^ sp%)^D^ic^ 

xftFURIt 
/4260 PdKE(taW€m+SD 
\4270'.clib°yD><clib%M^ 
W90 RpURlS 

^43qo. 

43.1t). REM) 
■M320 

4a3a^f^£iy! rutJriKlimpj^^a 
4330 FOR>/o^0T<^255 
4360 WKE ttablemH%>tPEEK(tablero-Hl%) AND 

437G NE)St/o 
4380 RETUF 
4390 : 

4400 REM *********** 




Pro gra mac ion/Go 



******* 



Sinclair Spectrym 

270 GO SUB 600 
590 : 

600 REM rutina leer- handicaps 
620 LEThncp-tal:iero + 512 
630 RESTORE 670 
640 FOR 1-0 TO 43 
650 READh:POKEhncp + i:h 
660 NEXT 1 
670 DATA 63,204 
630 DATA 63,204,76 
690 DATA 68,204,76.1% 
700 DATA 68,204,76,196,136 
710 DATA 63,204,76,196,132. 
140 

720 DATA 63,204,76,196,132, 

140,136 
730 DATA 68,204,76,196,132, 

140,72,200 
740 DATA 68,204,76,196,132, 

140,72,200,136 
750 RETURN 
760 : 

770 REM *.*****.*********** 
1400 LET mascara-O GO SUB 4330 
1530 GO SUB 1630 
1620 : 

1630 REM rutina handicap 
1650 LETq = INT{(hand-2)/2^(hand+1) 
+0.5} 

1660 F0Ri=qT0q+hand-1 
1670 LET p = PEEK {hncp + 1):P0KEtabiero+ 

p.negras 
1660 NEXTi 
1690 RETURN 
1700 : 

1710 REM * 
4030 : 

4040 HEM rutina conlador 
4050 LETciib-O:LETcstn=0 
4070 LETsp=cp:LETsc-cc: GO SUB 
4130 

4080 LET nnascara=color;GO SUB 

4330 
4090 RETURN 
4100 : 
4110 REM 
4120 : 

4130 REM rutina de&usqued a 

4140 iF INT (sp/1 6)-0 OR sp-1 6* INT (sp/16) 

=OTHEN RETURN 
41 50 EF PEEK {tablero + sp) = licencia OR PEEK 

(tablero + sp) - 0 THEN GO TO 4250 
4160 IF PEEK [tablero + sp)= coior-SCTHEN 

RETURN 

4170 IF PEEK (tabiero + sp)> color THEN 
RETURN 

4180 POKE tabiero + sp,sc + marcador 
4190 LETcstn=cstn + 1 
4195 LBTs(pila)=Tsp:LETpiia=pila + 1 
4200 LETsp-s[pila-1) Hd(1): GO SUB 
4130 

4230 LETsp=S(pila-1) + d(4):G0SU8 

4130 . 
4235 LETpiia-pila-l:LETsp = s(pila) 
4240 RETURN 

4250 IF PEEK (tablero+sp)>coiorTHEN 

RETURN 
4260 POKE tablero + sp jjcencia 
4270 LET Ciib^Cltb + 1 
4290 RETURN 
43C0 : 
4310 REM 
4320 : 

4330 REM rutina iimpieza 
4350 FOR 1=0 TO 255 

4360 IF PEEK {tabiero + 1)>nfiascara THEN POKE 
(tabiero +), PEEK (tablero + 
1) -mascara- 1: 
GO TO 4360 
4370 NEXTi 
4380 RETURN 
4390 : 
4400 REM ' 




******** 
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Ventaja territorial 

En esta situaci6n las blancas 
han conquistado la esquina 
inferior izquierda deflabJero- 
Sin embargo, este territorio 
aun no esta completamente a 
salvo. El punto cfave es el 
senafado mediante la cruz 




Ponieniloseacubierto 

Si se permitealas negras 
jugaren este punto clave, 
este movimiento se 
denominaraun/lfar/en la 
ficha blancadel borde del 
tablero Las blancas podrfan 
intenlar «correr» hasta la 
esquina, pero no pueden 
impedir una ulterior captura 
por parte de las negras 




Maniobra alternativa 

En vez de correr hasta la 
esquina, las blancas podrfan 
sacrificar la ficha situada en 
el borde del tablero y, de 
este modo, detenerla 
irrupcibn de las negras en su 
territoffojugando como se 
indica 



Caroline Clayton 
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lextosdebnordenadora traces 

Pot el momento, Oberon sK 

oraenadorcon una interface 
compatible con fiS232c 
adecuadapuedeutilEarel 
sistema 




Un ojo avizor 



Su ordenador, gracias al Omni- 
reader, podria leer estas 
mismas palabras que usted esta 
leyendo. Analicemos este 
interesante dispositivo 



En Ion ultimos afios se han hecho muchas especula- 
Clones sobre el concepto y el desarrollo de la <^ofici- 
na sin papeles». La idea proviene del hecho de que, 
puesto que se pueden transfcrir datos directamcnte 
de un ordenador a otro, en teoria no existe ninguna 
necesidad de consignar la informacion en papel. Sin 
embargo, las predicciones concemientes a esta si- 
tuaci6n ideal han resultado ser algo prematuras, A 
la mayona de nosotros el uso de lapiz y papel sigue 
resultandonos el metodo mas conveniente para 
an o far informacion. Asimismo, durante la fase de 
«transici6n» entre la oficina actual y la «oficina sin 
papeles», los datos aun se deben digitar de tbrma 
nianual en el ordenador. Para acelerar este proce- 
so, los dispositivos OCR (optical character recogni- 
tion: recOTiocimiento optico de caracteres), que 
aparecieron por primera vez en 1955, son capaces 
de leer ei texto de una pagina impresa. No obstan- 
te, solo recientemente se han convertido en pro- 
puestas practicas y fiables para su uso en la oficina. 

El Omni-reader, de Oberon International, es 
uno de los nuevos OCR basados en microprocesa- 
dor que ha aparecido para micros de gcstitSn, Aun- 
que inicialmente el unico software disponible es 
para maquinas tales como el IBM PC y sus compa- 



tibleSj la gama Apricot y el Apple Macintosh, es 
factible utilizar el dispositivo con cualquier micro 
equipado con una interface RS232C adecuada. 

El Omni -reader se com pone de una tablilla plas- 
tica para documentos con una regla horizontal que 
se desliza a lo largo de una barra vertical situada a 
la izquierda de la tablilla. El lector optico propia- 
menle dicho (un dispositivo manual que tiene dos 
botones y un LED arriba) esta montado en la regla 
y, por lo tan to, se puede mover a t raves de un do- 
cumento colocado sobre la tablilla, de forma muy 
similar a la de un plotter xy. 

Se pueden seleccionar numerosas fun clones y 
tipos de letra diferentes, que son indicadas median- 
te LEDS a lo largo de la parte superior de la tabli- 
lla. Actualmente el Omni -reader solo puede explo- 
rar cuatro tipos de letra o «fuentes>>. Estos son el 
Courier 10, Courier 12, Letter Gothic 12 y Prestige 
Elite 12, que son las cuatro fuentes mas populares 
que se utilizan en las impresoras margarita y las ma- 
quinas de escribir electrooicas. 

En el interior del lector optico hay dos fuentes de 
luz infrarroja a ambos lados de una lente que enfo- 
ca la image n sobre el sistema de circuitos detector 
de luz. El detector solo puede leer caracleres im- 
presos con tintas basadas en carbon o toner de foto- 
copiadoras (que suelen tener una base de carbon), 
io que aporia ventajas e inconvenientes. En el lado 
positivo, significa que las tintas de los bolfgrafos y 
otras tintas no basadas en carbon son «transparen- 
tes» para el detector. Por tan to, se puede leer e! 
texto apropiado aun cuando haya sido marcado coo 



un boligrafo o un sello de goma, Adcmas, tambien 
significa que la ma>'or parte dc los papeles de color 
no afectaran la operaciOTi del Omni-reader. No 
obstante, las limitaciones del sistenia se hacen evi- 
dentes por el hecho de que las marcas con lapiz se 
ban de borrar por complete) para que el texto 
se pueda leer correctamente. 

El lector optico lle\a un cable que se introduce 
en la parte posterior de la tablilla del Omni-reader. 
A lo largo de la parte trasera tambien se halian el 
conector para fuente de alimentacion electrica, un 
conector D RS232C estandar de 25 patillas y dc>s 
juegos de intemiptores DIP, uno para establecer la 
velocidad en baudios y otro que ofrece funciones 
de mo^imiento manual y espaciado de caracteres. 



Represenlac!6n de 

inslrucciones 

Estas fnstmccfones las puede 
leer el Omnt-reader, Observe 
los d OS cuadrados situados 
del ante de estas: Indlcan al 
OCR que lo que siguees una 
fnstruccfdn en lugar de texto a 
transferiral ordenador 



Regla de posici6n 

La regia permite posicionar la 
linea de texto con precisidn 
denlro de la ventana de 
exploracion. Observe la franja 
codificada en la parte Inferior 
de la ventana, que ledice al 
OCR de que I ado esta 
explorando 

Para leer texto en e! ordenador, usted primero 
debe colocar en la tablilla la eopia y despues alinear 
una ventana, m area da en la regla, sobre la Imea de 
texto a leer. Luego se pulsa el botdii del lector c3pti- 
co y la unidad se desplaza a lo largo de la regla, 
explorando el texto a traves de la ventana. Al cabo 
de aproximadamente un segundo, si el Omni- 
reader ha lei do con exito la linea^ el LHD se encen- 
dera una vez, sonar a un beep y la linea aparecer^ 
en la pant alia. Si el lector no ha lei do cor recta men - 
te la Unea, el LED parpadeara y se emitira el beep 
dos veces. El usuario puede entonces op tar par vol- 
ver a someter la Imea efectuando otra pasada a tra- 
ves die la pantalla (pulsando ei boton de abajo y 
volviendo a intentarlo), o bien decir al ordenador 
que acepte la Imea incorrectamente leida pulsando 
el boton de arriba. 

El Omni-reader compara el patron que lee con la 
lis la de caracteres que posee para ese tipo de letra 
en particular, Los caracteres fuente se retienen en 
la memoria del Omni-reader en forma de plantiUas 
de bits, y la unidad obtiene ios caracteres exploran- 
do con Stan tern en te la imagen enfocada a traves de 
la lente. La imagen se divide entonces en 50 «reba- 
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Formasdever 

Estoscuatro LED Indlcan 
funciones adicionales. Por 
ejemplo, POORCOPY permite 
la iectura de textos de 
impresion deficlente, mientras 
que NUMERIC solo tee 
umeros 



iMm^ tipo? 

Estos cuatro LED indican { 
una de las cuatro fuentes c 
que dispone el disposltlvo y se 
usan conjuntamente con la 
Instruccr6n TYPEFACE 



can cadal 

ites de ^ 





exterlores 

Estas dos fJec has sen a I an eJ 
1 1 m ite maximo del papeL Mas 
alia el OCR no puede explorar 
.de forma efica^ 



Omni-reaaery Hard ware 



OMNr-READfR 



INTERFACES 



Interface RS232C estdndar 

corrveloddadenbaudios 

regulable 



VENTAJAS ' 



El Omni-neader esvelozy 
precise y puede entrar copras 
enelofdenadorde forma 
mucho m^s r^pida que un. 
mecandgrafo/EI dtspo&itivo 
viene con software y cable de 
Gonexidn inciyidos 



DESVENTAJAS 



Diversas limltaciones de 
hardware restr ingen la lectura 
precisa a una cantidad 
limitada de tipos y tamanos de 
letra. Elcampodeaccidrtdel 
dfspositivo seveaQn m^s 
restrlngldo porel hecho de 
que ia tinta haya de tener una 
base de carPon 





E E) 


Q Q Q 


9 8 ^ 


£ r r 


V V 


4 4 


« /& 





Caracleres ffudosos 

Aunque al observador ocaslonai ietwedg p a re cg i i ie loflos los 

tipos de letra son muy ca^e c^:-= - - 53 cfave 

que dificyltan ladetec: I" ^ rv:" :-: : r3tas. 

la fundamental sor izzi a : : : 

caracteresseoa'ari? "z! ="r : ■ --^-.i: 

posee plar^tNlas ' £5?- 't': : - : 

exactamentecc^ e :^ " : ; ; : rrazadD. 

Sin embargo . : ■:-:;:raguna 

---- - " ■ " ' ' : , " ; : :"'as. ccmo 




Una ventana a Eas 
palabras 

Para que el disposttivo de 
reconocimiento optico de 
caracterestrabajecon 
eflcacia, el texto se debe 
poslcionar exactamente en 
el centro deJaventana, 
APajode laventana de 
exploracldn hay una sene de 
Ploques, bastante similares 
a fos que se observan en los 
cbdfgos de d arras 
comerciales. Al explorarlos, 
estos Incfican al Omni- 
reader Ja direccion en la que 
se est^ desplazando el 
cabezal del OCR 




Ufa visual 

El dispositivo seguiade 
forma manual a trav^s de ia 
Ihea de texto, Al final de una 
Hnease enclendeel LED 
superior SI se enclende una 
vez, la lectura ha srdo 
correcta; si se enclende dos 
veces es porque el esfuerzo 
no ha sido totalmente 
provechoso. Una luz continua 
indica que el dispositfvo no ha 
conseguldo leer la fhea entera 



nadas», tanto en direcci6n horizofital camo ver- 
tical. 

Al desplazarse a traves de la Ifnea de texto, el 
Omni-reader busca caracteres enteros debajo del 
cabezal. Solo procesara el car^cter que se halle en 
el centro de su campo de vision y que no este corta* 
do por ninguno de los limites de la superficie que se 
este explorando. {Este es el motivo por el cual el 
caracter se explora tanto horizontal como vertical- 
mente,) El caracter se envia luego para cotejarlo 
con los caracteres de la memoria del dispositivo. 

Cuando el Omni-reader encuentra una pareja, el 
software envia al ordenador el codigo ASCII equi- 
valente a traves de la interface RS232C y el caracter 
aparece en la pantalla. Debido a que ei Omni- 
reader sdio puede hallar una pareja que concuerde 
exactamente con la plantiUa retenida en la memo- 
ria, el texto ha de estar correcta m en te aline ado en 
relacion a la ventana de exploracion. Por consi- 
guiente, si las letras con trazo bajo (como las y, g, p 
y que poseen una parte de! caracter por debajo 
de la «lmea») quedan fuera de la ventana, quiza se 
las tome por otra cosa; por ejemplo, se puede iden- 
tificar una p por una o. 

Por el contrario, si la ventana se halla demasiado 



abajo, puede ser que el explorador dfripo 
partes de aniba de los caracteres de fa 
abajo e intente interpretarlos tambiM. 
surgiran problemas si el usuario intema 
que sea demasiado largo o bien 




como para caber con comodidad deiMro de la su- 
perficie de exploracion. Oberon aooosep t&OizHr 
solamente caracteres de 10 0 12 praiios (cmro o 
cinco caracteres por centimetra). Tods doodo 
quede fuera de esta gama es susc€|it3)le de senerar 
un nivel de error inaceptable. 

Manteni<Sndose dcntro de estas rescncdcnes^ el 
Omni-reader de hecho trabaja sorpreodeMesieate 
bien. El tiempo 6ptimo de exploracioa fata ima 
linea de texto A4 es de entre 0.5 y 13 §e§aiidos. 
que es aproxi madam en te lo que se mditesieaiizar 
una pasada uniforme a traves de la iBca. Asuque 
el usuario novel puede experime^ar ai|p«as iiS- 
cultades iniciaies para alinear el texio eonetlamen- 
tc, aprender a juzgar el espaciado OD Isvm soidio 
tiempo; tras media hora ya se poedes {sodnr li- 
neas sin que se produzcao errores. 

Para ayudar al usuario a leer los iqws de letra de 
menor cafidad se ban afiadido a^oais qpciofies. 
Estas se suministran al Omni-readerpasiBdoei lec- 
tor optico sobre instrucciones esoritas; de ^tas. 
cuatro est^n situadas en la parte sy ^J di o i de b ta- 
blilla y el resto estan listadas en el nrTi Cada 
instrucci6n requiere ir precedida pordkscn^ados 
sohdos para que sea leida como tai y socmo ima 
palabra mas a visualizar en la pantali- 

De las cuatro instrucciones incluida&ab^diUa 
ia que se utiliza con mayor asiduidad es ttmiACE. 
que permile que usted elija la ftieoEe &lesr, NUUE- 
HIC suprime de la fuente los caracteres ifibe&DOs y 
solo leer a numeros, acelerando, piar ta^SK d |ifCN 
ceso de lectura. Ouiza esta opdoo sea de las 
aplicaciones mas utiles del Omni-ieada; poesto 
que general me nte es a! copiar ci&as cnndD se co- 
mete n ia mayor parte de los err ores oo AAxt^li k 
La entrada directa es un buen mesodi> paca ob- 
viareste problema. Para tratar cooliS^^Raoiies 
de menoF calidad se puede eo^iiear h cpdon 
POORCOPY, que reduce la velodcfed <fc fccto del 
Omni-reader de modo que pueda obiSKraaA ma- 
gen mas clara del caracter situ ado deb^D del kctor 
optico, Resulta de especial utihdad allssrt|iQi^' 
nerados mediante sistemas de ciBts de 1 
da, en los cuales el carb6n es 

El software Omni-reader se rmnpnmp ^ mm par 
de programas act iv adores que feskfesaclMea de 
memoria del sistema, Esto sigi^ca M \ 
tiempo se pueden cargar en el 
mas de aplicaciones. En con 
dos de un trozo de pap el se ] 
mente en un programa de 
como el WordStar o, si usted e? 
puede leer sobre las colurr ^ 
nica para obtener calculof 

El precio del Omni-reace: 
un cable de con ex ion pari : 
elija. El precio tambien i„ . - t _ ce 

formacion y un aiio de _t a 
domicilio- No se trata er_ — _- zi-r<?- 

sitivo barato. No obsian:- . .: ' z 

muchas copias mecanogriri - - 
cion de un peri6dico. r. : ^ - : . - 1 
la larga sera decidid^:"r^ : - . - 
emplear un mecano gr^: 
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MIDI 



Pieza 
clasica 



Concluimos esta serie sobre la 
interface MIDI analizando otras 
tecnicas para escribir software 
para la misma 



En el capitulo anterior examinamos las diferencias 
existentes entre la grabacion analogica normal de 
una cinta y la grabacion de datos digitales MIDI. 
Vimos tambien como estas diferencias pueden ser 
aprovcchadas para reducir cl cmpleo de la memo- 
ria central por medio de mensajes temporiz adores. 

La grabacion digital y la aplicacion del playback 
o ejccucidn en diferido nos proporciona un buen 
ejempio de algunos problemas que comunmente 
encontramos cuando se programa para la MIDI. El 
programa ha de poder recibir y transmiiir datos 
MIDI por medio de la interface hardware disenada 
anteriormente; mas aun, esos datos deben ser 
transmitidos y recibidos en fiempo real. En otras 
pa! a bras, el programa dcbc ejecutarse lo suficiente- 
mente rapid o como para accpiar, procesar y alma- 
cenar un mensaje MIDI antes de la Oegada del si- 
guiente mensaje. 

Ademas, piicsto que estamos grabando en tiem- 
po real, debemos disponer de alguna fuente fiable 
de temporizacion dentro de! ordenador que sincro- 
nice las acciones del programa en los modos de gra- 
bacitSn y reproduccion, asi como grabar bytes de 
temporizacion dentro de la tabla de memoria em- 
pleada para aim ace oar la secuencia grab ad a. 

Muchas aplicaciones que exigen actualizaciones 
peri6dicas estan gestionadas con interrupciones, es 
decir, emplean senales de interrupcion IRQ para 
ejecutar regularmente secciones determinadas de 
codigo de programa. Sin embargo, para esta aplica- 
ci6n, cl intervalo entre IRQ sucesivas debe ser mas 
largo que el tiempo entre dos mensajes MIDI suce- 
sivos. Cuando el programa esta en la opcion graba- 
cion, esto puede ser catastroficOj dado que todos 
los mensajes MIDI enteros pueden perderse, con 
efeclos verdaderamente sorprer dentes al reprodu- 
cii la pieza, Por ejempio, si un mensaje de «note 
off» (sonido excluido) se perdie. a durante la fase 
de grabacion, csa nota o sonido, ma vez generada, 
estaria son an do indefinidamente. Debemos, pues, 
desactivar las interrupcion es IRQ y buscar otra fuen- 
te de temporizacion para nuestro programa. 

Temporizacion para iVilD! 

Los chips de E/S que emplean el Commodore 64 y 
el BBC Micro son parecidos y cada uno tiene un 
registro temporizador de 16 bits incorporado, que 
puede ser programado directamente para que 
cuente hacia atras, desde un determinado valor 



hasta cere. Si opera asi, se dice que el temporizador 
esta funcionando en modo de libre ejecucion. 

El programa utiliza este temporizador como 
sigue: la subrutina Check comprueba si el tempori- 
zador se ha ^<agotado» interrogando al registro flag 
IRQ del chip CIA/VIA y pone el flag Z en el regis- 
tro de estado del procesador en el modo convenien- 
te. Las secciones de grabacion y reproduccion del 
programa Uaman, ambos, a la subrutina check y 
emplean las instrucciones BNE y BEQ al volver de 
esta rutina, bifurcando segun e! estado del fiag Z. 

La rutina Check inspecciona tambien el teclado 
para ver si se ha pulsado la barra espaciadora para 
detener la secuencia. En el Commodore 64 esta ins- 
peccion se realiza, en ausencia del rastreador de te- 
clado normal gestionado por IRQ, comprobando la 
ultima fib de tecias en el teclado. La version del 
BBC Micro comprueba el teclado a traves de la lla- 
mada &79 OSBYTE. Siempre que hagamos que esta 
mtina check sea llamada al menos una vez entre dos 
finales de tiempo sucesivos, tendremos un metodo 
fiable para temporizar la recepcion y transmision 
de mensajes MIDI. 

No es necesario, ni siquiera recomendable, gra- 
bar todo mensaje enviado en MIDI, Dado que el 
programa Gmbacionlreproduccidn genera su pro- 
pia temporizacion, los mensajes de sistema en 
tiempo real son irrelevantes y deben ser ignorados 
si son recibidos. (Muchos instrumentos de teclado 
son incapaces de transmits estos codigos sin un 
secucnciador incorporado.) 

Los mensajes de sistema comunes y exclusivos 
pueden ser emitidos inadvertidamente y deben ser 
ignorados. Sin embargo, estos mensajes pueden 
componerse de cualquier ntimero de bytes y por 
ello se ha de utilizar un flag para instruir a la graba- 
dora de que ignore todos los datos hasta que no se 
reciba un byte de estado de canal. Esto lo indica el 
valor $FF en el registro X. Otros valores contenidos 
en cl registro X actuan como contadores que re pre- 
sentan el numero de bytes de datos que se han de 
recibir antes de que se complete el mensaje en 
curso del canal. 



Posibies mejoras 

Este sencillo programa es esencfalmente un ejempio 
del tipo de problemas que se encuentran cuando se 
procesan datos MIDI en tiempo real. Varias son las 
posibies mejoras que pueden hacerse al programa, 
que exigen diterentes esfuenzos de programacion. 

1 . Si se detiene !a reproduccion en una 
semisecuencia dejara generalmente sonando un 
numero indelinido de notas dado que no se han 
redbldo mensajes de «exclusi6n de notas^^ 

2. No se ha previsto la sincronizaci6n de otros 
disposftivos tales como maquinas de ritmos y 
grabadoras de cinta, 

3. No es posible editar ta secuencia. 

4. El tempo de grabacion y reproduccion esfijo. 

5. No se puede silenciar una determinada secuencia. 

6. No es posibfe grabar mientras se visualiza una 
secuencia dife rente. 

7. Si e! cable MIDI se desconecta durante el mensaje, 
ei programa quedar^ colgado. 

8. No se ha previsto el guardado y ia carga de las 
secuencias grabadas en disco o cassette. 
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770 .plO 
780 JSR check 
790 BEQ plO 
800 DEC Clocks 
810 BNE p10 
820 BGS p05 
830 .p30 
840 JSR read 
B50 PHA 
860 .p35 
870 IDA streg 
880 Am #2 
890 BEQ p35 
900 PLA 
910 STA datreg 
920 BPL p50 
930 JSR getno 
940 .p50 
950 DEX 
960 BNE p30 
970 LDX rKJbytes 
980 BPL p05 
i 990 .rOO 
10O0 LDA #1 
1010 JSR Strout 
1020 STY clocks 
1030 ,r05 
1040 LDX #a.FF 
1050 .flO 
1060 JSR check 
107O BEQ r20 
1080 INC clocks 
1090 LDA clocks 
1100 CMP #&F0 
1110 BCC r20 
1120 JSR store 
1130 STY docks 
1140 .r20 
1150 LDA streg 
1160 AND #1 
1170 BNE r40 
1180 CPX #1 
1190 BMI rIO 
12O0 8PL r20 
1210 .r40 
1220 LOA datreg 
1230 BMI r50 
1240 CPX #0 
250 BMI rIO 
1260 BNE rSO 
1270 LDX nobytes 
1280 BPL r60 
1290 j50 
1300 CMP #&F8 
1310 eCS r20 
1320 CIVIP #^F0 
1330 eCS f05 
1340 JSRgetno 
r60 

1360 PHA 
13?G LDA crocks 
1330 JSR Store 
1390 STY docks 
1400 PLA 
1410 .rSO 
1420 JSR store 
1430 DEX 
1440 BEQ rIO 
1450 BNE r20 
1460 xheck 
1470 SIX &74, 
1480 PHP 
1490 LDA #&79 
15O0 LDX #&E2 
1510 JSR osb^e 
1520 LDY #0 
1530 PLP 
1540 TXA 
1550 BPL c40 
1560 PLA 
1570 PLA 
1580 PLP 
1590 BNE c20 
1600 LDA #&FF 



Prog. «Grabaci6n/reproduccibn» 



PROYECTOMIDI EN BBC 
GRA8ACI0N DIGITAL 
YREPRODUCCION 



5 REM 

6 REM "* 

7 REM 

8 *FX14,6 

10 DIM start &2000 

20 FOR op t%-0 TO 3 STEP 3 

30 timer=&EE60 

40 osasci=&FFE3 — 

50 osrdch-&FFEO 

60 osbyte=&FFF4 

70 streg=AFEE0 

80 datreg ^str6Q + 1 

90 mem-&70 
100 ptr=&72 
110 P%=start 
120 [ 

130 OPTopt% 

140 begin 
* 150 JMPstartl 
1' 160 .nobytes BRK 

170 .docks BRK 

130 .freememBRK ^ 
v190 BRK 

200 .starti 

210 LDA #3 

220 STA streg 

230 LDA#&16 

240 STA streg 

250 .g10 ^.i 

260 LDA #&FF 

270 STA 1 owmem 

280 LDA #&40 

290 STA tirrer+IT 

300 LDA #0 : 
■ 310 STA timer+4 ■ 

320 LDA #&08 

330 STA tlmer+5 

340 .g20 

350 LDA #0 

360 JSR Strout 

370 .g21 

380 JSR osrdch 

390 CMP #ASC"E' 

400 BNE g22 

410 RTS 

420 .g22 

430 CMP#ASC 

440 BEQ g30 
.. 450 CMP #ASC"P'^ 
^460 BNE g21 
'470 .g30 

480 PHA 

490 LDA #1 owmem IVIOD256 
500 STA mem 

510 LOA #1 owmem DIV 256 

520 STA mem+1 

530 LDA #frbytes MOD 256 

540 STA freemem 

550 LDA #frbytesDIV256 

560 STA freemem + 1 ' 

570 SEI 

580 LDY #0 

590 PLA 

600 CMP #ASC"R" 
610 PHP 
620 BEQ rOO 
630 pOO 
640 LDA #2 
650 JSR Strout 
660 .,p05 
670 JSR read 
_ 680 CMP #&Ff 
690 BNE pOJ ::^ 
700 PLP 
710 JWIP c20 
720 .p07 
730 STA docks 
740 CMP #&F0 
750 LDA clocks 
760 BEQ p3Q 

















1610 STA (mem),Y 
1620 .c20 
^ 1630 CLI 
_1640 JMP g20 
1650 .c40 
1660 LDX m 
1670 LDA timer+13 
1680 AND #&40 
1690 STA timer+13 
17O0 RTS 
1710 .store 
1720 STA (mem},Y 
1730 INC freemem 
1740 BNE point 
1750 INC freemem 
1760 BNE point 
1770 PU 
1730 PLA 
1790 PU 
1800 LDA #3 
1810 JSR Strout 
1820 JMP c20 
1830 read 
1840 LDA (mem),Y 
1850 .point 
1860 INC mem 
1870 BNE p20 
1830 IMC mem+1j 
1890 .p20RTS 
1900 getno 
1910 LDX #2 
^1920 CMP #&C0 
T930 BCC nIO 
1940 CMP #&E0 
1950 BCS nIO 
1960 DEX 
1970 ,n10 
1930 STX nobytes 
1990 INX 
2000 RTS 
201 0 .strout 
2020 ASL A 
2030 TAX 

2O40 LDA messtab.X 
2050 STA ptr 
2060 LDA messtab + LX 
2070 STA ptr+1 
2080 LDY #0 
2090 .mIO 
2100 LOA (ptr),Y 
2110 JSR osasci 
2120 INY 
2130 CMP #&0D 
2140 BNE mIO 
2150 LDV #0 
2160 .m70RTl 
2170 ) 
2180 messO=P% 

2190 SP%- "R = grabar,P - repratadr.E= 
2200 P%-P%+LEN(SPA)+1 
2210 messl=PA 
2220 $P%-"grabacion" 
2230 Pya=P% + LEN{$P%)+1 
2240 mess2=P% 
2250 SP/i>="j'eproducci6n''_ 
2260 P%-P%+LEN($P%)+1 ' 
2270 mess3=P/o 
2280 SP% = " no qu eda memona " 
2290 P%=P%+LEN[SP%)-1 
2300 1 owmem =P%+3 
2310 frbytes^&EOOO+O owme^^-sa 
2320 ( 

2330 .messtab 
2340 ] 
2350 NEXT 

2360 ?P%-messO MOD 256 
2370 P/o?1 = messO DIV 256 
2380 P%?2=mess1 MOD 25c 
2390 P%?3=mess1 DIV 25c 
2400 P%?4-mess2 M0G25e 
2410 P%?5=mess2 0IV25C 
2420 P%?6-mess3 MO025c 
2430 P%?7=mess3 DtV2S 
2440 CALL begfn 
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Tortuga pequena 



Compararemos la version 
Amstrad de Dr logo con la 
produclda para el IBM PC 



Cuando se transfiri6 por primera vez el logo desde 
ordenadores centrales a microordenadores de ocho 
bits, hubieron de introducirse varias restricciones y 
simplificaciones con el fio de que se pudiera ejecu- 
tar el lenguaje coo la memoria disponible, de 64 K 
o incluso menos. Cuando comenzaron a aparecer 
micros de 16 bits, con memorias mucho mayores, 
enseguida salieron al mercado numerosas versiones 
mejoradas de logo, 

Gary Kildall (el fundador de Digital Research, 
productora del sistema operative CP/M) se sintio 
favorablemente impresiooado por el potencial del 
LOGO como lenguaje y produjo su propia versi6n 
para el IBM PC, a la que llamo Dr loco. Desde 
entonces esta version se ha puesto al alcance de 
otras varias maqumas de 16 bits. El Apricot Fie, 
por ejemplo, se suministra ya con Dr logo. 

Desde entonces Digital Research ha adaptado 
Dr LOGO para numerosas maquinas CF/M de ocho 
bits. Amstrad esta proporcionando esta version de 
Dr LOGO junto con su paquete de disco para el 
CPC 464. 

Dr LOGO, en su implementacion para el IBM PC, 
re qui ere para su ejecucion al menos 192 K de me- 
moria. El disco no se puede copiar porque est^ pro- 
tegido, pero se proporciona una copia de seguri- 
dad. Para ejecutarlo^ se debe insertar el disco y 
efectuar una inicializaci6n del sistema. La re sol u- 
cion de graficos en color es de 320 por 200 pixels, 
con una seleccion de 16 colores de fondo, junto con 
una opcidn de cuatro juegos de tres colores de lapiz 
(primer piano). 

Con una placa de graficos a color en el PC, junto 
con una pantalla tanto en color como monocroma- 
tica, Dr LOGO puede producir graficos en la pantalla 
en color y texto en la pantalla monocromatica. No 
obstante, si usted posee una sola pantalla, se pue- 
den mezclar am bos en ell a. 

En el manual se describe a Dr logo como una 
ampiiacion del logo Apple y en realidad contiene 
tod as las instrucciones de logo que contiene aquel 
Estas incluyen las instrucciones estandares para 
graficos, proceso de listas y gestion del espacio de 
trabajo, asi como primitivas para tratamiento 
de errores, <^propiedades» (una forma de asignarle 
a un objeto mas de un valor) y «paquetes» (una 
forma de empaquetar procedimientos entre sf en 
forma de grupo). Dr logo es ^sensible a los tipos 
de letra» y, por tanto, las instrucciones del loco se 
deben entrar en minusculas. 

El editor hace uso de las teclas de funci6n IBM, 
pero tambi^n reconoce los mismos codigos de con- 
trol utiiizados en el logo Apple. Si se encuentra un 
error durante la ejecucion de un program a, digitan- 



PROCEDIMIENTO 



RECUR 



DEFVARS 



ENDRECUR1 



ENDRECUR 2 



LINES (con tor- 
liga escondtda) 



LINES (con tor- 
tuga escondida) 



ASSIGM 



LISTS 



ARITH 



RECURA 



Nivel 
alcanzado 



Tiempo (af 
segundo 

mas 
proximo) 



(Som paran flo SS>gS SQO^ 



RESULTADOS 



IBM PC 

(256 K) 



512 



1307 



512 



64 



AMSTRAD 
CPC 464/664 



1B7 



263 



129 



22 



91 



COMMODORE 
64 



553 



13 



11 



APRtCOT 
F1e 



1606. 



72 



10 



20 



69 



77 



72 



Procedimientos comparativos 

Los nueve procedimientos de comparacion estan 
disefiados para probar diferentes caracteristicas 
del LOGO y para mostrar los puntos fuerles y los 
puntos d^biles de cada implementacibn. 

• RECUR mide el tamano de ta pila 

• DEFVARS mide el espacio disponible para 
definir variables y procedimientos 

• ENDRECUR1/ENDRECUR2 determinan st se ha 
implementado eficazmente la recursi6n final. Una 
implementacion ideal permitiria ia recursi6n 
infinita. Mientras queENDRECUR2 produce su 
resultado y, en consecuencia, se puede considerar 
como unaoperaci6n,ENDRECUR1 esuna 
instruccidn 

• LINES mide ia velocidad de dibujo. Se dan dos 
cifras para indicar la mejora que se obtiene en 
cuanto a velocidad al esconder la tortuga 

• ASSIGN mide la velocidad a la cual se pueden 
asignarvalores a las variables 

• LISTS mide la velocidad de los operadores para 
proceso de listas 

• ARITH mide la velociudd de las funciones 
aritm6ticas 

• RECURA mide la vel. de tas llamadas recursivas 
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do ed se llamard al editor y este aparecera ya con el 
procedimiento que genero el error, listo para edi- 
tarlo. Lamentablemente, no hay ninguna forma de 
conocer el punto exacto del error mirando a la pan- 
talla oiando uno se halla en la modalidad de edi- 
cidn. La mayoria de las otras versiones del logo 
indican esto mediante ia inclusion de una Ifnca es- 
pecial en la parte inferior de la pantalia, 

Ademds de las primitivas para proceso de listas 
habituates, Dr logo posee algunas otras nuevas: 

sort clasifica una lista por orden alfab^tico 

shuffle ordena de forma aleatoria los elementos de 

una lista 

piece permite seleccionar una parte de una lista 

Dr LOGO anade otras para depuracidn: 

watch permite ver el efecto del procedimiento ejecu- 
t^ndolo Knea a Imea 

trace imprime los nombres de las variables a medida 
que se las va llamando y definiendo 
dehug divide la pantalla en dos ventanas. La ventana 
debug se puede utilizar para visualizar informacidn 
proporcionada por "trace ' y " watch v mientras que la 
ventana program muestra la salfda del programa 

A los procedimientos se les puede anadir comenta- 
rios, que despues se pueden suprimir de todos los 
procedimientos en el espacio de trabajo. mediante 
noformat, si asf fuera necesario para proporcionar 
espacio extra para la ejecucion. 

Existen, asimismo, algunas primitivas nuevas 
para admin istraci do de procedimientos: 

follows permite definir e! orden por el cual se deben 
presentar los procedimientos en fa pantalla 
■potf visualiza nombres de procedimientos no llama- 
dos desde ningun otro procedimiento 
poref< nombre> visualiza nombres de procedimien- 
tos que llaman al procedimiento <nombre> 
pocall < nornbre> visuaJiza nombres de procedi- 
mientos llamados por el procedimiento <nombre> 

Con estas facilidades adicionales se pretende ofre- 
cer un entorno mejorado para el desarrollo de pro- 
gramas, en el cual crear programas en logo. 

Dr LOGO posee algunos puntos debiles: el editor 
no posee ninguna funcidn de busqueda ni de susti- 
tucion, no hay ningun metodo de acceder al codigo 
maquina y ninguna gestidn de archi%'os. Sin embar- 
go, el manual de 300 pdginas es muy claio y exhaus- 
tive, Posee una introduccidn al logo, asf como un 
manual de referenda que incluye una pagina sepa- 
rada dedicada a cad a primitiva. 

Evidentemente, Dr logo posee numerosas ca- 
racterfsticas extras inexistentes en las versiones mas 
pequenas del ienguaje, todo lo cual ere a un entomo 
para desarrollo de programas muy mejorado. 

Es interesante comparar Dr logo, desde el punto 
de vista de espacio y velocidad, con las versiones de 
echo bits del lenguaje. El espacio de trabajo del 
LOGO se mide por nudos. Si se le pregunta a Dr 
LOGO cu^ntos nudes libres tiene al arraocar el siste- 
ma, la alentadora respucsta sera de alrededor de 
10 000 (tipicamentCj los sistemas de ocho bits po- 
seen entre 2 000 y 3 000), De modo, pues, que hay 
muchisimo espacio de trabajo para definir procedi- 
mientos y para ejecutar procedimientos recursivos. 
No obstante, la recursidn final (caso de un procedi- 
miento recursivo en el cual la llamada recursiva se 
haila en la ultima Iinea) no esta impiementada efi- 



cazmente, y, en consecuencia, programas que en 
las maquinas Commodore o BBC se ejecutanan 
hasta el infinito, en Dr logo se quedan sin espacio 
luego de pocos cientos de llamadas recursivas. 

En cuanto a velocidad, los graficos son rdpidos, 
pero la aritmetica y ei preceso de listas se llevan a 
cabo mas ientamente que con otras versiones de 
ocho bits del lenguaje. 

La version Amstrad 

Dr LOGO se suministra con la unidad de disco Ams- 
trad y se halla en la cara opuesta del disco CP/M. El 
Dr LOGO del Amstrad esta modificado para sacar 
partido del hardware en el que se ejecuta, Los gra- 
ficos utilizan el mismo sistema de cuatro lapices que 
el Dr LOGO para el IBM PC. pero en este caso los 
colores del lapiz se establecen dando una lista de 
numeros que determinan las proporciones de rojo, 
verde y azul requeridas. La version IBM no posee 
una amplia gama de instrucciones de sonido, mien- 
tras que la version para el Amstrad posee env (en- 
volturs de voiumen), ent {envoi tura de tone) y re- 
lease, que libera canales estabiecidos en estado de 
sostenimiento en una instruccidn de sonido. 

La \'ersi6n Amstrad posee la mayeria de las faci- 
lidades del LOGO Apple, incluyendo propiedadcs y 
tratamiento de errores, pero no paquetes. 

Las primitivas de depuracidn y las facilidades ex- 
tras para administracidn de procedimientos del Dr 
LOGO del IBM PC no se han incluido, presumible- 
mente, debido a la menor capacidad de memoria 
del Amstrad. Mas grave, no obstante, es el hecho 
de que no haya ninguna funcidn define y aparente- 
mente ninguna forma de suprimir un archive sin 
salir al CP/M y luego volver otra vez. 

La capacidad de respuesta del editor es muy 
lenta y puede ser que el usuario se en cue n tie digi- 
tande por adelantade y perdiendo ei caracter suel- 
te. Por otra parte, si se encuentra un error al ejecu- 
tar un procedimiento, el editor, una vez entrado, 
posiciena el cursor sobre la palabra que genero el 
error en el procedimiento, lo que realmente es una 
caracteristica muy utU. 

La version Amstrad proporciona un acceso H- 
mitade al codigo maquina a traves de .examine y 
.deposit (PEEK V POKE), de las que carece la version 
para el IBM PC. 

Se entrega una documentacidn minima, remi- 
tiendo al usuario a un manual de formacidn y de 
referenda que aun no se ha pubiicado. Mientras 
tanto. este tendra que contentarse con el resumen 
de 25 paginas de las instrucciones. Asimismo, pare- 
ce haber algunas facilidades de Dr logo que se han 
implementado pero que no se mencionan. 

En la version para el Amstrad han desaparecido 
muchisimas de las caracteristicas mas in teres antes 
del Dr logo para el IBM PC, a pesar de lo cuaj 
continua siendo una buena implementacidn estan- 
dar de logo, con extras tales como empaqueta- 
miento y tratamiento de errores. 

Tras el encendido, se afirma que Dr logo posee 
2 105 nudos, cifra tfpica para los sistemas de ocho 
bits. Sin embargo, la recursion final no se ha imple- 
mentado eficazmente; y en cuanto a graficos. arit- 
metica y proceso de listas, este cs uno de los logo 
de echo bits mas ientos, consumiendo la raayona 
de las operaciones alrededor de tres veces mas 
tiempo que en el Commodore 64. 



Introduccion 



Iniciamos esta serie dedicada al 
FORTH examinando dos 
caracteristicas clave de este 
ienguaje: la Interactividad y la 
ampilabiiidad 



Inventado a finales de los aiios sesenta por e! astr6- 
nomo Charles Moore ^ el forth se diseno especifi- 
camente para controlar un dispositivo cientifico 
que necesitaba un posicionamiento de precision. La 
utilidad del ienguaje va, sin embargo, mucho mas 
alia de las aplicaciones de control, pero a modo de 
introduccion a sus principios operatives basicos es 
interesante observar como puede ser utilizado para 
controlar un telescopio. Seria gratificante sentarse 
en el observatorio frente a un terminal de ordena- 
dor y. por ejemplo, digitar: 

30 GRADOS ELEVACION 

y el telescopic se moviera inmediatamente y con 
toda precision a dicho punto. Tambien sena practice 
poder empaquetar y almacenar secuencias litiles de 
instrucciones para economizar !a digitacion repetiti- 
va. Por ejempk), si la posicion de estacionamiento 
fuera de 90^^ de elcvacion y 0'' de acimut (terminos 
que describen el angulo y la posicion del telesco- 
pio), usted podria describir una nueva instrucci6n, 
PARK, como: 



ACE^ 




Para IniDiarse en el fenguaje 

El Jupiter Ace fue un valiente 
intento por comercializar una 
rmaquina que como Ienguaje 
estandar of reciera forth en 
lugarde basic. 

La nn e nta b I em ente , la fa Ita de 
fadlidades de color en el Ace, 
junto con unapequena 
memoria, el desconoclniiento 
del FORTH y la f uerte 
competencladel Sinclair ^ 
Spectrum lo colocaron en una 
situaclon de evidente desventaja 
respecto a otros micros de su 
categoria. Sin embargo, una 
maquina de segunda mano junto 
con la documentacidn original 
(que era de un rivel muy 
elevado) proporcionarian una 
excels nte introduccldn al 
Ienguaje 




0 GRADOS ACIMUT 90 GRADOS ELEVACION 
En resumen, usted necesitaria: 

• Instrucciones elementales para el telescopic . 

• Formas de conibinar las instrucciones elementa- 
les en otras mas complejas: «programas» para teles- 
copic. 

Este sistema equivaldria a un Ienguaje de progra- 
macion completo para telescopios. Sin embargo, 
requerina una propiedad extra, bastante especial; 
habria de aceptar instrucciones (tanto las incorpo- 
radas como ELEVACION y otras nuevas) directamen- 
te desdc el teclado. Ademas, habria de hacer todo 
esto de la mariera mas simple posible, 

Intente imaginar lo que seria satisfacer estas exi- 
gencias eo basic, que es bastante bueno en cuanto a 
permitir que usted utilice sus instrucciones incorpo- 
radas, como PRINT y RUN, desde el teciado. Las ins- 
trucciones nuevas, sin embargo, seran un proble- 
ma. Suponiendo que ya hubiera definido ACIMUT y 
ELEVACION como rutinas GOSUB en las lineas lOCX) y 
1100, podria escribir una instruccion para PARK 
como: 

1200 REM PARK 
1205 LETGRADOS=0 
1210 GOSUB 1000 
1215 LETGRADOS-90 
1220 GOSUB 1100 
1225 RETURN 

O quiza pudiera predefinir una variable PARK me- 
diante: 

LET PARK = 1200 

y posteriormente impartir la instruccion (en algu- 
nas versiones de basic): 

GOSUB PARK 

Probable me nte lo mejor que podna hacer usted 
fuera definir la rutina GOSUB como un procedi- 
miento (como en el basic BBC) y digitar algo 
como: 

PROCPARK 

Por tanto, siempre que llame a una de sus propias 
rutinas de telescopio, debe entrar instrucciones adi- 
cionales como GOSUB o PROC asi como el nombre o 
el numero de iinea de su rutina. 

Una altemativa es escribir un interprete, un pro- 
grama que tome instrucciones para el telescopio y 
!as ejecute, algo asi como: 



100 INPUT C$ 

150 IFC$ = "PARK" 



GOSUB 1200:GOTO 100 



Pero entonces usted ya no podra utilizar las instruc- 
ciones del BASIC (como PRINT) de forma directa. 

Eslamos ahora en condiciones de apreciar que 
las dos propiedades de ouestro Ienguaje para teles- 
copio seran: 

• En primer lugar^ ha de ser intemctivo. Debe ser 
capaz de ejecutar sus instrucciones apenas usted las 
digite. Esto es como en basic, logo, apl y prolog, 
pero no como en pascal, algol, fortran y cobol, 
^ Tambien algo parecido al m6dulo de interpretadon 
1 de comandos de algunos sistemas operatives , como 
M el CP/M V el Unix. 

1 • En segundo lugar, ha de ser ampUable. El forma- 
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El telescopic y la tortuga 

El FORTH y e! logo son lenguajes muy si m Hares. 
Ambos se disefiaron originalmente para controlar 
objetos fisicos: un telescopio y una torluga, 
Ademas tienen en comLin dos conceptos operativos 
fundamentales: una rutina se llama simplemente 
entrando su nombre, y se deflnen mtinas nuevas 
utilizando rutinasya existentes. La principal 
diferencia entre fos dos lenguajes proviene de las 
distintas expectativas de los usuarios a los que 
estan dirigidos. Los usuarios de forth exigen 
veJocidad de ejecucion (de modo que el lenguaje no 
sea solo interactive y ampliabfe sino tambien 
eficaz) y para conseguirlo estan dispuestos a 
admitiralgunasincomodidacJes. El logo, porotra 
parte, esta dfrfgido b^sicamente a ser utifizado por 
nifios en edad escolar y no permite tales 



to que haya definido usted para llamar a las instruc- 
ciones debe ser identico al empleado para las ins- 
trucciones incorporadas. Luego, tras haber defini- 
do sus propias nitinas, sera como si usted estuviera 
utilizando un lenguaje ampliado, mas poderoso, y 
no el lenguaje original mas algunas rutinas nuevas. 
Esto es como en logo y los sistemas operativos, 
pero no como en ninguno del resto de los len- 
guajes. 

El concepto de ampliabilidad en realidad es aiin 
m^s importante de lo que pueda desprenderse de lo 
dicho hasta ahora. Si, por ejemplo, alguien nos 
vende un lenguaje para control de telescopios y no- 
sotros le afiadimos pequeiias ampliaciones para que 
incluya rutinas utiles para nuestro propio telesco- 
pio, habremos ampliado un «fenguaje para control 
de telescopios de prop6sito general» original , con- 
virtiendolo en un nuevo <denguaje person all zado 
para control de telescopios^. Pero para compren- 
der cabalmente ei concepto de ampliabilidad^ debe- 
namos poder empezar con un <denguaje de ordena- 
dor ampliable de proposito general» y ampliarlo 
hasta convertirlo en un « lenguaje para control de 
telescopios de proposito general» (en realidad, el 
mismo se podria ampliar a lenguajes para controlar 
robots, experimentos cientificos, cadenas de pro- 
ducci6n o cualquier dispositivo que se pueda conec- 
tar a un ordenador). Ademas, no es necesario que 
lo que se controle sea fisico. Podn'a ser un concepto 
abstracto interne del ordenador, como la tortuga 
en una pantalla de graficos tortuga, los registros en 
un sistema de archivo o, de hecho, cualquier cosa 
que usted deseara manipular por medio de un pro- 
grama. 

De los enfoques de que disponemos, el forth es 
el que mas se aproxima a un «lenguaje de or den a- 
dor ampliable de proposito general». Hemes habla- 
do de los problemas especiales (interact ividad y 
ampliabilidad) que el forth intcnta resolver, y en 
nuestro proximo capitulo comenzaremos a hablar 
de sus soluciones. 



Dialectos de forth 

Existen tres dialectos principaies de forth: fig 
{forth Interest Group) forth, forth-79 y forth-83. 
La mayoria de las implementaciooes se describen 
de acuerdo a alguna de estas tres. Ei FOfiTH-79 y el 
FORTH-83 son estandares sucesivcysy especfliian 
ios juegos minimos de instrucckinesy fufinasque 
han de estar disponibJes. Casi con todaseguridad 
las implementaciones individuales le ofreceran 
mas, pero si usted escribe un programa 
ateniendose estrictamente al fort>^-83, por 
ejempio, lo podra ejecutar en todas las 
tmplementaciones forth-83, aun cuando no tiaga 
un uso completo de todas las facilidades 
disponibles. El forth-83 es el est^ndar actual y nos 
atendremos a el. El forth-79 en Ifneas generales es 
rgual, con muy pocas incompatibifidades, Tambi§n 
posee numerosas facilidades extras, incorporadas 
al construirse la implementacidn, que sus usuarios 
tienden a considerar como esMndares. Muchas 
implementaciones del forth-79 y el forth-83 son 
versiones del figFORTH modificadas para adecuarlas 
al estandar 



concesiones. En Gonsecuencia, el logo opera con 
mucha mas lentitud. Comparemos los dos 
lenguajes en mayor prof undidad. El forth no tiene 
incorporados graficos de tortuga como estandar, , 
pero posee facilidades para manipular la pantalla 
terminal, Usted puede utilizar estas dos facilidades 
de bajo nivel para definir las palabras de tortuga 
FORWARD, RIGHT, etc., creando, portanto^ una I 
version «amplia» del forth que incfuya graficos de | 
tortuga. Consideremos estas formas alternativasde 
controlar a fa tortuga en los dos lenguajes: 

LOGO FORTH 

FORWARD 100 100 FORWARD 

A parti r de este ejemplo, podria parecer que el 
FORTH hace las cosas al reves. Pero cuando tn 
rutina en forth necesita parametros, usfcrf pilHerc 
debe calcular estos parametros y escribirtosartes 
del nombre de la rutina. Esto se podria conatea- 
como una tecnica de «libro de recetas= ~" 
reunir fos ingredientes (en cantidades 
especificadas) y luego coclnados. Ot^s 
correspondencias con el logo inci jys' ^ ^^laqj^i 
de rutinas nuevas: 

TO...Ei^D 

yestructuras de bucle: 

REPEAT 4[ .,] ^Dj ^lk^ 

scjuf como podrianios Goaim m^^m^ e 

TOOlADfWXJLADO O: 

fUGHTSO ^ 
1 

BD 

CUADfWXI too ^ -^^ CUADRADO 

OOP y DROP son «fmnipulacmnes de pila» que 
permiten que las nrtinas accedan ai parametro de 
CUADRADO (DUP la reproduce, haciendo una 
copia para ADELANTE;DROP la «abandona^>; en 
otras palabras, fa elimina de modo que no se cruce 
en el camino del siguiente calculo) 




' ■ i ":!T3S„. 

^ : "^":aciones de 
■ jCiios micros 
Entre los 
: .ri las accesibles se 



"r'.jen: forth Acornsoft 
3^Dren disponible en ROM) 
- SkyWays Mult(FORTK{con 
Tiyititareas) para ei BBC 
Micro, y Abersoft forth y 
Artie FORTH para el Stnciair 
Spectrum Ei forth es ei unico 
lenguaje de ordenador que ha 
sido difundido por sus 
usiiarios [que originalmente 
se enviaban 

impJem&ritaciones a traves de 
Clubesde Usuarios). En 
Londfes exisle un ftoreciente 
Club de Ustiarlosde forth. El 
grupo se reune a las 7 de la 
tarde el primer jueves de oada 
mes en el South Bank 
Polytechnic, Borough Road, 
London SEl. Usted puede 
asoclarse fla soscripcion 
anual esde£7) escribiendo a: 

FORTH Interest Group 

7 Wyndham Cresent 

Woodlejgh 

Reading 

RG53AY7719 

Gran Bretafia 
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Todo un serial 



El analtsis general que hemos 
llevado a cabo de las rutinas de 
la Interiace 1 exige que nos 
ocupemos ahora de los codigos 
de enganche con los que 
controla la puerta serial RS232 



Comenzaremos por dar una visi6n general de una 
interface serid, con un enchufe RS232 de 270"^ y 
nueve patillas (el dibujo ilustra la funcion de cada 
patilla). El numero de estas Uneas necesarias para 
la conexion depende de la complejidad de la aplica- 
cion, pero un enlace mlnimo puede establecerse 
con las patillas 2, 3 y 7, Si usted hace esto las pati- 
llas 4 y 5 han de estar conectadas a la patilla 9 para 
mantenerlas en 1 iogko, Esto evita que el Spectrum 
quede colgado si, estando lo que sea en ei otro ex- 
treme, el enlace todavia no se halla preparado para 
recibir datos desde el ordenador, Esto tiene la des- 
ventaja, sin embargo, de que se pierden los datos si 
el otro extreme del enlace no esta disponible para 
recibir los. En general, es p referable el empleo del 
cableado complete . 

Una aplicacion posible del enlace RS232 es la co- 
nexion de! Spectrum a una impresora real. Una vez 
desplegado el cable, el software de control muestra 
un manejo muy sencillo. Para enviar lexto a !a im- 
presora, establecemos la vclocidad en baudios 
desde el basic por medio de FORMAT, y ejecutamos 
despu^s el siguiente c6digo: 

CLOSE #3 
OPEN #3^1" 

Esto acopla la corriente 3, que es la corriente usual 
de impresora en el Spectrum, al canal T, que es el 
canal de texto del enlace RS232. Ei manual de la 
Interface 1 da mas detalles sobre el empleo de las 
corrientes texto y binaria. LLIST y LPRINT enviaran 
ahora los datos al dispositive ajustado a la Inter- 
face 1. 

Veames ahera algunos detalles de corao opera ia 
interface serial. Los datos se transmiten con un bit 
dc inicie, ocho bits de datos y dos bits de parada. 
No hay por que preocuparse por este formato, 
dado que las rutinas del sistema operative del Spec- 
trum ya se encargan dc ello. Lo que mas imperia es 
la velecidad en baudios a la que son enviados los 
datos. Esta velecidad suele establecerse con la ins- 
truccion FORMAT, que nos limita a una gama deter- 
minada de velocidades. Aunque hay poca perdida 
dc la integridad de los datos con una interface 
RS232, incluso a considerable distancia, siempre es 
bueno emplear velocidades mas bajas de transmi- 
sien segun aumenta ia distancia entre el emisor y el 
receptor. 



Es un procedimiento recomendable insertar va- 
riables de sistema de la Interface empleando el co- 
digo de enganche 49 antes de usar cualquicra de las 
siguientes lecnicas. Hay dos cediges de enganche 
referidos al RS232 y tres variables de sistema, Vea- 
mos primero las variables. 

• BAUD (posiciones 23747 y 23748) es una variable 
de dos bytes que contienc un valor que determina 
la veiocidad en baudies que va a emplearse en la 
transmision y recepcion de datos. Esto representa 
una de las limitaciones de ia interface del Spec- 
trum; su incapacidad de mane jar dos velocidades 
de transmision distintas para enviar y para recibir. 

• SERFL (posicion 23751) es un byte flag, empleado 
por el OS selo al recibir. Si esta a une, quiere decir 
que hay todavia un byte de lectura disponible, 

• SERBYT (posicion 23752) actua come un buffer 
de entrada de un byte en recepcion. Ocasionafmen- 
te es posible recibir y almacenar un byte en esta 
posicion despues de que usted haya cortado la ce- 
municacion. Pueden presentarse preblemas con el 
empleo de !as dos ultimas variables, come veremos. 

Una cuarta variable de sistema, la 10B0RD (posi- 
cion 23750) no se refiere estrictamente a la interfa- 
ce serial, solo con tiene el color del marco de la pan- 
lalla (border) que se emplea en las operaciones de 
E/S. Por tanto, puede hacer que el marco conten- 
ga cuaiquicr color durante estas operaciones. 

Cuando queremos emp!ear la interface RS232, lo 
primero que hay que hacer es establecer la veleci- 
dad de transmision. Esto se hace dando un valor 
apropiado a BAUD, que, en realidad, es todo lo que 
hace FORMAT. El valor a usar para una determinada 
veiocidad se calcula asi: 



Velocidades baudio con la Interface 1 

La RS232 estandar se emplea con profusion en las 
comunicaciones, en especial cuando la transmision 
de datos se realiza a larga distancia, y la veiocidad 
baudio proporciona una indicacion del numero de 
bits de datos por segundo que se transmiten. Con la 
formula de que se habia en el texto aplicada a 
algunas de las mas comunes densidades obtenemos 
losvalores siguientes: 

Veiocidad baudio Valor 



50 
110 

300 

600 

1200 

2400 

4800 

9600 

19200 



2690 

1221 

446 

222 

110 

54 

28 

12 

5 



El valor de la veiocidad en baudios deseada se coloca 
(POKE) en la variable de sistema BAUD en las 
direcciones 23747 y 23748. El que exista una sola 
variable significa, por desgracia, que debe usarse la 
misma veiocidad de transmision para la emision y 
para la recepcion. El siguiente f ragmen to en cddigo 
maquina ilustra el empleo de estos valores. Para 
establecer una veiocidad de 300 baudios: 



LD 
LD 
RET 



HU446 
(23747), HL 
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vafor = (3500000 / [26 * velocidacf en baudfOs))-2 

Con esta ecuacion es posible establecer !a interface 
serial en una velocidad en baudios no habitual 
desde el codigo maquina, pern quiza no tenga utili- 
dad alguna si ustecl no esta comunicando con otro 
Spectrum a traves de la RS232. La tabla de %^eloci- 
dades proporciona varios valores y In rulina necesa- 
ria para su implementaci6n. 

Veamos ahora el modo como son transferidos los 
dates a traves del enlace. En basic, la apcrtura 
(OPEN) de una corriente a emplear con la interface 
RS232 genera un canal de la forma mostrada en el 
grafico Estructura del canal del RS232. Este canal 
est£ situado en el area de canalcs dc la memoria. El 
byte 4 de este canal tiene anadido 128 a su valor si 
el canal ha sido incrementado implicitamente (es 
decir, por medio de SAVE*, MOVE, FORMAT, etc.). 

Pero esto solo tiene un interes academico para 
nosotros cuando lo que vamos a emplear son las 
rutinas del RS232 desde el codigo maquina. Note 
que no existe ningun buffer asociado a tal canal. 
Escribimos y leemos datos Uamando al correspon- 
diente codigo de eoganchc, que a su vez llama a la 
rutina cuya direccion esta o bien en las posiciones 
de canal 5 y 5 (transmision) o bien en la 7 y 8 (re- 
cepcion). No hay establecimiento de canal cuando 
se emplea un codigo de enganche. Los dos codigos 
de enganche del RS232 son: 

• Cddigo de enganche 29: Cuando se le llama da un 
unico byte de la interface serial en el registro A si 
hay uno disponible (en este caso el flag de arrastre 
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Contiene 
&0008 



Contiene 
&0008 



Contiene o ^B^ ASCII 



Direcdon de la rutina 
desafciade RS232 



Direccion de la rutina 
de en&ada de BS232 



Contiene 11 
longitud del canal 



Eslructurade! canal : 

Obsen/e qua no hay " ■ 
datos por enviar o re: : 
cddigosdeenpanc^^: 



: ado al canal. Todos Jos 
ti s; D Apormediodefos 



se pondri a uno). Si no haf im bjte disponible, A 
contendra un 0 y el fls^ sc poadEi a 0. 

• Cddigo de e^igowAe JftrTiaBsSere el b\te conte- 
nido en el registro A 2 la iBii if i i serial para su 
transmision segiin la fdoeidiid €& baudios estable- 
cida. Al emplear este cdfigDL lQdo& los b>ies son 
transmit! dos fiekneme: mo tof dKicnda entre las 
conientes B y T a nhid de fea^^ maquina. 



OTR {siesta en 
linea el otro 
ordenador lo 
pondra a uno 
logico) 

CIS (cuando esta 
preparado para 
recibir datos del 
Spectrum e! otro 
ordenador lo 
pondraauno 
!6Qico) 



Pone a uno logico 
para indlcarque e\ 
Spectrum esta en 
Imea 




Interface serial RS232 

Salida datos Entrada datos hzsa^ 
del Spectrum al Spectmm 



i)5 Q[)3 




No se usa Tterra (0 V| -^^ _^ 



Y es en este punto donde los problemas relaciona- -= r^riiinicacldn 

dos con SERBYT y SERFL pueden surgir. Si la rutina :L::; ": ^J^^^ ^ 

del codigo de enganche encuentra SERFL puesta a ^^^^^^^^^ 

uno, tomara un byte de SERBYT^ aun cuando ese ssnalesy emplea 

byte haya sido «escondido» en SERBYT desde que ^ } nueve patillas. 

complete el ultimo impulso de la comunicacioo f -: . . / c^fJl..^ 

..i^^ u * 1- ' ' j-j ■ - ^elSpectrumes 

nal. Este <<byte polizon>> exige ser atendido si apw- para manejar 

rece al comienzo de una serie de bytes redbidos: : t - ri .;3Cidadesde 

todos los bytes siguientes pueden ^ser recisks. -i- i :- ei laemisidnyen Ja 

pero con un significado alterado. La mao efa m s^ ■ - - 

facil de librarse dc lo que pueda haber en S^Bff 

consistc simplemente en poner SERFL a ceio jMcs 

de tratar de leer cualquier cosa desde la i 

seriaL Un sencillo codigo maquina lo haia: 



XOR 
LD 



A 

(23751 ),A 



Esta es la unica complicacidn efediw ^ 
gente puede en contra r cuando empiea ^ 
serial, aunque si no puede usted sacar 
merece siempre la pena inten^mber le 
nes a las patillas 2 y 3 en el enchnfe dc b 
1, en caso de que hay an sido 
mente en una primera instaacia. Lm 
baudios generada, aunque no 
precision, es correcta dentro dcfa 
por la especificacion del RS232. 

Como ejemplo dc empleo de It 
el siguientc fragmento de 
te 255 b\tes de d^o&pv^ 





RS232, 
transmit 
serial: 



Dor 



CP 
31 

216EOO 
22G33C 
06F 
C5 

mc 

CF 

1£ 

lOfB 
C9 
Pon 

plean- ^fa 

dispooe 
cioD — am i 




*2^^,es de la I/face 1 
pn 120€ bajdios 
I Ketoc. en baudios 
: contador 
^ contador 
mm pone Ja rutina... 
R tomar datos del reg a 
I d &yte contenido en a 
mz contador 



RS232 es la mas 
Itfefface 1 que se em- 

por ninguna infor- 
maquina, y s6!o se 
— irammisi6n y recep- 



m9 



Lenguaje maquina/Mapa de memoria del Commodore 64 



Datos basicos (III) 

Continuamos el analisis del mapa de memoria del C64, con 
Informacion suministrada por Commodore Business Machines 



ETIQUETA 


DIRECCION 


POSICION 


DESCRIPCION 




HEXA 


DECIMAL 






UVJOZ~UUO J 


70" 1 U 1 


Mcumuiuaor tF \ c, TiOTunTe* mariTisu 






1 


Avcumuiuaur it i c, TioianTe» signo 


SGNFLG 


0067 


103 


Pi intor^^* (i^rtnctnn+o o\/nli \ni~\r\n con^c 


RITS 

□ MO 


uuoo 


1 04 
1 u*t 


ii ^ 1 1 m 1 1 1 ^ ^ 1 Tl^+^n4"0' fAi/^%\f\ 

McurnuiuQor ^ i c TioTunie* uiyiio 












00A9 


1 UU 




ARGHO 


006A-006D 


106-109 


Acumu odor ^2 r flntnntp' mnnti*;o 


APG^^GN 

/Mx^OOIN 




1 1 0 
J 1 u 


rvcurnuiuuor ttz c riuiariic. siynu 


APi^r^M 

MfxIowIN 


OOAf 
uuor 


1 T 1 
1 1 1 


Kesuiiapo signo comporQCion; 








/Acumui, 1 Trenie tFz 


FArnv 

rr\\^\^ V 




1 1 9 

1 1 z 


r\curnuiuaor w \ Tioianie. oraen 








in Tenor ^reuonaeoj 


pD| IFPT 


0071 0079 


1 1 1! 1 H 


runiero, DUTier cussene 


^^nix^c 1 


007"^ OOP A 


1 1 iJ- 1 oo 


ouDrUTina* TornQr oyic siguicnr^ Q6i 








TeXlO BASIC 




0070 
UU/ 7 


1 91 
1 Z J 


cnTraao a Tornar mismo DyTe tgxto 








B AS 1 C 


TYTPTP 
J A 1 r 1 K 


007A 007R 
UU/ A-UU/ D 


199 19*^ 

1 ZZ- 1 ZvJ 


runTero. Dyie qctuui TexTO basic 


r\IN LJA 


OOPR 00 AF 
uuoD-uuor 


1 07" 1 ^0 


vuior orig, Tuncion ixiNU c» TioianTe 


O 1 M 1 <jO 


0000 

UU7U 


1 


raJODro esiOQO c/o ixornuK di 


STKEY 


0091 


145 


FlagiteclaSTOP/teclaRVS 


SVXT 


0092 


146 


Constante temporizodo para cinta 


VERCK 


0093 


147 


Flag:0=carga, 1 =verificaci6n 


C3PO 


0094 


148 


Flag: Bus serial -corac. solida en 








buffer 


BSOUR 


0095 


149 


Caracter en buffer bus serial 


SYNO 


0096 


150 


Nunnero sincr, cassette 




0097 


151 


Area dates temporal ' 


LDTND 


0098 


152 


Nunnero archivos abiartos/tablo 








indice archivos 




I 



